Packages January 2016

packages@lists.squeakfoundation.org

1 participants
126 discussions

The Trunk: Kernel-eem.980.mcz
by commits＠source.squeak.org 18 Jan '16

18 Jan '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.980.mcz ==================== Summary ==================== Name: Kernel-eem.980 Author: eem Time: 18 January 2016, 7:32:08.6746 pm UUID: 95543c3e-e2d1-4ec8-8ad2-a90fca9a2b06 Ancestors: Kernel-tpr.979 Lay the ground work for double-byte strings (and possibly a 64-bit indexable bits type). Test shallowCopy's error code and report primitive failure if it has failed for other than being out of memory (which may simply imply the need for a GC). =============== Diff against Kernel-tpr.979 =============== Item was changed: ----- Method: Behavior>>format (in category 'accessing') ----- format "Answer an Integer that encodes the kinds and numbers of variables of + instances of the receiver. The format is (currently) composed of two fields, + a 16-bit instSize, in the least significant bits, specifying the number of named + inst vars, if any, and a 5-bit format field, describing the kind of class. c.f. instSpec. + (msb)<5 bit format><16 bit #fixed fields>(lsb)" - instances of the receiver." ^format! Item was changed: ----- Method: Behavior>>instSpec (in category 'testing') ----- instSpec "Answer the instance specification part of the format that defines what kind of object an instance of the receiver is. The formats are 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 = unused 7 = immediates (SmallInteger, Character) 8 = unused 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap) (plus one odd bit, unused in 32-bits) + 12-15 = 16-bit indexable (plus two odd bits, one unused in 32-bits) + 16-23 = 8-bit indexable (plus three odd bits, one unused in 32-bits) + 24-31 = compiled methods (CompiledMethod) (plus three odd bits, one unused in 32-bits) + Note that in the VM instances also have a 5 bit format field that relates to their class's format. + Formats 11, 13-15, 17-23 & 25-31 are unused in classes but used in instances to define the + number of elements missing up to the slot size. For example, a 2-byte ByteString instance + has format 18 in 32-bits, since its size is one 32-bit slot - 2 bytes ((18 bitAnd: 3) = 2), and + 22 in 64 bits, since its size is one 64-bit slot - 6 bytes ((22 bitAnd: 7) = 6)." - 10-11 = 32-bit indexable (Bitmap) - 12-15 = 16-bit indexable - 16-23 = 8-bit indexable - 24-31 = compiled methods (CompiledMethod)" ^(format bitShift: -16) bitAnd: 16r1F! Item was changed: ----- Method: Behavior>>kindOfSubclass (in category 'testing class hierarchy') ----- kindOfSubclass "Answer a String that is the keyword that describes the receiver's kind of subclass, either a regular subclass, a variableSubclass, a variableByteSubclass, a variableWordSubclass, a weakSubclass, an ephemeronSubclass or an immediateSubclass. + c.f. typeOfClass & instSpec" + ^(#(' subclass: ' + ' subclass: ' + ' variableSubclass: ' + ' variableSubclass: ' + ' weakSubclass: ' + ' ephemeronSubclass: ' + nil + ' immediateSubclass: ' + nil + ' variableDoubleWordSubclass: ' + ' variableWordSubclass: ' nil + ' variableDoubleByteSubclass: ' nil nil nil + ' variableByteSubclass: ' nil nil nil nil nil nil nil + ' variableByteSubclass: ' nil nil nil nil nil nil nil ) + at: self instSpec + 1) ifNil: + [self error: 'invalid class type']! - c.f. typeOfClass" - ^self isVariable - ifTrue: - [self isBits - ifTrue: - [self isBytes - ifTrue: [' variableByteSubclass: '] - ifFalse: [' variableWordSubclass: ']] - ifFalse: - [self isWeak - ifTrue: [' weakSubclass: '] - ifFalse: [' variableSubclass: ']]] - ifFalse: - [self isImmediateClass - ifTrue: [' immediateSubclass: '] - ifFalse: - [self isEphemeronClass - ifTrue: [' ephemeronSubclass: '] - ifFalse: [' subclass: ']]]! Item was changed: ----- Method: Behavior>>typeOfClass (in category 'accessing') ----- typeOfClass + "Answer a symbol uniquely describing the type of the receiver. c.f. kindOfSubclass, instSpec" + ^(#(normal + normal + variable + variable + weak + ephemeron + nil + immediate + nil + longs + words nil + shorts nil nil nil + bytes nil nil nil nil nil nil nil + compiledMethod nil nil nil nil nil nil nil) + at: self instSpec + 1) ifNil: + [self error: 'invalid class type']! - "Answer a symbol uniquely describing the type of the receiver. c.f. kindOfSubclass" - self isBytes ifTrue: - [^self instSpec = CompiledMethod instSpec - ifTrue: [#compiledMethod] "Very special!!" - ifFalse: [#bytes]]. - (self isWords and: [self isPointers not]) ifTrue: - [^self instSpec = SmallInteger instSpec - ifTrue: [#immediate] "Very special!!" - ifFalse: [#words]]. - self isWeak ifTrue: [^#weak]. - self isVariable ifTrue: [^#variable]. - self isEphemeronClass ifTrue: [^#ephemeron]. - ^#normal! Item was changed: ----- Method: ClassBuilder>>computeFormat:instSize:forSuper: (in category 'class format') ----- computeFormat: type instSize: newInstSize forSuper: newSuper "Compute the new format for making oldClass a subclass of newSuper. Answer the format or nil if there is any problem." + | instSize isVar isPointers isWeak bitsUnitSize | - | instSize isVar isWords isPointers isWeak | type == #compiledMethod ifTrue: [newInstSize > 0 ifTrue: [self error: 'A compiled method class cannot have named instance variables'. ^nil]. ^CompiledMethod format]. instSize := newInstSize + (newSuper ifNil:[0] ifNotNil:[newSuper instSize]). instSize > 65535 ifTrue: [self error: 'Class has too many instance variables (', instSize printString,')'. ^nil]. + type == #normal ifTrue:[isVar := isWeak := false. isPointers := true]. + type == #bytes ifTrue:[isVar := true. bitsUnitSize := 1. isPointers := isWeak := false]. + type == #shorts ifTrue:[isVar := true. bitsUnitSize := 2. isPointers := isWeak := false]. + type == #words ifTrue:[isVar := true. bitsUnitSize := 4. isPointers := isWeak := false]. + type == #longs ifTrue:[isVar := true. bitsUnitSize := 8. isPointers := isWeak := false]. + type == #variable ifTrue:[isVar := isPointers := true. isWeak := false]. + type == #weak ifTrue:[isVar := isWeak := isPointers := true]. + type == #ephemeron ifTrue:[isVar := false. isWeak := isPointers := true]. + type == #immediate ifTrue:[isVar := isWeak := isPointers := false]. - type == #normal ifTrue:[isVar := isWeak := false. isWords := isPointers := true]. - type == #bytes ifTrue:[isVar := true. isWords := isPointers := isWeak := false]. - type == #words ifTrue:[isVar := isWords := true. isPointers := isWeak := false]. - type == #variable ifTrue:[isVar := isPointers := isWords := true. isWeak := false]. - type == #weak ifTrue:[isVar := isWeak := isWords := isPointers := true]. - type == #ephemeron ifTrue:[isVar := false. isWeak := isWords := isPointers := true]. - type == #immediate ifTrue:[isVar := isWeak := isPointers := false. isWords := true]. (isPointers not and: [instSize > 0]) ifTrue: [self error: 'A non-pointer class cannot have named instance variables'. ^nil]. + ^self format: instSize variable: isVar bitsUnitSize: bitsUnitSize pointers: isPointers weak: isWeak! - ^self format: instSize variable: isVar words: isWords pointers: isPointers weak: isWeak! Item was added: + ----- Method: ClassBuilder>>format:variable:bitsUnitSize:pointers:weak: (in category 'class format') ----- + format: nInstVars variable: isVar bitsUnitSize: bitsUnitSize pointers: isPointers weak: isWeak + "Compute the format for the given instance specfication. + Above Cog Spur the class format is + <5 bits inst spec><16 bits inst size> + where the 5-bit inst spec is + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 = unused + 7 = immediates (SmallInteger, Character, SmallFloat64) + 8 = unused + 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap, WideString) + 12-15 = 16-bit indexable + 16-23 = 8-bit indexable (ByteString) + 24-31 = compiled methods (CompiledMethod)" + | instSpec | + instSpec := isWeak + ifTrue: + [isVar + ifTrue: [4] + ifFalse: [5]] + ifFalse: + [isPointers + ifTrue: + [isVar + ifTrue: [nInstVars > 0 ifTrue: [3] ifFalse: [2]] + ifFalse: [nInstVars > 0 ifTrue: [1] ifFalse: [0]]] + ifFalse: + [isVar + ifTrue: [bitsUnitSize caseOf: { + [1] -> [16]. + [2] -> [12]. + [4] -> [10]. + [8] -> [9] }] + ifFalse: [7]]]. + ^(instSpec bitShift: 16) + nInstVars! Item was changed: ----- Method: Object>>shallowCopy (in category 'copying') ----- shallowCopy "Answer a copy of the receiver which shares the receiver's instance variables." | class newObject index | + <primitive: 148 error: ec> + ec == #'insufficient object memory' ifFalse: + [^self primitiveFailed]. - <primitive: 148> class := self class. class isVariable ifTrue: [index := self basicSize. + newObject := class basicNew: index. + [index > 0] whileTrue: + [newObject basicAt: index put: (self basicAt: index). + index := index - 1]] - newObject := class basicNew: index. - [index > 0] - whileTrue: - [newObject basicAt: index put: (self basicAt: index). - index := index - 1]] ifFalse: [newObject := class basicNew]. index := class instSize. + [index > 0] whileTrue: + [newObject instVarAt: index put: (self instVarAt: index). + index := index - 1]. + ^newObject! - [index > 0] - whileTrue: - [newObject instVarAt: index put: (self instVarAt: index). - index := index - 1]. - ^ newObject!

1 0

The Trunk: Kernel-eem.980.mcz
by commits＠source.squeak.org 18 Jan '16

18 Jan '16

1 0

The Trunk: Graphics-eem.321.mcz
by commits＠source.squeak.org 16 Jan '16

16 Jan '16

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.321.mcz ==================== Summary ==================== Name: Graphics-eem.321 Author: eem Time: 16 January 2016, 9:43:19.481889 am UUID: 63221468-923b-4e2d-a262-1fb47958bb0c Ancestors: Graphics-eem.320 Rewrite Color>>pixelValueForDepth: to avoid need for normalization and for creating 4-byte LargeIntegers in 64-bits. =============== Diff against Graphics-eem.320 =============== Item was changed: ----- Method: Color>>pixelValueForDepth: (in category 'conversions') ----- pixelValueForDepth: d + "Answers an integer representing the bits that appear in a single pixel of this color in a Form of the given depth. + The depth must be one of 1, 2, 4, 8, 16, or 32. Contrast with pixelWordForDepth: and bitPatternForDepth:, which + answer either a 32-bit word packed with the given pixel value or a multiple-word Bitmap containing a pattern. + The inverse is the class message colorFromPixelValue:depth:" + "Details: + For depths of 8 or less, the result is a colorMap index. + For depths of 16 and 32, it is a direct color value with 5 or 8 bits per color component." + "Transparency: + The pixel value zero is reserved for transparent. + For depths greater than 8, black maps to the darkest possible blue." - "Returns an integer representing the bits that appear in a single pixel of this color in a Form of the given depth. The depth must be one of 1, 2, 4, 8, 16, or 32. Contrast with pixelWordForDepth: and bitPatternForDepth:, which return either a 32-bit word packed with the given pixel value or a multiple-word Bitmap containing a pattern. The inverse is the class message colorFromPixelValue:depth:" - "Details: For depths of 8 or less, the result is a colorMap index. For depths of 16 and 32, it is a direct color value with 5 or 8 bits per color component." - "Transparency: The pixel value zero is reserved for transparent. For depths greater than 8, black maps to the darkest possible blue." | val | + d > 8 ifTrue: "most common case" + [d = 32 ifTrue: "eight bits per component; top 8 bits set to all ones (opaque alpha)" + ["this subexpression is a SmallInteger in both 32- and 64-bits." + val := ((rgb bitShift: -6) bitAnd: 16rFF0000) bitOr: + (((rgb bitShift: -4) bitAnd: 16rFF00) bitOr: + ((rgb bitShift: -2) bitAnd: 16rFF)). + "16rFF000000 & 16rFF000001 are LargeIntegers in 32-bits, SmallIntegers in 64-bits." + ^val = 0 ifTrue: [16rFF000001] ifFalse: [16rFF000000 + val]]. + + d = 16 ifTrue: "five bits per component; top bits ignored" + [val := (((rgb bitShift: -15) bitAnd: 16r7C00) bitOr: - d > 8 "most common case" - ifTrue: - [d = 32 ifTrue: [ - "eight bits per component; top 8 bits set to all ones (opaque alpha)" - val := (LargePositiveInteger new: 4) - at: 4 put: 16rFF; - at: 3 put: ((rgb bitShift: -22) bitAnd: 16rFF); - at: 2 put: ((rgb bitShift: -12) bitAnd: 16rFF); - at: 1 put: ((rgb bitShift: -2) bitAnd: 16rFF); - normalize. "normalize is not necessary as long as SmallInteger maxVal highBit < 32, but let's be future proof" - ^val < 16rFF000001 ifTrue: [16rFF000001] ifFalse: [val]]. - - d = 16 ifTrue: [ - "five bits per component; top bits ignored" - val := (((rgb bitShift: -15) bitAnd: 16r7C00) bitOr: ((rgb bitShift: -10) bitAnd: 16r03E0)) bitOr: ((rgb bitShift: -5) bitAnd: 16r001F). + ^val = 0 ifTrue: [1] ifFalse: [val]]. - ^val < 1 ifTrue: [1] ifFalse: [val]]. + d = 12 ifTrue: "for indexing a color map with 4 bits per color component" + [val := (((rgb bitShift: -18) bitAnd: 16r0F00) bitOr: - d = 12 ifTrue: [ "for indexing a color map with 4 bits per color component" - val := (((rgb bitShift: -18) bitAnd: 16r0F00) bitOr: ((rgb bitShift: -12) bitAnd: 16r00F0)) bitOr: ((rgb bitShift: -6) bitAnd: 16r000F). + ^val = 0 ifTrue: [1] ifFalse: [val]]. - ^val < 1 ifTrue: [1] ifFalse: [val]]. + d = 9 ifTrue: "for indexing a color map with 3 bits per color component" + [val := (((rgb bitShift: -21) bitAnd: 16r01C0) bitOr: + ((rgb bitShift: -14) bitAnd: 16r0038)) bitOr: + ((rgb bitShift: -7) bitAnd: 16r0007). + ^val = 0 ifTrue: [1] ifFalse: [val]]]. - d = 9 ifTrue: [ "for indexing a color map with 3 bits per color component" - val := (((rgb bitShift: -21) bitAnd: 16r01C0) bitOr: - ((rgb bitShift: -14) bitAnd: 16r0038)) bitOr: - ((rgb bitShift: -7) bitAnd: 16r0007). - ^val < 1 ifTrue: [1] ifFalse: [val]]]. d = 8 ifTrue: [^ self closestPixelValue8]. d = 4 ifTrue: [^ self closestPixelValue4]. d = 2 ifTrue: [^ self closestPixelValue2].. d = 1 ifTrue: [^ self closestPixelValue1]. self error: 'unknown pixel depth: ', d printString !

1 0

The Trunk: Graphics-eem.321.mcz
by commits＠source.squeak.org 16 Jan '16

16 Jan '16

1 0

The Trunk: Morphic-tpr.1067.mcz
by commits＠source.squeak.org 14 Jan '16

14 Jan '16

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1067.mcz ==================== Summary ==================== Name: Morphic-tpr.1067 Author: tpr Time: 14 January 2016, 5:09:31.880065 pm UUID: 9f5c0b23-31d9-4698-99ba-588068d5e268 Ancestors: Morphic-mt.1066 Use the new Time class>eventMillisecondClock method to get a fake timestamp for places where we have to fake up an event and want to compare its timestamp with a real event. =============== Diff against Morphic-mt.1066 =============== Item was changed: ----- Method: HandMorph>>generateDropFilesEvent: (in category 'private events') ----- generateDropFilesEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" "Note: This is still in an experimental phase and will need more work" | position buttons modifiers stamp numFiles dragType | stamp := evtBuf second. + stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. - stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. dragType := evtBuf third. position := evtBuf fourth @ evtBuf fifth. buttons := 0. modifiers := evtBuf sixth. buttons := buttons bitOr: (modifiers bitShift: 3). numFiles := evtBuf seventh. dragType = 4 ifTrue: ["e.g., drop" owner borderWidth: 0. ^DropFilesEvent new setPosition: position contents: numFiles hand: self]. "the others are currently not handled by morphs themselves" dragType = 1 ifTrue: ["experimental drag enter" owner borderWidth: 4; borderColor: owner color asColor negated]. dragType = 2 ifTrue: ["experimental drag move" ]. dragType = 3 ifTrue: ["experimental drag leave" owner borderWidth: 0]. ^nil! Item was changed: ----- Method: HandMorph>>generateKeyboardEvent: (in category 'private events') ----- generateKeyboardEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" | buttons modifiers type pressType stamp keyValue | stamp := evtBuf second. + stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. - stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. pressType := evtBuf fourth. pressType = EventKeyDown ifTrue: [type := #keyDown]. pressType = EventKeyUp ifTrue: [type := #keyUp]. pressType = EventKeyChar ifTrue: [type := #keystroke]. modifiers := evtBuf fifth. buttons := (modifiers bitShift: 3) bitOr: (lastMouseEvent buttons bitAnd: 7). type = #keystroke ifTrue: [keyValue := (self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf) asInteger] ifFalse: [keyValue := evtBuf third]. ^ KeyboardEvent new setType: type buttons: buttons position: self position keyValue: keyValue hand: self stamp: stamp. ! Item was changed: ----- Method: HandMorph>>generateMouseEvent: (in category 'private events') ----- generateMouseEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer" | position buttons modifiers type trail stamp oldButtons evtChanged | evtBuf first = lastEventBuffer first ifTrue: ["Workaround for Mac VM bug, *always* generating 3 events on clicks" evtChanged := false. 3 to: evtBuf size do: [:i | (lastEventBuffer at: i) = (evtBuf at: i) ifFalse: [evtChanged := true]]. evtChanged ifFalse: [^nil]]. stamp := evtBuf second. + stamp = 0 ifTrue: [stamp := Time eventMillisecondClock]. - stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. position := evtBuf third @ evtBuf fourth. buttons := evtBuf fifth. modifiers := evtBuf sixth. type := buttons = 0 ifTrue:[ lastEventBuffer fifth = 0 ifTrue: [#mouseMove] "this time no button and previously no button .. just mouse move" ifFalse: [#mouseUp] "this time no button but previously some button ... therefore button was released" ] ifFalse:[ buttons = lastEventBuffer fifth ifTrue: [#mouseMove] "button states are the same .. now and past .. therfore a mouse movement" ifFalse: [ "button states are different .. button was pressed or released" buttons > lastEventBuffer fifth ifTrue: [#mouseDown] ifFalse:[#mouseUp]. ]. ]. buttons := buttons bitOr: (modifiers bitShift: 3). oldButtons := lastEventBuffer fifth bitOr: (lastEventBuffer sixth bitShift: 3). lastEventBuffer := evtBuf. type == #mouseMove ifTrue: [trail := self mouseTrailFrom: evtBuf. ^MouseMoveEvent new setType: type startPoint: (self position) endPoint: trail last trail: trail buttons: buttons hand: self stamp: stamp]. ^MouseButtonEvent new setType: type position: position which: (oldButtons bitXor: buttons) buttons: buttons hand: self stamp: stamp! Item was changed: ----- Method: HandMorph>>generateWindowEvent: (in category 'private events') ----- generateWindowEvent: evtBuf "Generate the appropriate window event for the given raw event buffer" | evt | evt := WindowEvent new. evt setTimeStamp: evtBuf second. + evt timeStamp = 0 ifTrue: [evt setTimeStamp: Time eventMillisecondClock]. - evt timeStamp = 0 ifTrue: [evt setTimeStamp: Time millisecondClockValue]. evt action: evtBuf third. evt rectangle: (Rectangle origin: evtBuf fourth @ evtBuf fifth corner: evtBuf sixth @ evtBuf seventh ). ^evt! Item was changed: ----- Method: MorphicEvent>>timeStamp (in category 'accessing') ----- timeStamp "Return the millisecond clock value at which the event was generated" + ^timeStamp ifNil:[timeStamp := Time eventMillisecondClock]! - ^timeStamp ifNil:[timeStamp := Time millisecondClockValue]! Item was changed: ----- Method: MouseEvent>>asMouseMove (in category 'converting') ----- asMouseMove "Convert the receiver into a mouse move" + ^MouseMoveEvent new setType: #mouseMove startPoint: position endPoint: position trail: {position. position} buttons: buttons hand: source stamp: Time eventMillisecondClock! - ^MouseMoveEvent new setType: #mouseMove startPoint: position endPoint: position trail: {position. position} buttons: buttons hand: source stamp: Time millisecondClockValue.!

1 0

The Trunk: Morphic-tpr.1067.mcz
by commits＠source.squeak.org 14 Jan '16

14 Jan '16

1 0

The Trunk: Kernel-tpr.979.mcz
by commits＠source.squeak.org 14 Jan '16

14 Jan '16

tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.979.mcz ==================== Summary ==================== Name: Kernel-tpr.979 Author: tpr Time: 14 January 2016, 5:07:09.653455 pm UUID: 066512f9-4f6d-4079-bfbf-92fe82801f6a Ancestors: Kernel-tpr.978 {Authorisation error: let's try again. Sigh} Add Time class>eventMillisecondClock (which gets its value from the same api as the vm event creation prim) and use it instead of the new 64bit based clock - this allows d-click code to work. =============== Diff against Kernel-ul.977 =============== Item was changed: ----- Method: EventSensor>>createMouseEvent (in category 'mouse') ----- createMouseEvent "create and return a new mouse event from the current mouse position; this is useful for restarting normal event queue processing after manual polling" | buttons modifiers pos mapped eventBuffer | eventBuffer := Array new: 8. buttons := self primMouseButtons. pos := self primMousePt. modifiers := buttons bitShift: -3. buttons := buttons bitAnd: 7. mapped := self mapButtons: buttons modifiers: modifiers. eventBuffer at: 1 put: EventTypeMouse; + at: 2 put: Time eventMillisecondClock; - at: 2 put: Time millisecondClockValue; at: 3 put: pos x; at: 4 put: pos y; at: 5 put: mapped; at: 6 put: modifiers. ^ eventBuffer! Item was changed: ----- Method: EventSensor>>nextEventSynthesized (in category 'private') ----- nextEventSynthesized "Return a synthesized event. This method is called if an event driven client wants to receive events but the primary user interface is not event-driven (e.g., the receiver does not have an event queue but only updates its state). This can, for instance, happen if a Morphic World is run in an MVC window. To simplify the clients work this method will always return all available keyboard events first, and then (repeatedly) the mouse events. Since mouse events come last, the client can assume that after one mouse event has been received there are no more to come. Note that it is impossible for EventSensor to determine if a mouse event has been issued before so the client must be aware of the possible problem of getting repeatedly the same mouse events. See HandMorph>>processEvents for an example on how to deal with this." | kbd array buttons pos modifiers mapped | "First check for keyboard" array := Array new: 8. kbd := self primKbdNext. kbd ifNotNil: ["simulate keyboard event" array at: 1 put: EventTypeKeyboard. "evt type" + array at: 2 put: Time eventMillisecondClock. "time stamp" - array at: 2 put: Time millisecondClockValue. "time stamp" array at: 3 put: (kbd bitAnd: 255). "char code" array at: 4 put: EventKeyChar. "key press/release" array at: 5 put: (kbd bitShift: -8). "modifier keys" ^ array]. "Then check for mouse" pos := self primMousePt. buttons := mouseButtons. modifiers := buttons bitShift: -3. buttons := buttons bitAnd: 7. mapped := self mapButtons: buttons modifiers: modifiers. array at: 1 put: EventTypeMouse; + at: 2 put: Time eventMillisecondClock; - at: 2 put: Time millisecondClockValue; at: 3 put: pos x; at: 4 put: pos y; at: 5 put: mapped; at: 6 put: modifiers. ^ array ! Item was changed: ----- Method: EventSensor>>primGetNextEvent: (in category 'private-I/O') ----- primGetNextEvent: array "Store the next OS event available into the provided array. Essential. If the VM is not event driven the ST code will fall back to the old-style mechanism and use the state based primitives instead." | kbd buttons modifiers pos mapped | <primitive: 94> "Simulate the events" array at: 1 put: EventTypeNone. "assume no more events" "First check for keyboard" kbd := super primKbdNext. kbd = nil ifFalse:[ "simulate keyboard event" array at: 1 put: EventTypeKeyboard. "evt type" + array at: 2 put: Time eventMillisecondClock. "time stamp" - array at: 2 put: Time millisecondClockValue. "time stamp" array at: 3 put: (kbd bitAnd: 255). "char code" array at: 4 put: EventKeyChar. "key press/release" array at: 5 put: (kbd bitShift: -8). "modifier keys" ^self]. "Then check for mouse" buttons := super primMouseButtons. pos := super primMousePt. modifiers := buttons bitShift: -3. buttons := buttons bitAnd: 7. mapped := self mapButtons: buttons modifiers: modifiers. (pos = mousePosition and:[(mapped bitOr: (modifiers bitShift: 3)) = mouseButtons]) ifTrue:[^self]. array at: 1 put: EventTypeMouse; + at: 2 put: Time eventMillisecondClock; - at: 2 put: Time millisecondClockValue; at: 3 put: pos x; at: 4 put: pos y; at: 5 put: mapped; at: 6 put: modifiers. ! Item was added: + ----- Method: Time class>>eventMillisecondClock (in category 'clock') ----- + eventMillisecondClock + "In order to make certain event handling code work (cf MouseEvent>asMouseMove) we need access + to the tick kept by ioMSecs() " + "Time eventMillisecondClock" + <primitive: 135> + ^0!

1 0

The Trunk: Kernel-tpr.979.mcz
by commits＠source.squeak.org 14 Jan '16

14 Jan '16

1 0

The Trunk: Morphic-mt.1066.mcz
by commits＠source.squeak.org 13 Jan '16

13 Jan '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1066.mcz ==================== Summary ==================== Name: Morphic-mt.1066 Author: mt Time: 13 January 2016, 9:13:37.52568 am UUID: 0736edd7-ebd0-41ee-b085-367e364e0ab3 Ancestors: Morphic-mt.1065 Makes the border for rounded sliders thinner. =============== Diff against Morphic-mt.1065 =============== Item was changed: ----- Method: ScrollBar>>initializeSlider (in category 'initialize') ----- initializeSlider self initializeMenuButton; initializeUpButton; initializeDownButton; initializePagingArea. super initializeSlider. self expandSlider. + self class roundedScrollBarLook ifTrue: [ + slider cornerStyle: #rounded. + sliderShadow cornerStyle: #rounded. + + Preferences menuAppearance3d ifTrue: [ + slider borderStyle: (BorderStyle complexRaised width: 1)]]. + + self sliderColor: self sliderColor.! - self class roundedScrollBarLook - ifTrue: [slider cornerStyle: #rounded. - slider - borderStyle: (BorderStyle complexRaised width: 3). - sliderShadow cornerStyle: #rounded]. - self sliderColor: self sliderColor!

1 0

The Trunk: Morphic-mt.1066.mcz
by commits＠source.squeak.org 13 Jan '16

13 Jan '16

1 0

← Newer
1
2
3
4
5
6
7
8
...
13
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2016