Squeak-dev January 2016

squeak-dev@lists.squeakfoundation.org

40 participants
206 discussions

InputSensor, EventSensor miscategorised?
by Frank Shearar 01 Feb '16

01 Feb '16

Kernel-Processes has Delay, Process, Monitor, Mutex, FutureMaker, Promise, etc. All these work together. They fit nicely in the category. And then there's InputSensor, EventSensor and EventSensorConstants. What. Where _should_ these classes belong? Maybe we should have a Kernel-Device or Kernel-Input category? (I'll not mention how Kernel's InputSensor >> #keyboard uses TextConverter that causes a dependency on Multilingual, which of course has a dependency on Kernel... oh, wait, I did.) frank

9 34

Squeak Board 2016 Candidates wanted
by Ron Teitelbaum 01 Feb '16

01 Feb '16

Hi all, We currently have 7 candidates for 7 board seats. By order of announcement: Tim Rowledge Marcel Taeumel Craig Latta Bert Freudenberg Chris Muller David T. Lewis Edgar J. De Cleene That is great but it would be nice to have more candidates! You have until Monday to announce your candidacy. If you are going to run now is the time! Also please remember that it is important to VOTE! Even if we have 7 candidates and 7 seats please VOTE! I have heard from some of you that you feel very well represented by your board, which is great! Voting is one way to tell them you support them! You can follow the details of this election here: http://wiki.squeak.org/squeak/6346 All the best, Ron Teitelbaum Head Of Engineering 3D Immersive Collaboration Consulting <mailto:ron@3Dicc.com> ron(a)3Dicc.com Follow Me On Twitter: <https://twitter.com/RonTeitelbaum> @RonTeitelbaum <http://www.3Dicc.com> www.3Dicc.com <https://www.google.com/+3Dicc> https://www.google.com/+3Dicc

2 1

InputSensor removal ready for review (was: The Inbox: Kernel-dtl.985.mcz)
by David T. Lewis 31 Jan '16

31 Jan '16

This completes the removal of InputSensor, which is replaced by EventSensor. I would appreciate another set of eyes on this, but if there are no issues I will move it to trunk some time soon. Some update maps will be needed as well as a minor update to package System, but aside from that the changes should now be complete. To test from the inbox, load Kernel-dtl.981 through Kernel-dtl.985 in sequence. Class initialization methods should take care of the conversion. Dave On Sat, Jan 30, 2016 at 07:53:41PM +0000, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of Kernel to project The Inbox: > http://source.squeak.org/inbox/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 ===============

2 2

Squeak 4.6: MonticelloConfigurations-topa.138.mcz
by commits＠source.squeak.org 31 Jan '16

31 Jan '16

David T. Lewis uploaded a new version of MonticelloConfigurations to project Squeak 4.6: http://source.squeak.org/squeak46/MonticelloConfigurations-topa.138.mcz ==================== Summary ==================== Name: MonticelloConfigurations-topa.138 Author: topa Time: 24 September 2015, 2:48:24.846 pm UUID: 153b9666-3723-4eb0-b230-7bc75450b892 Ancestors: MonticelloConfigurations-dtl.137 Do not nil out Updaters on initialize, beacuse this can screw the whole update process. =============== Diff against MonticelloConfigurations-dtl.137 =============== Item was changed: ----- Method: MCMcmUpdater class>>initialize (in category 'class initialization') ----- initialize "MCMcmUpdater initialize" DefaultUpdateURL ifNil:[ DefaultUpdateURL := MCHttpRepository trunkUrlString. ]. + "Call + MCMcmUpdater resetUpdaters + manually if necessary"! - Updaters := nil. - ! Item was added: + ----- Method: MCMcmUpdater class>>resetUpdaters (in category 'class initialization') ----- + resetUpdaters + + Updaters := nil.!

1 0

ProcessTest>>testSchedulingIsFirstComeFirstServed
by Ben Coman 31 Jan '16

31 Jan '16

My general understanding of process scheduling is that it is FIFO within same priority. Indeed Pharo has a test for this ProcessTest>>testSchedulingIsFirstComeFirstServed, which however I thought was a bit fragile and I was looking to revise. But now I'm curious whether same-priority-process FIFO scheduling is an expected guarantee? On both Pharo 5 build 50560 & Squeak 5 build 15113 the following test fails... [ 1 to: 100000 do: [ :n | | ranFirst ranSecond | [ [ ranFirst ifNil: [ ranFirst := 1 ] ifNotNil: [ ranSecond := 1] ] forkAt: 78. [ ranFirst ifNil: [ ranFirst := 2 ] ifNotNil: [ ranSecond := 2] ] forkAt: 78. ] forkAt: 79. self assert: ranFirst=1. self assert: ranSecond=2. ] ] fork. ... but only after 20k iterations, which seems an "almost" guarantee. Interestingly, it doesn't fail when run without the outer fork. Also if I take an alternate approach with less message calls... faults := OrderedCollection new. done := Semaphore new. [ 1 to: 10000000 do: [ :n | | ranFirst ranSecond | [ [ ranFirst ifNil: [ ranFirst := 1 ] ifNotNil: [ ranSecond := 1] ] forkAt: 78. [ ranFirst ifNil: [ ranFirst := 2 ] ifNotNil: [ ranSecond := 2] ] forkAt: 78. ] forkAt: 79. (ranFirst=1 and: ranSecond=2) ifFalse: [ faults add: { n . ranFirst . ranSecond } ]. ]. done signal. ] fork. done wait. faults inspect. I only get seven failures in 10 million iterations. "an OrderedCollection( #( 258535 2 1) #(1148605 2 1) #(3502820 2 1) #(4010935 2 1) #(4533713 2 1) #(6301878 2 1) #(8497001 2 1))" So what I'm wondering is if there is a bug to hunt down, or if FIFO scheduling is simply not an expected guarantee? cheers -ben

1 1

Daily Commit Log
by commits＠source.squeak.org 30 Jan '16

30 Jan '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-January/009283.ht… Name: 45Deprecated-dtl.25 Ancestors: 45Deprecated-fbs.24 Move methods from InputSensor to EventSensor to enable InputSensor removal. =============================================

1 0

The Inbox: Kernel-dtl.985.mcz
by commits＠source.squeak.org 30 Jan '16

30 Jan '16

David T. Lewis uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/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

FFI Array of Structs
by Beckmann, Tom 30 Jan '16

30 Jan '16

Dear Squeak devs, I'm trying to send an array of structs to a C library via FFI. Scenario would look about as follows: struct my_struct { float a; float b; }; void myFunction(struct my_struct *list, int count); So far I always failed at the point of "arguments could not be coerced" when trying to use a stamp like this: apiMyFunction: anArray num: aNumber <apicall: void 'myFunction' (MyStruct* long) module: 'mylib.so'> with MyStruct being an ExternalStructure with #((a 'float') (b 'float')) as its >>fields class method. The open question is now how to call this from squeak code, failed attempts so far include: - an "Array" with the MyStruct classes ("could not coerce arguments") - a custom ArrayedCollection subclass ("could not coerce arguments"), even though I wasn't quite sure whether I implemented it correctly - a custom ExternalData subclass "MyStructArray", passing an empty instance leads to a segfault, I'm not sure how I would fill it (<apicall: void 'myFunction' (MyStructArray long) module: 'mylib.so'>) Any help is appreciated! Regards Tom

1 0

The Inbox: Kernel-dtl.984.mcz
by commits＠source.squeak.org 30 Jan '16

30 Jan '16

David T. Lewis uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/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 Inbox: Kernel-dtl.983.mcz
by commits＠source.squeak.org 30 Jan '16

30 Jan '16

David T. Lewis uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/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

Jump to page: