Packages June 2016

packages@lists.squeakfoundation.org

1 participants
85 discussions

The Trunk: Collections-ul.698.mcz
by commits＠source.squeak.org 07 Jun '16

07 Jun '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.698.mcz ==================== Summary ==================== Name: Collections-ul.698 Author: ul Time: 2 June 2016, 11:47:32.688405 pm UUID: cf02bd5c-5cfa-499c-88df-c00ae1760a38 Ancestors: Collections-ul.697 Heap revamp #3: - Heap is a subclass of Collection instead of SequenceableCollection. - Heap has it's own category Collections-Heap; just like how it is with Stack. - Updated class comment. =============== Diff against Collections-ul.697 =============== Item was changed: SystemOrganization addCategory: #'Collections-Abstract'! SystemOrganization addCategory: #'Collections-Arrayed'! SystemOrganization addCategory: #'Collections-Cache'! SystemOrganization addCategory: #'Collections-Exceptions'! SystemOrganization addCategory: #'Collections-Sequenceable'! SystemOrganization addCategory: #'Collections-Stack'! SystemOrganization addCategory: #'Collections-Streams'! SystemOrganization addCategory: #'Collections-Strings'! SystemOrganization addCategory: #'Collections-Support'! SystemOrganization addCategory: #'Collections-Text'! SystemOrganization addCategory: #'Collections-Unordered'! SystemOrganization addCategory: #'Collections-Weak'! + SystemOrganization addCategory: #'Collections-Heap'! Item was changed: + Collection subclass: #Heap - SequenceableCollection subclass: #Heap instanceVariableNames: 'array tally sortBlock indexUpdateBlock' classVariableNames: '' poolDictionaries: '' + category: 'Collections-Heap'! - category: 'Collections-Sequenceable'! + !Heap commentStamp: 'ul 6/2/2016 23:45' prior: 0! + I implement a special data structure called Binary Heap [ https://en.wikipedia.org/wiki/Binary_heap ], which is the most commonly used variant of the Heap data structure [ https://en.wikipedia.org/wiki/Heap_%28data_structure%29 ]. - !Heap commentStamp: 'nice 9/30/2010 23:22' prior: 0! - Class Heap implements a special data structure commonly referred to as 'heap' [ http://en.wikipedia.org/wiki/Heap_%28data_structure%29 ] A Heap is a kind of binary tree stored in a linear array - see details after the instance variables description. Heaps are good at handling priority queues because: 1) greatest priority element according to the sort block will be stored in first position and thus accessed in O(1) operations 2) worse time for inserting or removing an element is in O(log n) operations, where n is the size of the Heap Insertion/Removal times are more efficient than above upper bound, provided that: a) Elements are only removed at the beginning b) Elements are added with arbitrary sort order. 3) there is no need to fully sort the Heap, which makes it more efficient than a SortedCollection + The heap can be fully sorted by sending the message #sort. - The heap can be fully sorted by sending the message #fullySort. Worse time for fully sorting the Heap is in O(n log n) operations, but this is rarely used a feature. Remind that the Heap does not fully sort the collection if you don't ask. Thus don't expect #do: and other iterators to enumerate elements according to the sortBlock order. Instance variables: + array <Array> The data repository - array <Array> The data repository tally <Integer> The number of elements in the heap sortBlock <Block|nil> A two-argument block defining the sort order, or nil in which case the default sort order is [:element1 :element2| element1 <= element2] indexUpdateBlock <Block|nil> A two-argument block of the form [:data :index | ... ] which allows an application object to keep track of its index within the heap. Useful for quick heap update when object's sort value changes (for example, when an object in a priority queue has its priority increased by an external event, you don't want to have to search through the whole heap to find the index before fixing the heap). No update occurs if nil. The Heap can be viewed as a binary tree (every node in the tree has at most two children). The root is stored in first slot of internal array. The children are stored in next two slots. The children of children in next four slots. etc... For a node A of index i (1 based), the two children B1 and B2 are thus stored in indices (2*i) and (2*i+1). Of course, the children indices must be less than the tally otherwise they are considered inexistent. The Heap does arrange to preserve the following invariant: + For any children B of a node A, A is sorted before B, in other words, (sortBlock value: A value: B) = true - For any children B of a node A, A is sorted before B, in other words, (self sort: A before: B) = true This implies that the root is always the first element according to sort order. !

1 0

The Trunk: Multilingual-tpr.214.mcz
by commits＠source.squeak.org 07 Jun '16

07 Jun '16

