Squeak-dev April 2015

squeak-dev@lists.squeakfoundation.org

38 participants
642 discussions

The Trunk: Morphic-mt.811.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.811.mcz ==================== Summary ==================== Name: Morphic-mt.811 Author: mt Time: 2 April 2015, 11:46:28.024 am UUID: 9490b7c4-b15f-6847-a334-637b0543c8dc Ancestors: Morphic-mt.810 Some fixes in system windows regarding labels. =============== Diff against Morphic-mt.810 =============== Item was removed: - ----- Method: SystemWindow>>externalName (in category 'label') ----- - externalName - "Answer the name by which the receiver is known in the UI" - - ^ labelString! Item was added: + ----- Method: SystemWindow>>knownName (in category 'label') ----- + knownName + + ^ self label! Item was changed: ----- Method: SystemWindow>>setLabel: (in category 'label') ----- setLabel: aString | frame | labelString := aString. label ifNil: [^ self]. + label contents: (aString ifNil: ['']). - label contents: aString. self labelWidgetAllowance. "Sets it if not already" self isCollapsed ifTrue: [self extent: (label width + labelWidgetAllowance) @ (self labelHeight + 2)] ifFalse: [label fitContents; setWidth: (label width min: bounds width - labelWidgetAllowance). label align: label bounds topCenter with: bounds topCenter + (0@borderWidth). collapsedFrame ifNotNil: [collapsedFrame := collapsedFrame withWidth: label width + labelWidgetAllowance]]. frame := LayoutFrame new. frame leftFraction: 0.5; topFraction: 0.5; leftOffset: label width negated // 2; topOffset: label height negated // 2. label layoutFrame: frame. !

1 0

The Trunk: Tools-mt.576.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.576.mcz ==================== Summary ==================== Name: Tools-mt.576 Author: mt Time: 2 April 2015, 11:44:45 am UUID: a36d49ef-4d1f-b644-9acb-abe7a9334b3c Ancestors: Tools-mt.575 Fixes the bug with the wrang label in the system window of object explorers. =============== Diff against Tools-mt.575 =============== Item was changed: ----- Method: ObjectExplorer class>>openOn: (in category 'instance creation') ----- openOn: anObject + ^ ToolBuilder open: (self explore: anObject)! - ^ self openOn: anObject withLabel: nil!

1 0

