Packages February 2016

packages@lists.squeakfoundation.org

2 participants
362 discussions

The Trunk: Kernel-eem.986.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.986.mcz ==================== Summary ==================== Name: Kernel-eem.986 Author: eem Time: 2 February 2016, 11:13:09.449248 am UUID: 3f530429-e326-41a8-b43b-8d18d32b01fc Ancestors: Kernel-dtl.985 Process preemption should not cause a yield. I'd forgotten to swet this in the Spur bootstrap. Do so in processorScheduler's startUp, and eliminate the unnecessary reinstallation of low-space and background processes if only snapshotting. =============== Diff against Kernel-dtl.985 =============== Item was removed: - ----- Method: ProcessorScheduler class>>startUp (in category 'background process') ----- - startUp - "Install a background process of the lowest possible priority that is always runnable." - "Details: The virtual machine requires that there is aways some runnable process that can be scheduled; this background process ensures that this is the case." - - Smalltalk installLowSpaceWatcher. - BackgroundProcess == nil ifFalse: [BackgroundProcess terminate]. - BackgroundProcess := [self idleProcess] newProcess. - BackgroundProcess priority: SystemRockBottomPriority. - BackgroundProcess resume. - ! Item was added: + ----- Method: ProcessorScheduler class>>startUp: (in category 'background process') ----- + startUp: resuming + "Install a background process of the lowest possible priority that is always runnable." + "Details: The virtual machine requires that there is aways some runnable process that + can be scheduled; this background process ensures that this is the case." + + Smalltalk processPreemptionYields ifTrue: + [Smalltalk processPreemptionYields: false]. + resuming ifTrue: + [Smalltalk installLowSpaceWatcher. + BackgroundProcess ifNotNil: + [BackgroundProcess terminate]. + (BackgroundProcess := [self idleProcess] newProcess) + priority: SystemRockBottomPriority; + resume]!

1 0

The Trunk: Kernel-eem.986.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

1 0

The Trunk: System-dtl.792.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.792.mcz ==================== Summary ==================== Name: System-dtl.792 Author: dtl Time: 2 February 2016, 12:40:33.790655 pm UUID: 8f3c142b-21ca-4f91-83e8-e474425bd4ce Ancestors: System-dtl.791 Remove last references to InputSensor, which has bee replaced by EventSensor =============== Diff against System-dtl.791 =============== Item was changed: ----- Method: SmalltalkImage class>>initializeShutDownList (in category 'class initialization') ----- initializeShutDownList "SmalltalkImage initialize" | oldList | oldList := ShutDownList. ShutDownList := OrderedCollection new. "These get processed from the bottom up..." #( Delay DisplayScreen + EventSensor - InputSensor Form ControlManager PasteUpMorph StrikeFont Color FileDirectory SoundPlayer HttpUrl Password PWS MailDB ImageSegment ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToShutDownList: cls]. ]. oldList ifNotNil: [oldList reverseDo: [:className | Smalltalk at: className ifPresent: [:theClass | Smalltalk addToShutDownList: theClass]]]. ! Item was changed: ----- Method: SmalltalkImage class>>initializeStartUpList (in category 'class initialization') ----- initializeStartUpList "SmalltalkImage initialize" | oldList | oldList := StartUpList. StartUpList := OrderedCollection new. "These get processed from the top down..." self flag: #'revisit in Squeak 5.3'. #( SmallInteger Delay DisplayScreen Cursor + EventSensor - InputSensor ProcessorScheduler "Starts low space watcher and bkground." FileDirectory "Enables file stack dump and opens sources." ShortIntegerArray ShortRunArray CrLfFileStream "Remove this in Squeak 5.3" ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls]. ]. oldList ifNotNil: [oldList do: [:className | Smalltalk at: className ifPresent: [:theClass | Smalltalk addToStartUpList: theClass]]]. #( ImageSegment PasteUpMorph ControlManager ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls]. ]. !

1 0

The Trunk: System-dtl.792.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

1 0

The Trunk: Kernel-dtl.985.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.985.mcz ==================== Summary ==================== Name: Kernel-dtl.985 Author: dtl Time: 30 January 2016, 2:53:37.508491 pm UUID: 14804760-466d-4af1-a5f8-ad60b34fdc1d Ancestors: Kernel-dtl.984 EventSensor replaces InputSensor, update class and method comments. =============== Diff against Kernel-dtl.984 =============== Item was changed: Object subclass: #EventSensor instanceVariableNames: 'mouseButtons mousePosition keyboardBuffer interruptKey interruptSemaphore eventQueue inputSemaphore lastEventPoll hasInputSemaphore' classVariableNames: 'ButtonDecodeTable EventPollPeriod EventTicklerProcess InterruptSemaphore InterruptWatcherProcess KeyDecodeTable' poolDictionaries: 'EventSensorConstants' category: 'Kernel-Processes'! + !EventSensor commentStamp: 'dtl 1/30/2016 14:44' prior: 0! + An EventSensor is an interface to the user input devices. + There is at least one instance of EventSensor named Sensor in the system. - !EventSensor commentStamp: 'nk 4/13/2004 11:18' prior: 0! - EventSensor is a replacement for InputSensor based on a set of (optional) event primitives. An EventSensor updates its state when events are received so that all state based users of Sensor (e.g., Sensor keyboard, Sensor leftShiftDown, Sensor mouseButtons) will work exactly as before, by moving the current VM mechanisms into EventSensor itself. An optional input semaphore is part of the new design. + EventSensor is a replacement for the earlier InputSensor implementation based on a set of (optional) event primitives. An EventSensor updates its state when events are received so that all state based users of Sensor (e.g., Sensor keyboard, Sensor leftShiftDown, Sensor mouseButtons) will work exactly as before, by moving the current VM mechanisms into EventSensor itself. An optional input semaphore is part of the new design. + For platforms that support true asynchronous event notification, the semaphore will be signaled to indicate pending events. On platforms that do not support asynchronous notifications about events, the UI will have to poll EventSensor periodically to read events from the VM. Instance variables: mouseButtons <Integer> - mouse button state as replacement for primMouseButtons mousePosition <Point> - mouse position as replacement for primMousePt keyboardBuffer <SharedQueue> - keyboard input buffer interruptKey <Integer> - currently defined interrupt key interruptSemaphore <Semaphore> - the semaphore signaled when the interruptKey is detected eventQueue <SharedQueue> - an optional event queue for event driven applications inputSemaphore <Semaphore>- the semaphore signaled by the VM if asynchronous event notification is supported lastEventPoll <Integer> - the last millisecondClockValue at which we called fetchMoreEvents hasInputSemaphore <Boolean> - true if my inputSemaphore has actually been signaled at least once. Class variables: + ButtonDecodeTable <ByteArray> - maps mouse buttons as reported by the VM to ones reported in the events. + KeyDecodeTable <Dictionary<SmallInteger->SmallInteger>> - maps some keys and their modifiers to other keys (used for instance to map Ctrl-X to Alt-X) + InterruptSemaphore <Semaphore> - signalled by the the VM and/or the event loop upon receiving an interrupt keystroke. + InterruptWatcherProcess <Process> - waits on the InterruptSemaphore and then responds as appropriate. EventPollPeriod <Integer> - the number of milliseconds to wait between polling for more events in the userInterruptHandler. EventTicklerProcess <Process> - the process that makes sure that events are polled for often enough (at least every EventPollPeriod milliseconds). Event format: The current event format is very simple. Each event is recorded into an 8 element array. All events must provide some SmallInteger ID (the first field in the event buffer) and a time stamp (the second field in the event buffer), so that the difference between the time stamp of an event and the current time can be reported. Currently, the following events are defined: Null event ============= The Null event is returned when the ST side asks for more events but no more events are available. Structure: [1] - event type 0 [2-8] - unused Mouse event structure ========================== Mouse events are generated when mouse input is detected. Structure: [1] - event type 1 [2] - time stamp [3] - mouse x position [4] - mouse y position [5] - button state; bitfield with the following entries: 1 - yellow (e.g., right) button 2 - blue (e.g., middle) button 4 - red (e.g., left) button [all other bits are currently undefined] [6] - modifier keys; bitfield with the following entries: 1 - shift key 2 - ctrl key 4 - (Mac specific) option key 8 - Cmd/Alt key [all other bits are currently undefined] [7] - reserved. [8] - reserved. Keyboard events ==================== Keyboard events are generated when keyboard input is detected. [1] - event type 2 [2] - time stamp [3] - character code For now the character code is in Mac Roman encoding. [4] - press state; integer with the following meaning 0 - character 1 - key press (down) 2 - key release (up) [5] - modifier keys (same as in mouse events) [6] - reserved. [7] - reserved. [8] - reserved. ! Item was changed: ----- Method: EventSensor>>processKeyboardEvent: (in category 'private-I/O') ----- processKeyboardEvent: evt + "process a keyboard event, updating EventSensor state" - "process a keyboard event, updating InputSensor state" | charCode pressCode | "Never update keyboardBuffer if we have an eventQueue active" mouseButtons := (mouseButtons bitAnd: 7) bitOr: ((evt at: 5) bitShift: 3). eventQueue ifNotNil:[^self]. charCode := evt at: 3. charCode = nil ifTrue:[^self]. "extra characters not handled in MVC" pressCode := evt at: 4. pressCode = EventKeyChar ifFalse:[^self]. "key down/up not handled in MVC" "mix in modifiers" charCode := charCode bitOr: ((evt at: 5) bitShift: 8). keyboardBuffer nextPut: charCode.! Item was changed: ----- Method: EventSensor>>processMouseEvent: (in category 'private-I/O') ----- processMouseEvent: evt + "process a mouse event, updating EventSensor state" - "process a mouse event, updating InputSensor state" | modifiers buttons mapped | mousePosition := (evt at: 3) @ (evt at: 4). buttons := evt at: 5. modifiers := evt at: 6. mapped := self mapButtons: buttons modifiers: modifiers. mouseButtons := mapped bitOr: (modifiers bitShift: 3).! Item was changed: ObjectTracer subclass: #ObjectViewer instanceVariableNames: 'valueBlock lastValue changeBlock' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Objects'! + !ObjectViewer commentStamp: 'dtl 1/30/2016 14:50' prior: 0! + ObjectViewers offers the same kind of interception of messages (via doesnotUnderstand:) as ObjectTracers, but instead of just being wrappers, they actually replace the object being viewed. This makes them a lot more dangerous to use, but one can do amazing things. For instance, the example below actually intercepts the EventSensor object, and prints the mouse coordinates asynchronously, every time they change: - !ObjectViewer commentStamp: '<historical>' prior: 0! - ObjectViewers offers the same kind of interception of messages (via doesnotUnderstand:) as ObjectTracers, but instead of just being wrappers, they actually replace the object being viewed. This makes them a lot more dangerous to use, but one can do amazing things. For instance, the example below actually intercepts the InputSensor object, and prints the mouse coordinates asynchronously, every time they change: Sensor evaluate: [Sensor cursorPoint printString displayAt: 0@0] wheneverChangeIn: [Sensor cursorPoint]. To exit from this example, execute: Sensor xxxUnTrace !

1 0

The Trunk: Kernel-dtl.985.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

1 0

The Trunk: Kernel-dtl.984.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.984.mcz ==================== Summary ==================== Name: Kernel-dtl.984 Author: dtl Time: 30 January 2016, 2:37:27.663155 pm UUID: 16c765b5-65b4-49ef-ba63-abceec7cd80e Ancestors: Kernel-dtl.983 Remove InputSensor. EventSensor replaces InputSensor for both Morphic and MVC. Note: requires update to SmalltalkImage class initialization methods in package System. =============== Diff against Kernel-dtl.983 =============== Item was changed: + Object subclass: #EventSensor - InputSensor subclass: #EventSensor instanceVariableNames: 'mouseButtons mousePosition keyboardBuffer interruptKey interruptSemaphore eventQueue inputSemaphore lastEventPoll hasInputSemaphore' + classVariableNames: 'ButtonDecodeTable EventPollPeriod EventTicklerProcess InterruptSemaphore InterruptWatcherProcess KeyDecodeTable' - classVariableNames: 'EventPollPeriod EventTicklerProcess' poolDictionaries: 'EventSensorConstants' category: 'Kernel-Processes'! !EventSensor commentStamp: 'nk 4/13/2004 11:18' prior: 0! EventSensor is a replacement for InputSensor based on a set of (optional) event primitives. An EventSensor updates its state when events are received so that all state based users of Sensor (e.g., Sensor keyboard, Sensor leftShiftDown, Sensor mouseButtons) will work exactly as before, by moving the current VM mechanisms into EventSensor itself. An optional input semaphore is part of the new design. For platforms that support true asynchronous event notification, the semaphore will be signaled to indicate pending events. On platforms that do not support asynchronous notifications about events, the UI will have to poll EventSensor periodically to read events from the VM. Instance variables: mouseButtons <Integer> - mouse button state as replacement for primMouseButtons mousePosition <Point> - mouse position as replacement for primMousePt keyboardBuffer <SharedQueue> - keyboard input buffer interruptKey <Integer> - currently defined interrupt key interruptSemaphore <Semaphore> - the semaphore signaled when the interruptKey is detected eventQueue <SharedQueue> - an optional event queue for event driven applications inputSemaphore <Semaphore>- the semaphore signaled by the VM if asynchronous event notification is supported lastEventPoll <Integer> - the last millisecondClockValue at which we called fetchMoreEvents hasInputSemaphore <Boolean> - true if my inputSemaphore has actually been signaled at least once. Class variables: EventPollPeriod <Integer> - the number of milliseconds to wait between polling for more events in the userInterruptHandler. EventTicklerProcess <Process> - the process that makes sure that events are polled for often enough (at least every EventPollPeriod milliseconds). Event format: The current event format is very simple. Each event is recorded into an 8 element array. All events must provide some SmallInteger ID (the first field in the event buffer) and a time stamp (the second field in the event buffer), so that the difference between the time stamp of an event and the current time can be reported. Currently, the following events are defined: Null event ============= The Null event is returned when the ST side asks for more events but no more events are available. Structure: [1] - event type 0 [2-8] - unused Mouse event structure ========================== Mouse events are generated when mouse input is detected. Structure: [1] - event type 1 [2] - time stamp [3] - mouse x position [4] - mouse y position [5] - button state; bitfield with the following entries: 1 - yellow (e.g., right) button 2 - blue (e.g., middle) button 4 - red (e.g., left) button [all other bits are currently undefined] [6] - modifier keys; bitfield with the following entries: 1 - shift key 2 - ctrl key 4 - (Mac specific) option key 8 - Cmd/Alt key [all other bits are currently undefined] [7] - reserved. [8] - reserved. Keyboard events ==================== Keyboard events are generated when keyboard input is detected. [1] - event type 2 [2] - time stamp [3] - character code For now the character code is in Mac Roman encoding. [4] - press state; integer with the following meaning 0 - character 1 - key press (down) 2 - key release (up) [5] - modifier keys (same as in mouse events) [6] - reserved. [7] - reserved. [8] - reserved. ! Item was changed: ----- Method: EventSensor class>>initialize (in category 'class initialization') ----- initialize + Smalltalk addToStartUpList: self after: Cursor. + self installKeyDecodeTable. + self installMouseDecodeTable. + self install. + + ! - Smalltalk addToStartUpList: self after: Cursor! Item was removed: - Object subclass: #InputSensor - instanceVariableNames: '' - classVariableNames: 'ButtonDecodeTable InterruptSemaphore InterruptWatcherProcess KeyDecodeTable' - poolDictionaries: '' - category: 'Kernel-Processes'! - - !InputSensor commentStamp: '<historical>' prior: 0! - An InputSensor is an interface to the user input devices. - There is at least one (sub)instance of InputSensor named Sensor in the system. - - Class variables: - - ButtonDecodeTable <ByteArray> - maps mouse buttons as reported by the VM to ones reported in the events. - - KeyDecodeTable <Dictionary<SmallInteger->SmallInteger>> - maps some keys and their modifiers to other keys (used for instance to map Ctrl-X to Alt-X) - - InterruptSemaphore <Semaphore> - signalled by the the VM and/or the event loop upon receiving an interrupt keystroke. - - InterruptWatcherProcess <Process> - waits on the InterruptSemaphore and then responds as appropriate.! Item was removed: - ----- Method: InputSensor class>>initialize (in category 'class initialization') ----- - initialize - - Smalltalk removeFromStartUpList: self! Item was removed: - ----- Method: InputSensor class>>shutDown (in category 'system startup') ----- - shutDown - EventSensor shutDown! Item was removed: - ----- Method: InputSensor class>>startUp (in category 'system startup') ----- - startUp - EventSensor startUp!

1 0

The Trunk: Kernel-dtl.984.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

1 0

The Trunk: Kernel-dtl.983.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-dtl.983.mcz ==================== Summary ==================== Name: Kernel-dtl.983 Author: dtl Time: 30 January 2016, 2:12:42.962584 pm UUID: 5083c482-91e7-4fc6-b812-ed73abcbd69c Ancestors: Kernel-dtl.982 InputSensor removal. Consolidate class methods. Remove InputSensor from that system startup list, and add EventSensor. =============== Diff against Kernel-dtl.982 =============== Item was added: + ----- Method: EventSensor class>>default (in category 'public') ----- + default + "Answer the default system input sensor, Sensor." + + ^ Sensor! Item was added: + ----- Method: EventSensor class>>defaultCrossPlatformKeys (in category 'class initialization') ----- + defaultCrossPlatformKeys + "Answer a list of key letters that are used for common editing operations + on different platforms." + ^{ $c . $x . $v . $a . $s . $f . $g . $z } + ! Item was changed: ----- Method: EventSensor class>>initialize (in category 'class initialization') ----- initialize + Smalltalk addToStartUpList: self after: Cursor! - self flag: #REMOVE. "temporary initialization method to support InputSensor removal" - "Update the preferences" - { #swapMouseButtons . #swapControlAndAltKeys . #duplicateControlAndAltKeys . #duplicateAllControlAndAltKeys } - do: [ :key | | pref changeSelector | - pref := Preferences preferenceAt: key. - changeSelector := (key , #Changed) asSymbol. - pref ifNotNil: [ pref changeInformee: EventSensor changeSelector: changeSelector ] ]. - ! Item was added: + ----- Method: EventSensor class>>installDuplicateKeyEntryFor: (in category 'key decode table') ----- + installDuplicateKeyEntryFor: c + | key | + key := c asInteger. + "first do control->alt key" + KeyDecodeTable at: { key bitAnd: 16r9F . 2 } put: { key . 8 }. + "then alt->alt key" + KeyDecodeTable at: { key . 8 } put: { key . 8 } + ! Item was added: + ----- Method: EventSensor class>>installKeyDecodeTable (in category 'class initialization') ----- + installKeyDecodeTable + "Create a decode table that swaps some keys if + Preferences swapControlAndAltKeys is set" + KeyDecodeTable := Dictionary new. + Preferences duplicateControlAndAltKeys + ifTrue: [ self defaultCrossPlatformKeys do: + [ :c | self installDuplicateKeyEntryFor: c ] ]. + Preferences swapControlAndAltKeys + ifTrue: [ self defaultCrossPlatformKeys do: + [ :c | self installSwappedKeyEntryFor: c ] ]. + Preferences duplicateAllControlAndAltKeys + ifTrue: [ (Character allByteCharacters select: [:ea | ea isAlphaNumeric]) do: + [ :c | self installDuplicateKeyEntryFor: c ] ]. + ! Item was added: + ----- Method: EventSensor class>>installMouseDecodeTable (in category 'class initialization') ----- + installMouseDecodeTable + "Create a decode table that swaps the lowest-order 2 bits if + Preferences swapMouseButtons is set" + ButtonDecodeTable := Preferences swapMouseButtons + ifTrue: [ByteArray withAll: + ((0 to: 255) collect: [:ea | + ((ea bitAnd: 1) << 1 + bitOr: (ea bitAnd: 2) >> 1) + bitOr: (ea bitAnd: 16rFC) ])] + ifFalse: [ByteArray + withAll: (0 to: 255)]! Item was added: + ----- Method: EventSensor class>>installSwappedKeyEntryFor: (in category 'key decode table') ----- + installSwappedKeyEntryFor: c + | key | + key := c asInteger. + "first do control->alt key" + KeyDecodeTable at: { key bitAnd: 16r9F . 2 } put: { key . 8 }. + "then alt->control key" + KeyDecodeTable at: { key . 8 } put: { key bitAnd: 16r9F . 2 }! Item was added: + ----- Method: EventSensor class>>keyDecodeTable (in category 'key decode table') ----- + keyDecodeTable + ^KeyDecodeTable ifNil: [ self installKeyDecodeTable ]! Item was added: + ----- Method: EventSensor class>>shutDown (in category 'system startup') ----- + shutDown + self default shutDown.! Item was added: + ----- Method: EventSensor class>>startUp (in category 'system startup') ----- + startUp + + self installMouseDecodeTable. + self installKeyDecodeTable. + self default startUp! Item was added: + ----- Method: EventSensor>>installInterruptWatcher (in category 'user interrupts') ----- + installInterruptWatcher + "Initialize the interrupt watcher process. Terminate the old process if any." + "Sensor installInterruptWatcher" + + InterruptWatcherProcess ifNotNil: [InterruptWatcherProcess terminate]. + InterruptSemaphore := Semaphore new. + InterruptWatcherProcess := [self userInterruptWatcher] forkAt: Processor lowIOPriority. + self primInterruptSemaphore: InterruptSemaphore.! Item was added: + ----- Method: EventSensor>>interruptWatcherProcess (in category 'user interrupts') ----- + interruptWatcherProcess + "Answer my interrupt watcher process, if any" + ^InterruptWatcherProcess! Item was added: + ----- Method: EventSensor>>setInterruptKey: (in category 'user interrupts') ----- + setInterruptKey: anInteger + "Register the given keycode as the user interrupt key." + + self primSetInterruptKey: anInteger. + ! Item was changed: ----- Method: EventSensor>>shutDown (in category 'initialize') ----- shutDown + InterruptWatcherProcess ifNotNil: [ + InterruptWatcherProcess terminate. + InterruptWatcherProcess := nil ].! - super shutDown. - EventTicklerProcess ifNotNil: [ - EventTicklerProcess terminate. - EventTicklerProcess := nil. ]. - inputSemaphore ifNotNil:[Smalltalk unregisterExternalObject: inputSemaphore]. - ! Item was changed: ----- Method: EventSensor>>startUp (in category 'initialize') ----- startUp + self installInterruptWatcher.! - "Run the I/O process" - self initialize. - self primSetInputSemaphore: (Smalltalk registerExternalObject: inputSemaphore). - super startUp. - self installEventTickler. - Smalltalk isMorphic ifTrue:[self flushAllButDandDEvents]. - - "Attempt to discover whether the input semaphore is actually being signaled." - hasInputSemaphore := false. - inputSemaphore initSignals. - ! Item was added: + ----- Method: EventSensor>>userInterruptWatcher (in category 'user interrupts') ----- + userInterruptWatcher + "Wait for user interrupts and open a notifier on the active process when one occurs." + [ InterruptSemaphore wait. + Display deferUpdates: false. + SoundService defaultOrNil ifNotNil: [ : soundSystem | soundSystem shutDown ]. + Smalltalk handleUserInterrupt ] repeat! Item was removed: - ----- Method: InputSensor class>>default (in category 'public') ----- - default - "Answer the default system InputSensor, Sensor." - - ^ Sensor! Item was removed: - ----- Method: InputSensor class>>defaultCrossPlatformKeys (in category 'class initialization') ----- - defaultCrossPlatformKeys - "Answer a list of key letters that are used for common editing operations - on different platforms." - ^{ $c . $x . $v . $a . $s . $f . $g . $z } - ! Item was removed: - ----- Method: InputSensor class>>duplicateControlAndAltKeys: (in category 'public') ----- - duplicateControlAndAltKeys: aBoolean - "InputSensor duplicateControlAndAltKeys: true" - - Preferences setPreference: #duplicateControlAndAltKeys toValue: aBoolean. - self installKeyDecodeTable - ! Item was added: + ----- Method: InputSensor class>>initialize (in category 'class initialization') ----- + initialize + + Smalltalk removeFromStartUpList: self! Item was removed: - ----- Method: InputSensor class>>installDuplicateKeyEntryFor: (in category 'public') ----- - installDuplicateKeyEntryFor: c - | key | - key := c asInteger. - "first do control->alt key" - KeyDecodeTable at: { key bitAnd: 16r9F . 2 } put: { key . 8 }. - "then alt->alt key" - KeyDecodeTable at: { key . 8 } put: { key . 8 } - ! Item was removed: - ----- Method: InputSensor class>>installKeyDecodeTable (in category 'class initialization') ----- - installKeyDecodeTable - "Create a decode table that swaps some keys if - Preferences swapControlAndAltKeys is set" - KeyDecodeTable := Dictionary new. - Preferences duplicateControlAndAltKeys - ifTrue: [ self defaultCrossPlatformKeys do: - [ :c | self installDuplicateKeyEntryFor: c ] ]. - Preferences swapControlAndAltKeys - ifTrue: [ self defaultCrossPlatformKeys do: - [ :c | self installSwappedKeyEntryFor: c ] ]. - Preferences duplicateAllControlAndAltKeys - ifTrue: [ (Character allByteCharacters select: [:ea | ea isAlphaNumeric]) do: - [ :c | self installDuplicateKeyEntryFor: c ] ]. - ! Item was removed: - ----- Method: InputSensor class>>installMouseDecodeTable (in category 'class initialization') ----- - installMouseDecodeTable - "Create a decode table that swaps the lowest-order 2 bits if - Preferences swapMouseButtons is set" - ButtonDecodeTable := Preferences swapMouseButtons - ifTrue: [ByteArray withAll: - ((0 to: 255) collect: [:ea | - ((ea bitAnd: 1) << 1 - bitOr: (ea bitAnd: 2) >> 1) - bitOr: (ea bitAnd: 16rFC) ])] - ifFalse: [ByteArray - withAll: (0 to: 255)]! Item was removed: - ----- Method: InputSensor class>>installSwappedKeyEntryFor: (in category 'public') ----- - installSwappedKeyEntryFor: c - | key | - key := c asInteger. - "first do control->alt key" - KeyDecodeTable at: { key bitAnd: 16r9F . 2 } put: { key . 8 }. - "then alt->control key" - KeyDecodeTable at: { key . 8 } put: { key bitAnd: 16r9F . 2 }! Item was removed: - ----- Method: InputSensor class>>keyDecodeTable (in category 'public') ----- - keyDecodeTable - ^KeyDecodeTable ifNil: [ self installKeyDecodeTable ]! Item was changed: ----- Method: InputSensor class>>shutDown (in category 'system startup') ----- shutDown + EventSensor shutDown! - self default shutDown.! Item was changed: ----- Method: InputSensor class>>startUp (in category 'system startup') ----- startUp + EventSensor startUp! - - self installMouseDecodeTable. - self installKeyDecodeTable. - self default startUp! Item was removed: - ----- Method: InputSensor class>>swapControlAndAltKeys: (in category 'public') ----- - swapControlAndAltKeys: aBoolean - "InputSensor swapControlAndAltKeys: true" - - Preferences setPreference: #swapControlAndAltKeys toValue: aBoolean. - self installKeyDecodeTable! Item was removed: - ----- Method: InputSensor class>>swapMouseButtons: (in category 'public') ----- - swapMouseButtons: aBoolean - "InputSensor swapMouseButtons: true" - - Preferences setPreference: #swapMouseButtons toValue: aBoolean. - self installMouseDecodeTable.! Item was removed: - ----- Method: InputSensor>>flushEvents (in category 'initialize') ----- - flushEvents - "Do nothing"! Item was removed: - ----- Method: InputSensor>>installInterruptWatcher (in category 'user interrupts') ----- - installInterruptWatcher - "Initialize the interrupt watcher process. Terminate the old process if any." - "Sensor installInterruptWatcher" - - InterruptWatcherProcess ifNotNil: [InterruptWatcherProcess terminate]. - InterruptSemaphore := Semaphore new. - InterruptWatcherProcess := [self userInterruptWatcher] forkAt: Processor lowIOPriority. - self primInterruptSemaphore: InterruptSemaphore.! Item was removed: - ----- Method: InputSensor>>interruptWatcherProcess (in category 'user interrupts') ----- - interruptWatcherProcess - "Answer my interrupt watcher process, if any" - ^InterruptWatcherProcess! Item was removed: - ----- Method: InputSensor>>setInterruptKey: (in category 'user interrupts') ----- - setInterruptKey: anInteger - "Register the given keycode as the user interrupt key." - - self primSetInterruptKey: anInteger. - ! Item was removed: - ----- Method: InputSensor>>shutDown (in category 'initialize') ----- - shutDown - InterruptWatcherProcess ifNotNil: [ - InterruptWatcherProcess terminate. - InterruptWatcherProcess := nil ].! Item was removed: - ----- Method: InputSensor>>startUp (in category 'initialize') ----- - startUp - self installInterruptWatcher.! Item was removed: - ----- Method: InputSensor>>userInterruptWatcher (in category 'user interrupts') ----- - userInterruptWatcher - "Wait for user interrupts and open a notifier on the active process when one occurs." - [ InterruptSemaphore wait. - Display deferUpdates: false. - SoundService defaultOrNil ifNotNil: [ : soundSystem | soundSystem shutDown ]. - Smalltalk handleUserInterrupt ] repeat!

1 0

The Trunk: Kernel-dtl.983.mcz
by commits＠source.squeak.org 02 Feb '16

02 Feb '16

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2016