tim Rowledge uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-tpr.214.mcz ==================== Summary ==================== Name: Multilingual-tpr.214 Author: tpr Time: 6 June 2016, 5:59:22.145354 pm UUID: 221bdccd-de05-41df-a529-c2ad22dd7762 Ancestors: Multilingual-topa.213 make the preferred position for compositing input window take into account any effect of height offset. Why work out the position and then modify it with ugly code when you can do it right first time? See also Morphic-tpr.1168 =============== Diff against Multilingual-topa.213 =============== Item was changed: ----- Method: ImmX11>>keyboardFocusForAMorph: (in category 'keyboard') ----- keyboardFocusForAMorph: aMorph aMorph ifNil: [^ self]. [ | left bottom pos | pos := aMorph preferredKeyboardPosition. left := (pos x min: Display width max: 0) asInteger. + bottom := (pos y min: Display height max: 0) asInteger. - bottom := (pos y min: Display height max: 0) asInteger - + (aMorph paragraph - characterBlockForIndex: aMorph editor selectionInterval first) height. self setCompositionWindowPositionX: left y: bottom ] on: Error do: [:ex |]. !

1 0

The Trunk: Morphic-tpr.1168.mcz
by commits＠source.squeak.org 07 Jun '16

07 Jun '16

tim Rowledge uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tpr.1168.mcz ==================== Summary ==================== Name: Morphic-tpr.1168 Author: tpr Time: 6 June 2016, 5:57:35.057325 pm UUID: 25f07e8c-1f07-4c6f-86af-82ada954a115 Ancestors: Morphic-mt.1167 make the preferred position for compositing input window take into account any effect of height offset. Why work out the position and then modify it with ugly code when you can do it right first time? =============== Diff against Morphic-mt.1167 =============== Item was changed: ----- Method: TextMorph>>preferredKeyboardPosition (in category 'editing') ----- preferredKeyboardPosition - | default rects | + default := (self bounds: self bounds in: World) topLeft. + paragraph + ifNil: [^ default]. - default := (self bounds: self bounds in: World) topLeft. - paragraph ifNil: [^ default]. rects := paragraph selectionRects. + rects size = 0 + ifTrue: [^ default]. + ^ rects first bottomLeft! - rects size = 0 ifTrue: [^ default]. - ^ rects first topLeft. - - "^ (self bounds: self bounds in: World) topLeft." - ! Item was changed: ----- Method: TextMorphForEditView>>preferredKeyboardPosition (in category 'event handling') ----- preferredKeyboardPosition | pos | pos := super preferredKeyboardPosition. + ^ pos + (self boundsInWorld) topLeft. - ^ pos + (self bounds: self bounds in: World) topLeft. !

1 0

The Trunk: ToolBuilder-Morphic-mt.167.mcz
by commits＠source.squeak.org 05 Jun '16

05 Jun '16

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.167.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.167 Author: mt Time: 5 June 2016, 1:29:37.065092 pm UUID: d6d3ad9e-f82f-c44d-b2a6-6d907e129fa1 Ancestors: ToolBuilder-Morphic-mt.166 Appendix to Morphic-mt.1167. Fixes construction of pluggable scroll panes and update of pluggable panel morphs, which are used in pluggable scroll panes. =============== Diff against ToolBuilder-Morphic-mt.166 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') ----- buildPluggableScrollPane: spec + | widget panel | - | widget | widget := self scrollPaneClass new. widget model: spec model. self register: widget id: spec name. spec children ifNotNil: [:obj | "Create panel morph to scroll it." + panel := self pluggablePanelSpec new + model: spec model; - widget morph: (self pluggablePanelSpec new children: obj; layout: spec layout; + horizontalResizing: (spec layout == #proportional ifTrue: [#rigid] ifFalse: [#shrinkWrap]); + verticalResizing: (spec layout == #proportional ifTrue: [#rigid] ifFalse: [#shrinkWrap]); + buildWith: self. + widget morph: panel. + ] - frame: (0@0 corner: 1@1); - buildWith: self). - spec layout ~~ #proportional ifTrue: [ - "Fix #spaceFill resizing because it does not make sense in scroll pane." - widget morph - hResizing: #shrinkWrap; - vResizing: #shrinkWrap. - widget morph submorphsDo: [:m | - m - extent: 100@100; - flag: #refactor; "mt: Restore orginial properties?" - hResizing: #rigid; - vResizing: #rigid] - ]] ifNil: [spec morph ifNotNil: [:m | widget morph: m] ifNil: [widget morphClass: spec morphClass]]. self setFrame: spec frame in: widget. self setLayoutHintsFor: widget spec: spec. parent ifNotNil: [self add: widget to: parent]. widget borderWidth: spec borderWidth. + "Override default scroll bar policies if needed. Widget will use preference values otherwise." + spec hScrollBarPolicy ifNotNil: [:policy | + policy caseOf: { + [#always] -> [widget alwaysShowHScrollBar]. + [#never] -> [widget hideHScrollBarIndefinitely]. + [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]}]. + spec vScrollBarPolicy ifNotNil: [:policy | + policy caseOf: { + [#always] -> [widget alwaysShowVScrollBar]. + [#never] -> [widget hideVScrollBarIndefinitely]. + [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]}]. - spec hScrollBarPolicy caseOf: { - [#always] -> [widget alwaysShowHScrollBar]. - [#never] -> [widget hideHScrollBarIndefinitely]. - [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]}. - spec vScrollBarPolicy caseOf: { - [#always] -> [widget alwaysShowVScrollBar]. - [#never] -> [widget hideVScrollBarIndefinitely]. - [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]}. ^ widget! Item was changed: ----- Method: PluggablePanelMorph>>update: (in category 'update') ----- update: selectorSymbolOrNil selectorSymbolOrNil ifNil: [ ^ self ]. selectorSymbolOrNil = getChildrenSelector ifTrue: [ self removeAllMorphs ; + addAllMorphs: self children . + + "Let my children take all the place unless my extent is described by them." + self hResizing ~~ #shrinkWrap ifTrue: + [ self submorphsDo: [ : m | m hResizing: #spaceFill ] ]. + self vResizing ~~ #shrinkWrap ifTrue: + [ self submorphsDo: [ : m | m vResizing: #spaceFill ] ]. + + "Tell dependents about this update. There is no pluggable notification for changed submorphs." + self changed: #submorphs ].! - addAllMorphs: self children ; - submorphsDo: - [ : m | m - hResizing: #spaceFill ; - vResizing: #spaceFill ] ]!

1 0

The Trunk: ToolBuilder-Kernel-mt.98.mcz
by commits＠source.squeak.org 05 Jun '16

05 Jun '16

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.98.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.98 Author: mt Time: 5 June 2016, 1:28:09.522092 pm UUID: 7db99959-90a8-6b47-89ac-bffa8c34a151 Ancestors: ToolBuilder-Kernel-mt.97 Appendix to Morphic-mt.1167. =============== Diff against ToolBuilder-Kernel-mt.97 =============== Item was changed: ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy (in category 'accessing') ----- hScrollBarPolicy + ^ hScrollBarPolicy! - ^ hScrollBarPolicy ifNil: [#always]! Item was changed: ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy (in category 'accessing') ----- vScrollBarPolicy + ^ vScrollBarPolicy! - ^ vScrollBarPolicy ifNil: [#always]!

1 0

The Trunk: Morphic-mt.1167.mcz
by commits＠source.squeak.org 05 Jun '16

05 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1167.mcz ==================== Summary ==================== Name: Morphic-mt.1167 Author: mt Time: 5 June 2016, 1:27:11.378092 pm UUID: dbeb51b9-bbf3-fa47-b020-b045338dc0d3 Ancestors: Morphic-mt.1166 Fixes bugs in pluggable scroll panes constructed with the tool builder. There were issues with the scroll deltas and resizing hints. =============== Diff against Morphic-mt.1166 =============== Item was changed: ----- Method: PluggableScrollPane>>morph: (in category 'accessing') ----- morph: morphToScroll + morph ifNotNil: [:m | m removeDependent: self]. + morphToScroll topLeft: 0@0. morph := morphToScroll. morphClass := morphToScroll class. + morph addDependent: self. + self scroller removeAllMorphs; addMorph: morph. self updateMorph.! Item was added: + ----- Method: PluggableScrollPane>>update: (in category 'updating') ----- + update: aspect + + aspect == #submorphs + ifTrue: [self updateMorph]. + + super update: aspect.! Item was changed: ----- Method: PluggableScrollPane>>updateMorph (in category 'updating') ----- updateMorph self morph fullBounds. + self setScrollDeltas.! - self setScrollDeltas. - - scrollBar setValue: 0.0. - hScrollBar setValue: 0.0.!

1 0

The Trunk: Morphic-mt.1166.mcz
by commits＠source.squeak.org 05 Jun '16

05 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1166.mcz ==================== Summary ==================== Name: Morphic-mt.1166 Author: mt Time: 5 June 2016, 9:31:27.57571 am UUID: b8c7c456-a88e-3143-8c24-09fae212f9b9 Ancestors: Morphic-mt.1165 Fixes the bug where the text cursor was not blinking in text morphs after a dialog box appeared and was closed again. For blinking text cursors, make the ifNil-check for paragraphs useful again. Using the accessor #paragraph will always create a paragraph. We have to directly check the instance variable to make this improvement effective. Note that regular TextMorphs do not keep track of their editors and paragraphs after they lose keyboard focus. I am not sure why but this seems to be a performance optimization. =============== Diff against Morphic-mt.1165 =============== Item was changed: ----- Method: TextMorph>>keyboardFocusChange: (in category 'event handling') ----- + keyboardFocusChange: weHaveFocus + + paragraph ifNotNil: [:para | para focused: weHaveFocus]. + + weHaveFocus + ifTrue: [ "A hand is wanting to send us characters..." - keyboardFocusChange: aBoolean - | w | - paragraph isNil ifFalse:[paragraph focused: aBoolean]. - aBoolean ifTrue:["A hand is wanting to send us characters..." self hasFocus ifFalse: [self editor "Forces install"]. + Editor blinkingCursor + ifTrue: [self startBlinking] + ifFalse: [self resetBlinkCursor "ensure caret visible"]] + ifFalse: [ "A hand has clicked elsewhere..." + self world ifNotNil: [:w | + self flag: #suspicious. "mt: Why should this be called with 'false' if a hand holds on the focus? Do hands not talk to each other before sending this call? They should..." + w handsDo: [:h | h keyboardFocus == self ifTrue: [^self]]. + "Release control unless some hand is still holding on" + self releaseEditor]. + self stopBlinking]. - Editor blinkingCursor ifTrue: [ self startBlinking ]. - ] ifFalse:["A hand has clicked elsewhere..." - (w := self world) ifNotNil:[ - w handsDo: [:h | h keyboardFocus == self ifTrue: [^self]]. - "Release control unless some hand is still holding on" - self releaseEditor]. - self stopBlinking. - ]. ! Item was changed: ----- Method: TextMorph>>onBlinkCursor (in category 'blinking') ----- onBlinkCursor + - "Blink the cursor" | para | + para := paragraph ifNil: [^nil]. + Time millisecondClockValue < self blinkStart + ifTrue: [para showCaret: para focused] + ifFalse: [para showCaret: para showCaret not]. - para := self paragraph ifNil:[^nil]. - Time millisecondClockValue < self blinkStart ifTrue:[ - "don't blink yet" - ^para showCaret: para focused. - ]. - para showCaret: para showCaret not. para caretRect ifNotNil: [ :r | self invalidRect: r].! Item was changed: ----- Method: TextMorph>>resetBlinkCursor (in category 'blinking') ----- resetBlinkCursor "Reset the blinking cursor" | para | self blinkStart: Time millisecondClockValue + 500. + para := paragraph ifNil: [^self]. - para := self paragraph ifNil:[^self]. para showCaret = para focused ifFalse:[ para caretRect ifNotNil: [ :r | self invalidRect: r]. para showCaret: para focused. ]. ! Item was changed: ----- Method: TextMorph>>stopBlinking (in category 'blinking') ----- stopBlinking self stopSteppingSelector: #onBlinkCursor. + self resetBlinkCursor. "Ensure caret visible."! - ! Item was changed: ----- Method: TextMorphForEditView>>keyboardFocusChange: (in category 'event handling') ----- + keyboardFocusChange: weHaveFocus + "Overwritten because we do not want to release the editor if we do not have the focus. Editors and their paragraphs store the text selection, which we want to reuse after getting keyboard focus again. This supports keyboard navigation." + + paragraph ifNotNil: [:para | para focused: weHaveFocus]. + + weHaveFocus + ifFalse: [self stopBlinking] - keyboardFocusChange: aBoolean - "rr 3/21/2004 22:55 : removed the #ifFalse: branch, - which was responsible of the deselection of text when the - paragraph lost focus. This way selection works in a more standard - way, and this permits the menu keyboard control to be really effective" - paragraph isNil ifFalse:[paragraph focused: aBoolean]. - aBoolean ifTrue: [ + self hasFocus + ifFalse: [self editor "forces install"]. + Editor blinkingCursor + ifTrue: [self startBlinking] + ifFalse: [self resetBlinkCursor "ensure caret visible"]]. + - "A hand is wanting to send us characters..." - self hasFocus ifFalse: [self editor "Forces install"]. - Editor blinkingCursor ifTrue: [self startBlinking]] - ifFalse:[ - self stopBlinking]. self changed. "Tell my edit-view about this because I am his delegate." + self editView keyboardFocusChange: weHaveFocus. - self editView keyboardFocusChange: aBoolean. ! Item was changed: ----- Method: UserDialogBoxMorph>>runModalIn:forHand:at: (in category 'running') ----- runModalIn: aWorld forHand: aHand at: aPointOrNil "Ensure that we have a reasonable minimum size" | oldFocus pos offset | (ProvideAnswerNotification signal: self label asString) ifNotNil:[:answer| ^answer]. self openInWorld: aWorld. pos := aPointOrNil ifNil: [ "If called after a longer UI operation, be sure to use the current mouse cursor. Hand position is not up-to-date. Do one world cycle does not help if there are currently no mouse events. So, we *have to be* this extreme." Sensor cursorPoint]. offset := aPointOrNil ifNil: [selectedButton fullBounds origin - (selectedButton fullBounds extent // 2 * (-1@1))] ifNotNil: [self fullBounds extent // 2]. self setConstrainedPosition: pos - offset hangOut: false. oldFocus := aHand keyboardFocus. aHand newMouseFocus: self. aHand newKeyboardFocus: self. savedLabel := selectedButton label. [self isInWorld] whileTrue:[aWorld doOneSubCycle]. + oldFocus ifNotNil:[aHand newKeyboardFocus: oldFocus]. - oldFocus ifNotNil:[aHand keyboardFocus: oldFocus]. ^value!

1 0

The Trunk: Morphic-mt.1165.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1165.mcz ==================== Summary ==================== Name: Morphic-mt.1165 Author: mt Time: 4 June 2016, 7:29:48.10522 pm UUID: befe813b-f402-eb44-91db-cbe5582acd62 Ancestors: Morphic-mt.1164 Event listeners receive event copies again. For backwards compatibility. Note that we can now use event filters to implement keyboard shortcuts. A handled shortcut can ignore the respective event directly in the event filter. We might want to remove event listeners in the future. =============== Diff against Morphic-mt.1164 =============== Item was changed: ----- Method: HandMorph>>sendListenEvent:to: (in category 'private events') ----- sendListenEvent: anEvent to: listenerGroup "Send the event to the given group of listeners" listenerGroup ifNil:[^self]. listenerGroup do:[:listener| + listener ifNotNil:[listener handleListenEvent: anEvent copy]].! - listener ifNotNil:[listener handleListenEvent: anEvent]].!

1 0

The Trunk: Morphic-mt.1164.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1164.mcz ==================== Summary ==================== Name: Morphic-mt.1164 Author: mt Time: 4 June 2016, 7:23:27.090866 pm UUID: 5e45c00f-7313-1449-86b4-7193cc8c0a62 Ancestors: Morphic-mt.1163 Fixes regression with system windows that get locked-in modally and thus have modal owners or a modal child. There was an endless loop then trying to #comeToFront. CMD+K spawns a font chooser in every text morph, for example, which is modally locked to the underlying code editing window. =============== Diff against Morphic-mt.1163 =============== Item was changed: ----- Method: SystemWindow>>comeToFront (in category 'top window') ----- comeToFront - "If I am modal, bring along my modal owning window and my model child as well. Ensure that my label is visible." + "Modal windows: Walk along the modal owner chain, the bring all to top." + self modalOwner ifNotNil: [:mo | mo isSystemWindow ifTrue: [ + ^ mo modalOwner + ifNil: [mo comeToFrontModally] + ifNotNil: [:omo | omo comeToFront]]]. + self modalChild ifNotNil: [^ self comeToFrontModally]. + - "Model window: Bring up my modal owner behind me." - self modalOwner ifNotNil: - [ : mo | mo isSystemWindow ifTrue: - [ mo comeToFront ] ]. - "Now show me." super comeToFront. + - - "Modal window: Bring up my modal children in front of me." - self modalChild ifNotNil: - [ : modalChild | modalChild owner ifNotNil: - [ modalChild comeToFront. - ^ modalChild modalChild ifNil: [ modalChild flash ] ] ]. - "Label should be visible to interact with." self assureLabelAreaVisible. "Handle historic companions. May be removed in the future." self extantSketchEditor ifNotNil: [:sketchEditor | sketchEditor comeToFront. (self world findA: PaintBoxMorph) ifNotNil: [:pal | pal comeToFront]].! Item was added: + ----- Method: SystemWindow>>comeToFrontModally (in category 'top window') ----- + comeToFrontModally + "If I am modal, bring along my modal owning window and my model child as well." + + super comeToFront. + + "Bring up my modal children in front of me." + self modalChild ifNotNil: [:wnd | + wnd comeToFrontModally. + wnd modalChild ifNil: [wnd flash]].!

1 0

The Trunk: Morphic-mt.1163.mcz
by commits＠source.squeak.org 04 Jun '16

04 Jun '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1163.mcz ==================== Summary ==================== Name: Morphic-mt.1163 Author: mt Time: 4 June 2016, 6:53:04.95683 pm UUID: cb5b0690-e94a-a945-8c0b-aa83a2b22cb8 Ancestors: Morphic-mt.1162 Use event filters to implement keyboard shortcuts (world, docking bar, system windows). =============== Diff against Morphic-mt.1162 =============== Item was added: + ----- Method: DockingBarMorph>>filterEvent:for: (in category 'events-processing') ----- + filterEvent: aKeyboardEvent for: anObject + "Provide keyboard shortcuts." + + | index itemToSelect | + + aKeyboardEvent isKeyDown "No #isKeystroke to improve compatibility for all platforms." + ifFalse: [^ aKeyboardEvent]. + + aKeyboardEvent controlKeyPressed + ifFalse: [^ aKeyboardEvent]. + + "Search field." + aKeyboardEvent keyCharacter = $0 + ifTrue: [ + self searchBarMorph ifNotNil: [ :morph | + morph model activate: aKeyboardEvent in: morph ]. + ^ aKeyboardEvent ignore "hit!!"]. + + "Select menu items." + (aKeyboardEvent keyValue + between: $1 asciiValue + and: $9 asciiValue) + ifFalse: [^ aKeyboardEvent]. + + index := aKeyboardEvent keyValue - $1 asciiValue + 1. + itemToSelect := (self submorphs select: [ :each | + each isKindOf: DockingBarItemMorph ]) + at: index + ifAbsent: [^ aKeyboardEvent]. + + self activate: aKeyboardEvent. + self + selectItem: itemToSelect + event: aKeyboardEvent. + + ^ aKeyboardEvent ignore "hit!!"! Item was removed: - ----- Method: DockingBarMorph>>handleListenEvent: (in category 'events-processing') ----- - handleListenEvent: anEvent - " I am registered as a keyboardListener of the ActiveHand, - watching for ctrl-<n> keystrokes, and upon them if I have - an nth menu item, I'll activate myself and select it. " - - (anEvent controlKeyPressed and: [ - anEvent keyValue - between: 48 " $0 asciiValue " - and: 55 " $7 asciiValue " ]) ifTrue: [ - | index itemToSelect | - index := anEvent keyValue - 48. - itemToSelect := (submorphs select: [ :each | - each isKindOf: DockingBarItemMorph ]) - at: index - ifAbsent: [ - ^self searchBarMorph ifNotNil: [ :morph | - morph model activate: anEvent in: morph ] ]. - self activate: anEvent. - self - selectItem: itemToSelect - event: anEvent ]! Item was removed: - ----- Method: DockingBarMorph>>setupGlobalHotKeyEventListeners (in category 'initialize-release') ----- - setupGlobalHotKeyEventListeners - PasteUpMorph globalCommandKeysEnabled - ifTrue: [ ActiveHand addKeyboardListener: self ] - ifFalse: [ ActiveHand removeKeyboardListener: self ]! Item was changed: ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- createOrUpdateMainDockingBar "Private - create a new main docking bar or update the current one" | w mainDockingBars | w := self world. mainDockingBars := w mainDockingBars. mainDockingBars isEmpty ifTrue: [ "no docking bar, just create a new one" self dockingBar createDockingBar + openInWorld: w . - openInWorld: w ; - setupGlobalHotKeyEventListeners. ^ self ]. "update if needed" mainDockingBars do: + [ : each | self dockingBar updateIfNeeded: each ]! - [ : each | self dockingBar updateIfNeeded: each. - each setupGlobalHotKeyEventListeners ]! Item was changed: ----- Method: PasteUpMorph class>>globalCommandKeysEnabled: (in category 'preferences') ----- + globalCommandKeysEnabled: aBoolean + + GlobalCommandKeysEnabled = aBoolean ifTrue: [^ self]. - globalCommandKeysEnabled: aBoolean GlobalCommandKeysEnabled := aBoolean. + + SystemWindow allSubInstancesDo: [:ea | + aBoolean + ifTrue: [ea addKeyboardShortcuts] + ifFalse: [ea removeKeyboardShortcuts]]. + + PasteUpMorph allSubInstancesDo: [:ea | + aBoolean + ifTrue: [ea addKeyboardShortcuts] + ifFalse: [ea removeKeyboardShortcuts]].! - aBoolean - ifTrue: - [ ActiveHand - addKeyboardListener: SystemWindow topWindow ; - addKeyboardListener: ActiveWorld. - ActiveWorld dockingBars do: - [ : each | ActiveHand addKeyboardListener: each ] ] - ifFalse: - [ ActiveHand - removeKeyboardListener: SystemWindow topWindow ; - removeKeyboardListener: ActiveWorld. - ActiveWorld dockingBars do: - [ : each | ActiveHand removeKeyboardListener: each ] ]. - TheWorldMainDockingBar updateInstances! Item was added: + ----- Method: PasteUpMorph>>addKeyboardShortcuts (in category 'initialization') ----- + addKeyboardShortcuts + "Install an event capture filter to add shortcuts for global operations like opening a tool." + + self addKeyboardCaptureFilter: self.! Item was changed: ----- Method: PasteUpMorph>>becomeActiveDuring: (in category 'initialization') ----- becomeActiveDuring: aBlock "Make the receiver the ActiveWorld during the evaluation of aBlock. Note that this method does deliberately *not* use #ensure: to prevent re-installation of the world on project switches." | priorWorld priorHand priorEvent | priorWorld := ActiveWorld. priorHand := ActiveHand. priorEvent := ActiveEvent. - priorHand removeKeyboardListener: priorWorld. ActiveWorld := self. ActiveHand := self hands first. "default" ActiveEvent := nil. "not in event cycle" - self class globalCommandKeysEnabled ifTrue: [ ActiveHand addKeyboardListener: self ]. aBlock on: Error do: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass]! Item was added: + ----- Method: PasteUpMorph>>filterEvent:for: (in category 'events-processing') ----- + filterEvent: aKeyboardEvent for: anObject + "Provide keyboard shortcuts." + + "Delegate keyboard shortcuts to my docking bars." + self submorphsDo: [:ea | ea isDockingBar ifTrue: [ + ea filterEvent: aKeyboardEvent for: anObject. "No support for converting events here!!" + aKeyboardEvent wasIgnored ifTrue: [^ aKeyboardEvent "early out"]]]. + + aKeyboardEvent isKeystroke + ifFalse: [^ aKeyboardEvent]. + + aKeyboardEvent commandKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { + [$R] -> [Utilities browseRecentSubmissions]. + [$L] -> [self findAFileList: aKeyboardEvent]. + [$O] -> [self findAMonticelloBrowser]. + [$P] -> [self findAPreferencesPanel: aKeyboardEvent]. + "[$Z] -> [ChangeList browseRecentLog]." + [$]] -> [Smalltalk snapshot: true andQuit: false]. + } otherwise: [^ aKeyboardEvent "no hit"]. + ^ aKeyboardEvent ignore "hit!!"]. + + ^ aKeyboardEvent "no hit"! Item was removed: - ----- Method: PasteUpMorph>>handleListenEvent: (in category 'events-processing') ----- - handleListenEvent: aUserInputEvent - "Handlers for *global* keys, regardless of which widget has keyboard focus." - aUserInputEvent type = #keystroke ifTrue: - [ aUserInputEvent commandKeyPressed ifTrue: - [ aUserInputEvent keyValue = $R asciiValue ifTrue: [ Utilities browseRecentSubmissions ]. - aUserInputEvent keyValue = $L asciiValue ifTrue: [ World findAFileList: aUserInputEvent ]. - aUserInputEvent keyValue = $O asciiValue ifTrue: [ World findAMonticelloBrowser ]. - aUserInputEvent keyValue = $P asciiValue ifTrue: [ World findAPreferencesPanel: aUserInputEvent ]. - "aUserInputEvent keyValue = $Z asciiValue ifTrue: [ ChangeList browseRecentLog ]." - aUserInputEvent keyValue = $] asciiValue ifTrue: - [ Smalltalk - snapshot: true - andQuit: false ] ] ]! Item was changed: ----- Method: PasteUpMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" cursor := 1. padding := 3. self enableDragNDrop. self isWorldMorph ifTrue: [self setProperty: #automaticPhraseExpansion toValue: true]. + self clipSubmorphs: true. + self initializeKeyboardShortcuts.! - self clipSubmorphs: true! Item was added: + ----- Method: PasteUpMorph>>initializeKeyboardShortcuts (in category 'initialization') ----- + initializeKeyboardShortcuts + "Install an event capture filter to add shortcuts for global operations like opening a tool." + + PasteUpMorph globalCommandKeysEnabled + ifTrue: [self addKeyboardShortcuts].! Item was added: + ----- Method: PasteUpMorph>>removeKeyboardShortcuts (in category 'initialization') ----- + removeKeyboardShortcuts + + self removeKeyboardCaptureFilter: self.! Item was added: + ----- Method: SystemWindow>>addKeyboardShortcuts (in category 'initialization') ----- + addKeyboardShortcuts + "Install an event capture filter to add shortcuts for window control operations." + + self addKeyboardCaptureFilter: self.! Item was changed: ----- Method: SystemWindow>>beKeyWindow (in category 'top window') ----- beKeyWindow "Let me be the most important window on the screen. I am at the top and I can have a shadow to get more attention by the user. I am the window that is responsible for window keyboard shortcuts." | oldKeyWindow | self isKeyWindow ifTrue: [^ self]. oldKeyWindow := TopWindow. TopWindow := self. - PasteUpMorph globalCommandKeysEnabled ifTrue: - [ self activeHand addKeyboardListener: self ]. - self unlockWindowDecorations; "here, because all windows might be active anyway" activate; "if not already active, activate now" comeToFront. "key windows are on top" "Change appearance to get noticed." self hasDropShadow: Preferences menuAppearance3d. (self valueOfProperty: #borderWidthWhenActive) ifNotNil: [:bw | self acquireBorderWidth: bw]. oldKeyWindow ifNotNil: [:wnd | wnd passivateIfNeeded. - self activeHand removeKeyboardListener: oldKeyWindow. - "Change appearance to not look prettier than the new key window." wnd hasDropShadow: false. (wnd valueOfProperty: #borderWidthWhenInactive) ifNotNil: [:bw | wnd acquireBorderWidth: bw]]. "Synchronize focus look with position of current hand because any call could have made this window the new key window." self updateFocusLookAtHand.! Item was added: + ----- Method: SystemWindow>>filterEvent:for: (in category 'events') ----- + filterEvent: aKeyboardEvent for: anObject + "Provide keyboard shortcuts." + + aKeyboardEvent isKeystroke + ifFalse: [^ aKeyboardEvent]. + + aKeyboardEvent commandKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { + [$\] -> [self class sendTopWindowToBack]. + [Character escape] -> [self delete]. + } otherwise: [^ aKeyboardEvent "no hit"]. + ^ aKeyboardEvent ignore "hit!!"]. + + aKeyboardEvent controlKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter caseOf: { + [Character escape] -> [self world findWindow: aKeyboardEvent]. + } otherwise: [^ aKeyboardEvent "no hit"]. + ^ aKeyboardEvent ignore "hit!!"]. + + ^ aKeyboardEvent "no hit"! Item was changed: ----- Method: SystemWindow>>handleListenEvent: (in category 'events') ----- handleListenEvent: aUserInputEvent + "See #mouseEnterDragging:. Watch for finished drag-and-drop action and lock contents accordingly." - "1) Handle keyboard shortcuts" - aUserInputEvent type = #keystroke ifTrue: - [ aUserInputEvent commandKeyPressed ifTrue: - [ aUserInputEvent keyValue = $\ asciiValue ifTrue: [ self class sendTopWindowToBack ]. - "Command+Escape" - aUserInputEvent keyValue = 27 ifTrue: - [ aUserInputEvent wasHandled: true. - self delete ] ]. - aUserInputEvent controlKeyPressed ifTrue: - [ aUserInputEvent keyValue = 27 ifTrue: [ self world findWindow: aUserInputEvent ] ] ]. - - "2) See #mouseEnterDragging:. Watch for finished drag-and-drop action and lock contents accordingly." (aUserInputEvent isMouse and: [ aUserInputEvent hand hasSubmorphs not ]) ifTrue: [ self isKeyWindow ifFalse: [ self passivateIfNeeded ]. aUserInputEvent hand removeMouseListener: self ].! Item was changed: ----- Method: SystemWindow>>initialize (in category 'initialization') ----- initialize "Initialize a system window. Add label, stripes, etc., if desired" super initialize. self layoutPolicy: ProportionalLayout new. self wantsPaneSplitters: true. self layoutInset: ProportionalSplitterMorph gripThickness. self cellInset: ProportionalSplitterMorph gripThickness. self initializeLabelArea. self addCornerGrips. self setDefaultParameters. allowReframeHandles := true. isCollapsed := false. paneMorphs := Array new. mustNotClose := false. + updatablePanes := Array new. + + self initializeKeyboardShortcuts.! - updatablePanes := Array new.! Item was added: + ----- Method: SystemWindow>>initializeKeyboardShortcuts (in category 'initialization') ----- + initializeKeyboardShortcuts + "Install an event capture filter to add shortcuts for window control operations." + + PasteUpMorph globalCommandKeysEnabled + ifTrue: [self addKeyboardShortcuts].! Item was added: + ----- Method: SystemWindow>>removeKeyboardShortcuts (in category 'initialization') ----- + removeKeyboardShortcuts + + self removeKeyboardCaptureFilter: self.! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'SystemWindow allSubInstancesDo: [:ea | + ea initializeKeyboardShortcuts. + HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]]. + PasteUpMorph allSubInstancesDo: [:ea | + ea initializeKeyboardShortcuts. + HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]]. + DockingBarMorph allSubInstancesDo: [:ea | + HandMorph allInstancesDo: [:hand | hand removeKeyboardListener: ea]].'! - (PackageInfo named: 'Morphic') postscript: 'SystemWindow reconfigureWindowsForFocus.'!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2016