The Trunk: Morphic-mt.810.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.810.mcz ==================== Summary ==================== Name: Morphic-mt.810 Author: mt Time: 2 April 2015, 11:17:44.865 am UUID: 644a4b6a-4767-ec45-992c-9ed10ac54871 Ancestors: Morphic-mt.809 Exploring a morph via its halo menu now attaches the explorer also to the hand -- like inspecting does. =============== Diff against Morphic-mt.809 =============== Item was changed: ----- Method: Morph>>buildDebugMenu: (in category 'debug and other') ----- buildDebugMenu: aHand "Answer a debugging menu for the receiver. The hand argument is seemingly historical and plays no role presently" | aMenu aPlayer | aMenu := MenuMorph new defaultTarget: self. aMenu addStayUpItem. (self hasProperty: #errorOnDraw) ifTrue: [aMenu add: 'start drawing again' translated action: #resumeAfterDrawError. aMenu addLine]. (self hasProperty: #errorOnStep) ifTrue: [aMenu add: 'start stepping again' translated action: #resumeAfterStepError. aMenu addLine]. aMenu add: 'inspect morph' translated action: #inspectInMorphic:. aMenu add: 'inspect owner chain' translated action: #inspectOwnerChain. Smalltalk isMorphic ifFalse: [aMenu add: 'inspect morph (in MVC)' translated action: #inspect]. self isMorphicModel ifTrue: [aMenu add: 'inspect model' translated target: self model action: #inspect]. (aPlayer := self player) ifNotNil: [aMenu add: 'inspect player' translated target: aPlayer action: #inspect]. + aMenu add: 'explore morph' translated target: self selector: #exploreInMorphic:. - aMenu add: 'explore morph' translated target: self selector: #explore. aMenu addLine. aPlayer ifNotNil: [ aMenu add: 'viewer for Player' translated target: self player action: #beViewed. aMenu balloonTextForLastItem: 'Opens a viewer on my Player -- this is the same thing you get if you click on the cyan "View" halo handle' translated ]. aMenu add: 'viewer for Morph' translated target: self action: #viewMorphDirectly. aMenu balloonTextForLastItem: 'Opens a Viewer on this Morph, rather than on its Player' translated. aMenu addLine. aPlayer ifNotNil: [aPlayer class isUniClass ifTrue: [ aMenu add: 'browse player class' translated target: aPlayer action: #browseHierarchy]]. aMenu add: 'browse morph class' translated target: self selector: #browseHierarchy. (self isMorphicModel) ifTrue: [aMenu add: 'browse model class' target: self model selector: #browseHierarchy]. aMenu addLine. self addViewingItemsTo: aMenu. aMenu add: 'make own subclass' translated action: #subclassMorph; add: 'save morph in file' translated action: #saveOnFile; addLine; add: 'call #tempCommand' translated action: #tempCommand; add: 'define #tempCommand' translated action: #defineTempCommand; addLine; add: 'control-menu...' translated target: self selector: #invokeMetaMenu:; add: 'edit balloon help' translated action: #editBalloonHelpText. ^ aMenu! Item was added: + ----- Method: Morph>>exploreInMorphic (in category 'menus') ----- + exploreInMorphic + self currentHand attachMorph: (ToolSet explore: self).! Item was added: + ----- Method: Morph>>exploreInMorphic: (in category 'menus') ----- + exploreInMorphic: evt + evt hand attachMorph: (ToolSet explore: self).!

1 0

The Trunk: Tools-mt.575.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.575.mcz ==================== Summary ==================== Name: Tools-mt.575 Author: mt Time: 2 April 2015, 11:16:13.988 am UUID: 2f55228c-5225-6443-b1fb-183353e1e261 Ancestors: Tools-mt.574 Made interface of object explorer consistent with interface of inspector. =============== Diff against Tools-mt.574 =============== Item was changed: ----- Method: Inspector>>explorePointers (in category 'menu commands') ----- explorePointers self selectionIndex = 0 ifTrue: [^ self changed: #flash]. + PointerExplorer openOn: self selection.! - PointerExplorer new openExplorerFor: self selection! Item was changed: ----- Method: Object>>explorePointers (in category '*Tools-Debugger') ----- explorePointers + PointerExplorer openOn: self.! - PointerExplorer new openExplorerFor: self! Item was changed: ----- Method: Object>>exploreWithLabel: (in category '*Tools-Explorer') ----- exploreWithLabel: label + ^ ObjectExplorer openOn: self withLabel: label! - ^ ObjectExplorer new openExplorerFor: self withLabel: - label! Item was changed: + ----- Method: ObjectExplorer class>>about (in category 'defaults') ----- - ----- Method: ObjectExplorer class>>about (in category 'as yet unclassified') ----- about StringHolder new textContents: self comment; openLabel: 'about ',self asString! Item was added: + ----- Method: ObjectExplorer class>>explore: (in category 'instance creation') ----- + explore: anObject + + ^ self new explore: anObject! Item was changed: + ----- Method: ObjectExplorer class>>nodeClass (in category 'defaults') ----- - ----- Method: ObjectExplorer class>>nodeClass (in category 'as yet unclassified') ----- nodeClass ^ ObjectExplorerWrapper! Item was added: + ----- Method: ObjectExplorer class>>openOn: (in category 'instance creation') ----- + openOn: anObject + + ^ self openOn: anObject withLabel: nil! Item was added: + ----- Method: ObjectExplorer class>>openOn:withLabel: (in category 'instance creation') ----- + openOn: anObject withLabel: label + "ObjectExplorer openOn: Smalltalk withLabel: 'Smalltalk'" + + ^ ToolBuilder open: (self explore: anObject) label: label! Item was changed: ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec treeSpec textSpec | windowSpec := builder pluggableWindowSpec new. windowSpec model: self; children: OrderedCollection new; label: #label. treeSpec := builder pluggableTreeSpec new. treeSpec model: self; nodeClass: self class nodeClass; roots: #getList; keyPress: #explorerKey:from:event:; getSelected: #currentSelection; setSelected: #currentSelection:; setSelectedParent: #currentParent:; menu: #genericMenu:; autoDeselect: false; columns: (ObjectExplorerWrapper showContentsInColumns ifTrue: [{ [:listMorph | (listMorph filteredItems collect: [:item | item preferredWidthOfColumn: 1]) max]. nil "take all the space"}]); frame: (0@0 corner: 1(a)0.85). windowSpec children add: treeSpec. textSpec := builder pluggableTextSpec new. textSpec model: self; menu: #codePaneMenu:shifted:; help: 'Evaluate expressions for the current tree selection...' translated; frame: (0(a)0.85 corner: 1@1). windowSpec children add: textSpec. + [^ builder build: windowSpec] + ensure: [self changed: #expandRootsRequested]! - ^ builder build: windowSpec! Item was added: + ----- Method: ObjectExplorer>>explore: (in category 'user interface') ----- + explore: anObject + + self rootObject: anObject.! Item was removed: - ----- Method: ObjectExplorer>>openExplorerFor: (in category 'user interface') ----- - openExplorerFor: anObject - "ObjectExplorer new openExplorerFor: Smalltalk." - - ^ self openExplorerFor: anObject withLabel: nil! Item was removed: - ----- Method: ObjectExplorer>>openExplorerFor:withLabel: (in category 'user interface') ----- - openExplorerFor: anObject withLabel: label - "ObjectExplorer new openExplorerFor: Smalltalk withLabel: 'Smalltalk'" - - ToolBuilder open: self label: label. - self rootObject: anObject.! Item was changed: + ----- Method: PointerExplorer class>>nodeClass (in category 'defaults') ----- - ----- Method: PointerExplorer class>>nodeClass (in category 'as yet unclassified') ----- nodeClass ^ PointerExplorerWrapper! Item was changed: ----- Method: StandardToolSet class>>explore: (in category 'inspecting') ----- explore: anObject + + ^ ObjectExplorer openOn: anObject! - "Open an explorer on the given object." - ^ObjectExplorer new openExplorerFor: anObject!

1 0

The Trunk: EToys-topa.120.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Tobias Pape uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-topa.120.mcz ==================== Summary ==================== Name: EToys-topa.120 Author: topa Time: 2 April 2015, 11:03:30.931 am UUID: 759ddd88-411c-4504-a67c-89f0fb6f09f9 Ancestors: EToys-bf.119 Make sure we have a SoundSystem when testing sound. (Alas, DummySoundSystem doesn't cut it here) =============== Diff against EToys-bf.119 =============== Item was changed: TestCase subclass: #TileMorphTest + instanceVariableNames: 'soundSystemBackup' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Etoys-Tests'! Item was added: + ----- Method: TileMorphTest>>setUp (in category 'running') ----- + setUp + + self soundSystemBackup: SoundService defaultOrNil. + SoundService default: BaseSoundSystem.! Item was added: + ----- Method: TileMorphTest>>soundSystemBackup (in category 'accessing') ----- + soundSystemBackup + + ^ soundSystemBackup! Item was added: + ----- Method: TileMorphTest>>soundSystemBackup: (in category 'accessing') ----- + soundSystemBackup: anObject + + soundSystemBackup := anObject! Item was added: + ----- Method: TileMorphTest>>tearDown (in category 'running') ----- + tearDown + + SoundService default: self soundSystemBackup.!

1 0

The Trunk: Sound-topa.43.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Tobias Pape uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-topa.43.mcz ==================== Summary ==================== Name: Sound-topa.43 Author: topa Time: 2 April 2015, 11:00:29.85 am UUID: c1c2b948-6c86-4cf8-877d-1620433f558e Ancestors: Sound-bf.42 Make SoundService registeredClasses class-based. =============== Diff against Sound-bf.42 =============== Item was changed: ----- Method: BaseSoundSystem class>>initialize (in category 'class initialization') ----- initialize + SoundService register: self.! - SoundService register: self new.! Item was changed: ----- Method: BaseSoundSystem class>>unload (in category 'class initialization') ----- unload + SoundService unregister: self! - SoundService registeredClasses do: [:ss | - (ss isKindOf: self) ifTrue: [SoundService unregister: ss]].!

1 0

The Trunk: System-topa.715.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.715.mcz ==================== Summary ==================== Name: System-topa.715 Author: topa Time: 2 April 2015, 10:57:12.703 am UUID: 2a92cef0-6bb4-47b3-994e-994a626d54c8 Ancestors: System-ul.714 Make SoundService registeredClasses class-based. Categorize in AppRegistry =============== Diff against System-ul.714 =============== Item was changed: + ----- Method: AppRegistry class>>appName (in category 'defaults') ----- - ----- Method: AppRegistry class>>appName (in category 'as yet unclassified') ----- appName "Defaults to the class name, which is probably good enough, but you could override this in subclasses if you want to." ^ self name! Item was changed: + ----- Method: AppRegistry class>>askForDefault (in category 'defaults') ----- - ----- Method: AppRegistry class>>askForDefault (in category 'as yet unclassified') ----- askForDefault self registeredClasses isEmpty ifTrue: [self inform: 'There are no ', self appName, ' applications registered.'. ^ default := nil]. self registeredClasses size = 1 ifTrue: [^ default := self registeredClasses anyOne]. default := UIManager default chooseFrom: (self registeredClasses collect: [:ea | ea nameForViewer]) values: self registeredClasses title: 'Which ', self appName, ' would you prefer?'. default ifNil: [default := self registeredClasses first]. ^default.! Item was changed: + ----- Method: AppRegistry class>>default (in category 'accessing') ----- - ----- Method: AppRegistry class>>default (in category 'as yet unclassified') ----- default ^ default ifNil: [self askForDefault]! Item was changed: + ----- Method: AppRegistry class>>default: (in category 'accessing') ----- - ----- Method: AppRegistry class>>default: (in category 'as yet unclassified') ----- default: aClassOrNil "Sets my default to aClassOrNil. Answers the old default." | oldDefault | oldDefault := default. aClassOrNil ifNotNil: [ self register: aClassOrNil ]. default := aClassOrNil. ^ oldDefault! Item was changed: + ----- Method: AppRegistry class>>defaultOrNil (in category 'accessing') ----- - ----- Method: AppRegistry class>>defaultOrNil (in category 'as yet unclassified') ----- defaultOrNil ^ default! Item was changed: + ----- Method: AppRegistry class>>register: (in category 'registration') ----- - ----- Method: AppRegistry class>>register: (in category 'as yet unclassified') ----- register: aProviderClass (self registeredClasses includes: aProviderClass) ifFalse: [default := nil. "so it'll ask for a new default, since if you're registering a new app you probably want to use it" self registeredClasses add: aProviderClass].! Item was changed: + ----- Method: AppRegistry class>>registeredClasses (in category 'registration') ----- - ----- Method: AppRegistry class>>registeredClasses (in category 'as yet unclassified') ----- registeredClasses ^ registeredClasses ifNil: [registeredClasses := OrderedCollection new]! Item was changed: + ----- Method: AppRegistry class>>removeObsolete (in category 'registration') ----- - ----- Method: AppRegistry class>>removeObsolete (in category 'as yet unclassified') ----- removeObsolete "AppRegistry removeObsoleteClasses" self registeredClasses copy do:[:cls| (cls class isObsolete or:[cls isBehavior and:[cls isObsolete]]) ifTrue:[self unregister: cls]]. self subclasses do:[:cls| cls removeObsolete].! Item was changed: + ----- Method: AppRegistry class>>unregister: (in category 'registration') ----- - ----- Method: AppRegistry class>>unregister: (in category 'as yet unclassified') ----- unregister: aProviderClass (default = aProviderClass) ifTrue: [default := nil]. self registeredClasses remove: aProviderClass ifAbsent: [].! Item was changed: ----- Method: DummySoundSystem class>>initialize (in category 'class initialization') ----- initialize + SoundService register: self.! - SoundService register: self new.! Item was changed: ----- Method: DummySoundSystem class>>unload (in category 'class initialization') ----- unload + SoundService unregister: self.! - SoundService registeredClasses do: [:ss | - (ss isKindOf: self) ifTrue: [SoundService unregister: ss]].! Item was added: + ----- Method: SoundService class>>default (in category 'accessing') ----- + default + + | cls | + cls := super default. + ^ cls new! Item was added: + ----- Method: SoundService class>>defaultOrNil (in category 'accessing') ----- + defaultOrNil + + ^ super defaultOrNil ifNotNil: [:default | + default isBehavior ifTrue: [default new] ifFalse: [default]] + ! Item was changed: + (PackageInfo named: 'System') postscript: '" Convert SoundService registeredClasses to classes if necessary " + [ | currentSoundSystem | + currentSoundSystem := SoundService defaultOrNil. + (SoundService registeredClasses copy collect: [:ss | + SoundService unregister: ss. + ss isBehavior + ifTrue: [ss] + ifFalse: [ss class]] + ) do: [:ssClass | + SoundService register: ssClass]. + SoundService default: (currentSoundSystem + ifNotNil: [:css| css isBehavior ifTrue: [css] ifFalse: [css class]]). + ] value'! - (PackageInfo named: 'System') postscript: '"Preferences already removed by hand, but whose state still lingers:" - LocaleID allInstances do: - [ : each | each - isoLanguage: each isoLanguage - isoCountry: (each isoCountry ifNil: [ each isoCountry ]) ]. - LanguageEnvironment knownEnvironments rehash. - Locale resetKnownLocales'!

1 0

The Trunk: Morphic-mt.809.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.809.mcz ==================== Summary ==================== Name: Morphic-mt.809 Author: mt Time: 2 April 2015, 10:21:50.789 am UUID: 39d28574-7b19-7a4f-8a50-b8c828f1b5b2 Ancestors: Morphic-mt.808 Fix selection in lists or trees for context menus. By default, models rely on the current selection for the menu. This can be confusing if the user invokes that menu on a different item. =============== Diff against Morphic-mt.808 =============== Item was changed: ----- Method: PluggableListMorph>>mouseDown: (in category 'events') ----- mouseDown: evt | selectors row | - evt yellowButtonPressed "First check for option (menu) click" - ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. row := self rowAtLocation: evt position. + + evt yellowButtonPressed "First check for option (menu) click" + ifTrue: [ + "Models depend on the correct selection:" + self selectionIndex = (self modelIndexFor: row) + ifFalse: [self changeModelSelection: (self modelIndexFor: row)]. + + ^ self yellowButtonActivity: evt shiftPressed]. row = 0 ifTrue: [^super mouseDown: evt]. "self dragEnabled ifTrue: [aMorph highlightForMouseDown]." selectors := Array with: #click: with: (doubleClickSelector ifNotNil:[#doubleClick:]) with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".! Item was changed: ----- Method: SimpleHierarchicalListMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | aMorph selectors | aMorph := self itemFromPoint: evt position. + evt yellowButtonPressed "First check for option (menu) click" + ifTrue: [ + aMorph == selectedMorph + ifFalse: [self setSelectedMorph: aMorph]. + ^ self yellowButtonActivity: evt shiftPressed]. (aMorph notNil and:[aMorph inToggleArea: (aMorph point: evt position from: self)]) ifTrue:[^self toggleExpandedState: aMorph event: evt]. - evt yellowButtonPressed "First check for option (menu) click" - ifTrue: [^ self yellowButtonActivity: evt shiftPressed]. aMorph ifNil:[^super mouseDown: evt]. aMorph highlightForMouseDown. selectors := Array with: #click: with: nil with: nil with: (self dragEnabled ifTrue:[#startDrag:] ifFalse:[nil]). evt hand waitForClicksOrDrag: self event: evt selectors: selectors threshold: HandMorph dragThreshold "pixels".!

1 0

The Trunk: ShoutTests-topa.25.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Tobias Pape uploaded a new version of ShoutTests to project The Trunk: http://source.squeak.org/trunk/ShoutTests-topa.25.mcz ==================== Summary ==================== Name: ShoutTests-topa.25 Author: topa Time: 2 April 2015, 10:20:38.688 am UUID: 3e48d7b4-05be-4eee-b294-541752c399bd Ancestors: ShoutTests-eem.24 Try to lower testing time by caching source file access. =============== Diff against ShoutTests-eem.24 =============== Item was changed: ----- Method: SHParserST80Test>>testObjectClass (in category 'tests-smoke') ----- testObjectClass + + CurrentReadOnlySourceFiles cacheDuring: [self verifyClass: Object].! - self verifyClass: Object! Item was changed: ----- Method: SHParserST80Test>>verifyHierarchy: (in category 'utilities') ----- verifyHierarchy: aBehavior + + CurrentReadOnlySourceFiles cacheDuring: [ + aBehavior withAllSubclassesDo: [:class | + self verifyClass: class; verifyClass: class class]].! - aBehavior withAllSubclassesDo: [ :class | self verifyClass: class; verifyClass: class class ]!

1 0

The Trunk: ToolBuilder-Morphic-mt.116.mcz
by commits＠source.squeak.org 02 Apr '15

02 Apr '15

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.116.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.116 Author: mt Time: 2 April 2015, 9:38:28.131 am UUID: 7a34bef1-14ce-d64f-bcfe-11020448a33b Ancestors: ToolBuilder-Morphic-mt.115 Fixed resizing of search input and button bar in ListChooser. =============== Diff against ToolBuilder-Morphic-mt.115 =============== Item was changed: ----- Method: ListChooser>>buildWith: (in category 'building') ----- buildWith: aBuilder + | windowSpec searchBarHeight buttonBarHeight | - | windowSpec | builder := aBuilder. + + searchBarHeight := Preferences standardDefaultTextFont height * 2. + buttonBarHeight := Preferences standardButtonFont height * 4. + windowSpec := self buildWindowWith: builder specs: { + (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@searchBarHeight)) -> [self buildSearchMorphWith: builder]. + (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@searchBarHeight corner: 0@buttonBarHeight negated)) -> [self buildListMorphWith: builder]. + (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@buttonBarHeight negated corner: 0@0)) -> [self buildButtonBarWith: builder]. - (0@0 corner: 1(a)0.05) -> [self buildSearchMorphWith: builder]. - (0(a)0.05 corner: 1(a)0.9) -> [self buildListMorphWith: builder]. - (0(a)0.9 corner: 1@1) -> [self buildButtonBarWith: builder]. }. windowSpec closeAction: #closed. windowSpec extent: self initialExtent. window := builder build: windowSpec. searchMorph := window submorphs detect: [ :each | each isKindOf: PluggableTextMorph ]. searchMorph hideScrollBarsIndefinitely; acceptOnCR: true; setBalloonText: 'Type a string to filter down the listed items'; onKeyStrokeSend: #keyStroke: to: self; hasUnacceptedEdits: true "force acceptOnCR to work even with no text entered". listMorph := window submorphs detect: [ :each | each isKindOf: PluggableListMorph ]. ^ window!

1 0

← Newer
1
...
57
58
59
60
61
62
63
64
65
Older →

Jump to page: