Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

Re: [squeak-dev] The Inbox: MorphicExtras-fbs.108.mcz
by Frank Shearar 05 Jun '13

05 Jun '13

On 20 May 2013 19:42, <commits(a)source.squeak.org> wrote: > A new version of MorphicExtras was added to project The Inbox: > http://source.squeak.org/inbox/MorphicExtras-fbs.108.mcz > > ==================== Summary ==================== > > Name: MorphicExtras-fbs.108 > Author: fbs > Time: 20 May 2013, 7:42:41.076 pm > UUID: ff1de6e0-6c3a-4322-9c1a-ce0bed2406df > Ancestors: MorphicExtras-fbs.107 > > A ScrapBook uses a BookMorph to store Morphs. It replaces Utilities' scrapsBook. > > =============== Diff against MorphicExtras-fbs.107 =============== You need to load the System-side changes (in the System-fbs.532 in the Inbox) before this one, or Bad Things Might Happen. frank

2 3

Re: [squeak-dev] The Inbox: Morphic-fbs.654.mcz
by Frank Shearar 03 Jun '13

03 Jun '13

On 31 May 2013 22:46, <commits(a)source.squeak.org> wrote: > A new version of Morphic was added to project The Inbox: > http://source.squeak.org/inbox/Morphic-fbs.654.mcz > > ==================== Summary ==================== > > Name: Morphic-fbs.654 > Author: fbs > Time: 31 May 2013, 10:46:06.668 pm > UUID: aa6c0ca2-61ee-4499-aa75-a68d0d1dba2f > Ancestors: Morphic-fbs.653 > > This removes two references to UserDialogBoxMorph in favour of calls to UIManager. > > However, both these methods currently pop up dialogs _centred_ in the screen. If we wish to preserve that, then we need to add #inform:at: to UIManager's protocol (and implement it in the various UIManager subclasses). > > =============== Diff against Morphic-fbs.653 =============== I would notice _after_ publishing that there's another reference, in TheWorldMainDockingBar >> #quitSqueak. Sigh. Still, there's enough here to start a discussion. frank

2 1

TheWorldMenu, TheWorldDockingBar
by Frank Shearar 01 Jun '13

01 Jun '13

These guys live in Morphic, and they thus cause a whole bunch of things to depend on Morphic. While I do think something called "TheWorldMenu" is rather clearly a UI thing, I don't think it's necessarily a _Morphic_ thing. One way to approach this is to move TheWorldMenu and TheWorldDockingBar into another package. Perhaps System-Support, because that's where Project lives. Or perhaps System-World. Then we move all Morphic referencing methods to *Morphic, and so on. There are a fair number of these! Alternatively, we implement a registry thing, and TheWorldMenu and TheWorldDockingBar reference this registry to build its list of tools. Thoughts? frank

2 2

Daily Commit Log
by commits＠source.squeak.org 01 Jun '13

01 Jun '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-May/006001.html Name: ToolBuilder-MVC-fbs.33 Ancestors: ToolBuilder-MVC-nice.32 Move ToolBuilder-MVC to ST80-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006002.html Name: ST80-fbs.145 Ancestors: ST80-fbs.144 Move ToolBuilder-MVC to ST80-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006003.html Name: ToolBuilder-Morphic-fbs.90 Ancestors: ToolBuilder-Morphic-ul.89 Move ToolBuilder-Morphic to Morphic-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006004.html Name: Morphic-fbs.653 Ancestors: Morphic-kb.652 Move ToolBuilder-Morphic to Morphic-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006005.html Name: ToolBuilder-SUnit-fbs.18 Ancestors: ToolBuilder-SUnit-cwp.17 Move ToolBuilder-SUnit to SUnitGUI-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006006.html Name: SUnitGUI-fbs.57 Ancestors: SUnitGUI-eem.56 Move ToolBuilder-SUnit to SUnitGUI-ToolBuilder. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006007.html Name: System-fbs.540 Ancestors: System-nice.539 Move TextDomainManager >> #allMethodsWithTranslations to EToys, because of the reference to EToyVocabulary. If we split up this kind of searching we could isolate this reference to EToys. Then we could restore this function to System-Localization. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006008.html Name: EToys-fbs.97 Ancestors: EToys-fbs.96 Move TextDomainManager >> #allMethodsWithTranslations to EToys, because of the reference to EToyVocabulary. If we split up this kind of searching we could isolate this reference to EToys. Then we could restore this function to System-Localization. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/006009.html Name: Tests-fbs.218 Ancestors: Tests-fbs.217 Update the dependency tests to reflect the new state of the world. =============================================

1 0

The Inbox: Morphic-fbs.654.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-fbs.654.mcz ==================== Summary ==================== Name: Morphic-fbs.654 Author: fbs Time: 31 May 2013, 10:46:06.668 pm UUID: aa6c0ca2-61ee-4499-aa75-a68d0d1dba2f Ancestors: Morphic-fbs.653 This removes two references to UserDialogBoxMorph in favour of calls to UIManager. However, both these methods currently pop up dialogs _centred_ in the screen. If we wish to preserve that, then we need to add #inform:at: to UIManager's protocol (and implement it in the various UIManager subclasses). =============== Diff against Morphic-fbs.653 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>aboutSqueak (in category 'menu actions') ----- aboutSqueak + UIManager default + inform: 'About Squeak:\' withCRs , + SmalltalkImage current systemInformationString withCRs. - UserDialogBoxMorph - inform: SmalltalkImage current systemInformationString withCRs - title: 'About Squeak:' - at: World center. ! Item was changed: ----- Method: TheWorldMenu>>quitSession (in category 'commands') ----- quitSession SmalltalkImage current + snapshot: (UIManager default - snapshot: (UserDialogBoxMorph confirm: 'Save changes before quitting?' translated + orCancel: [^ self]) - orCancel: [^ self] - at: World center) andQuit: true!

1 0

The Trunk: Tests-fbs.218.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.218.mcz ==================== Summary ==================== Name: Tests-fbs.218 Author: fbs Time: 31 May 2013, 9:34:29.548 pm UUID: 20f54ec5-3d38-4313-b0a3-0d7a54260449 Ancestors: Tests-fbs.217 Update the dependency tests to reflect the new state of the world. =============== Diff against Tests-fbs.217 =============== Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello self testPackage: 'Monticello' dependsExactlyOn: #( Collections Compiler Compression Exceptions Files Graphics Kernel Morphic + Multilingual Network 'PackageInfo-Base' System 'ToolBuilder-Kernel' - 'ToolBuilder-Morphic' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testMorphic (in category 'tests') ----- testMorphic self testPackage: 'Morphic' dependsExactlyOn: #( Balloon Collections Compiler EToys Exceptions Files Graphics Kernel Monticello MonticelloConfigurations MorphicExtras Multilingual Network Sound System 'ToolBuilder-Kernel' - 'ToolBuilder-Morphic' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testSUnitGUI (in category 'tests') ----- testSUnitGUI self testPackage: 'SUnitGUI' dependsExactlyOn: #( Collections + Exceptions Graphics Kernel 'PackageInfo-Base' SUnit System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem self testPackage: 'System' dependsExactlyOn: #( Collections Compiler Compression Environments Exceptions - EToys Files Graphics Kernel Monticello MonticelloConfigurations Morphic MorphicExtras Multilingual Network 'PackageInfo-Base' Sound 'ToolBuilder-Kernel' Tools TrueType ).! Item was removed: - ----- Method: PackageDependencyTest>>testToolBuilderMVC (in category 'tests') ----- - testToolBuilderMVC - self testPackage: 'ToolBuilder-MVC' dependsExactlyOn: #( - Collections - Graphics - ST80 - 'ToolBuilder-Kernel' - Tools - ).! Item was removed: - ----- Method: PackageDependencyTest>>testToolBuilderMorphic (in category 'tests') ----- - testToolBuilderMorphic - self testPackage: 'ToolBuilder-Morphic' dependsExactlyOn: #( - Collections - Exceptions - Graphics - Kernel - Morphic - System - 'ToolBuilder-Kernel' - Tools - ).! Item was removed: - ----- Method: PackageDependencyTest>>testToolBuilderSUnit (in category 'tests') ----- - testToolBuilderSUnit - self testPackage: 'ToolBuilder-SUnit' dependsExactlyOn: #( - Collections - Exceptions - Kernel - 'ToolBuilder-Kernel' - ).!

1 0

The Trunk: EToys-fbs.97.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Frank Shearar uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-fbs.97.mcz ==================== Summary ==================== Name: EToys-fbs.97 Author: fbs Time: 31 May 2013, 8:52:01.556 pm UUID: 90465052-e663-4811-831c-0048aa1c1cd1 Ancestors: EToys-fbs.96 Move TextDomainManager >> #allMethodsWithTranslations to EToys, because of the reference to EToyVocabulary. If we split up this kind of searching we could isolate this reference to EToys. Then we could restore this function to System-Localization. =============== Diff against EToys-fbs.96 =============== Item was added: + ----- Method: TextDomainManager class>>allMethodsWithTranslations (in category '*EToys') ----- + allMethodsWithTranslations + "Look for #translated calls" + | methodsWithTranslations | + methodsWithTranslations := TranslatedReceiverFinder new stringReceiversWithContext: #translated. + methodsWithTranslations := methodsWithTranslations , + (TranslatedReceiverFinder new stringReceiversWithContext: #translatedNoop). + + methodsWithTranslations := methodsWithTranslations collect: [:each | each key compiledMethod]. + + "Look for Etoys tiles and vocabularies" + methodsWithTranslations := methodsWithTranslations , (EToyVocabulary allPhrasesWithContextToTranslate collect: [:r | + (MethodReference class: r second selector: r third) compiledMethod]). + + ^methodsWithTranslations!

1 0

The Trunk: System-fbs.540.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.540.mcz ==================== Summary ==================== Name: System-fbs.540 Author: fbs Time: 31 May 2013, 8:52:50.384 pm UUID: 8410fe5a-771a-4a9d-911a-8380ebc48616 Ancestors: System-nice.539 Move TextDomainManager >> #allMethodsWithTranslations to EToys, because of the reference to EToyVocabulary. If we split up this kind of searching we could isolate this reference to EToys. Then we could restore this function to System-Localization. =============== Diff against System-nice.539 =============== Item was removed: - ----- Method: TextDomainManager class>>allMethodsWithTranslations (in category 'accessing') ----- - allMethodsWithTranslations - "Look for #translated calls" - | methodsWithTranslations | - methodsWithTranslations := TranslatedReceiverFinder new stringReceiversWithContext: #translated. - methodsWithTranslations := methodsWithTranslations , - (TranslatedReceiverFinder new stringReceiversWithContext: #translatedNoop). - - methodsWithTranslations := methodsWithTranslations collect: [:each | each key compiledMethod]. - - "Look for Etoys tiles and vocabularies" - methodsWithTranslations := methodsWithTranslations , (EToyVocabulary allPhrasesWithContextToTranslate collect: [:r | - (MethodReference class: r second selector: r third) compiledMethod]). - - ^methodsWithTranslations!

1 0

The Trunk: SUnitGUI-fbs.57.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Frank Shearar uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-fbs.57.mcz ==================== Summary ==================== Name: SUnitGUI-fbs.57 Author: fbs Time: 31 May 2013, 4:03:07.92 pm UUID: b836135e-01ed-4f6e-b671-36c56a5fa89a Ancestors: SUnitGUI-eem.56 Move ToolBuilder-SUnit to SUnitGUI-ToolBuilder. =============== Diff against SUnitGUI-eem.56 =============== Item was changed: + SystemOrganization addCategory: #'SUnitGUI-ToolBuilder'! SystemOrganization addCategory: #SUnitGUI! Item was added: + WidgetStub subclass: #ButtonStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: ButtonStub>>click (in category 'simulating') ----- + click + | action | + action := spec action. + action isSymbol + ifTrue: [self model perform: action] + ifFalse: [action value]! Item was added: + ----- Method: ButtonStub>>color (in category 'simulating') ----- + color + ^ state at: #color! Item was added: + ----- Method: ButtonStub>>isEnabled (in category 'simulating') ----- + isEnabled + ^ state at: #enabled! Item was added: + ----- Method: ButtonStub>>isPressed (in category 'simulating') ----- + isPressed + ^ state at: #state! Item was added: + ----- Method: ButtonStub>>label (in category 'simulating') ----- + label + ^ state at: #label! Item was added: + ----- Method: ButtonStub>>stateVariables (in category 'events') ----- + stateVariables + ^ #(label color state enabled)! Item was added: + WidgetStub subclass: #CompositeStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: CompositeStub>>children (in category 'accessing') ----- + children + ^ state at: #children ifAbsent: [#()]! Item was added: + ----- Method: CompositeStub>>children: (in category 'accessing') ----- + children: anObject + state at: #children put: anObject! Item was added: + ----- Method: CompositeStub>>stateVariables (in category 'accessing') ----- + stateVariables + ^ #(children)! Item was added: + ----- Method: CompositeStub>>widgetNamed: (in category 'accessing') ----- + widgetNamed: aString + self name = aString + ifTrue: [^ self] + ifFalse: [self children do: [:ea | (ea widgetNamed: aString) ifNotNil: [:w | ^ w]]]. + ^ nil! Item was added: + WidgetStub subclass: #ListStub + instanceVariableNames: 'list index' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: ListStub>>click: (in category 'simulating') ----- + click: aString + self clickItemAt: (self list indexOf: aString)! Item was added: + ----- Method: ListStub>>clickItemAt: (in category 'simulating') ----- + clickItemAt: anInteger + | selector | + selector := spec setIndex. + selector + ifNil: [self model perform: spec setSelected with: (self list at: anInteger)] + ifNotNil: [self model perform: selector with: anInteger] + ! Item was added: + ----- Method: ListStub>>list (in category 'simulating') ----- + list + ^ list ifNil: [Array new]! Item was added: + ----- Method: ListStub>>menu (in category 'simulating') ----- + menu + ^ MenuStub fromSpec: + (self model + perform: spec menu + with: (PluggableMenuSpec withModel: self model))! Item was added: + ----- Method: ListStub>>refresh (in category 'events') ----- + refresh + self refreshList. + self refreshIndex! Item was added: + ----- Method: ListStub>>refreshIndex (in category 'events') ----- + refreshIndex + | selector | + selector := spec getIndex. + index := selector + ifNil: [self list indexOf: (self model perform: spec getSelected)] + ifNotNil: [spec model perform: selector] + ! Item was added: + ----- Method: ListStub>>refreshList (in category 'events') ----- + refreshList + list := self model perform: spec list! Item was added: + ----- Method: ListStub>>selectedIndex (in category 'simulating') ----- + selectedIndex + ^ index ifNil: [0]! Item was added: + ----- Method: ListStub>>selectedItem (in category 'simulating') ----- + selectedItem + | items idx | + (items := self list) isEmpty ifTrue: [^ nil]. + (idx := self selectedIndex) = 0 ifTrue: [^ nil]. + ^ items at: idx + ! Item was added: + ----- Method: ListStub>>update: (in category 'events') ----- + update: aSelector + aSelector = spec list ifTrue: [^ self refreshList]. + aSelector = spec getSelected ifTrue: [^ self refreshIndex]. + aSelector = spec getIndex ifTrue: [^ self refreshIndex]. + ^ super update: aSelector! Item was added: + WidgetStub subclass: #MenuStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: MenuStub>>click: (in category 'as yet unclassified') ----- + click: aString + | item | + item := self items detect: [:ea | ea label = aString] ifNone: [^ self]. + item action isSymbol + ifTrue: [self model perform: item action] + ifFalse: [item action value]! Item was added: + ----- Method: MenuStub>>items (in category 'as yet unclassified') ----- + items + ^ spec items! Item was added: + ----- Method: MenuStub>>labels (in category 'as yet unclassified') ----- + labels + ^ self items keys! Item was added: + CompositeStub subclass: #PanelStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ToolBuilder subclass: #SUnitToolBuilder + instanceVariableNames: 'widgets' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! + + !SUnitToolBuilder commentStamp: 'cwp 6/7/2005 00:53' prior: 0! + I create a set of "stub" widgets that are useful for testing. Instead of drawing themselves in some GUI, they simulate graphical widgets for testing purposes. Through my widgets, unit tests can simulate user actions and make assertions about the state of the display. + + See TestRunnerPlusTest for examples.! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableButton: (in category 'building') ----- + buildPluggableButton: aSpec + | w | + w := ButtonStub fromSpec: aSpec. + self register: w id: aSpec name. + ^w! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableList: (in category 'building') ----- + buildPluggableList: aSpec + | w | + w := ListStub fromSpec: aSpec. + self register: w id: aSpec name. + ^w! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableMenu: (in category 'building') ----- + buildPluggableMenu: aSpec + ^ MenuStub fromSpec: aSpec! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggablePanel: (in category 'building') ----- + buildPluggablePanel: aSpec + | w | + w := PanelStub fromSpec: aSpec. + self register: w id: aSpec name. + ^w! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableText: (in category 'building') ----- + buildPluggableText: aSpec + | w | + w := TextStub fromSpec: aSpec. + self register: w id: aSpec name. + ^w! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableTree: (in category 'building') ----- + buildPluggableTree: aSpec + | w | + w := TreeStub fromSpec: aSpec. + self register: w id: aSpec name. + ^w! Item was added: + ----- Method: SUnitToolBuilder>>buildPluggableWindow: (in category 'building') ----- + buildPluggableWindow: aSpec + | window children | + window := WindowStub fromSpec: aSpec. + children := aSpec children. + children isSymbol + ifFalse: [window children: (children collect: [:ea | ea buildWith: self])]. + self register: window id: aSpec name. + ^ window! Item was added: + ----- Method: SUnitToolBuilder>>close: (in category 'opening') ----- + close: aWidget + aWidget close! Item was added: + ----- Method: SUnitToolBuilder>>open: (in category 'opening') ----- + open: anObject + ^ self build: anObject! Item was added: + ----- Method: SUnitToolBuilder>>register:id: (in category 'private') ----- + register: widget id: id + id ifNil:[^self]. + widgets ifNil:[widgets := Dictionary new]. + widgets at: id put: widget.! Item was added: + ----- Method: SUnitToolBuilder>>widgetAt:ifAbsent: (in category 'private') ----- + widgetAt: id ifAbsent: aBlock + widgets ifNil:[^aBlock value]. + ^widgets at: id ifAbsent: aBlock! Item was added: + ToolBuilderTests subclass: #SUnitToolBuilderTests + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: SUnitToolBuilderTests>>acceptWidgetText (in category 'support') ----- + acceptWidgetText + widget accept: 'Some text'! Item was added: + ----- Method: SUnitToolBuilderTests>>buttonWidgetEnabled (in category 'support') ----- + buttonWidgetEnabled + ^ widget isEnabled! Item was added: + ----- Method: SUnitToolBuilderTests>>changeListWidget (in category 'support') ----- + changeListWidget + widget clickItemAt: widget selectedIndex + 1! Item was added: + ----- Method: SUnitToolBuilderTests>>fireButtonWidget (in category 'support') ----- + fireButtonWidget + widget click! Item was added: + ----- Method: SUnitToolBuilderTests>>fireMenuItemWidget (in category 'support') ----- + fireMenuItemWidget + widget click: 'Menu Item'! Item was added: + ----- Method: SUnitToolBuilderTests>>setUp (in category 'running') ----- + setUp + super setUp. + builder := SUnitToolBuilder new.! Item was added: + ----- Method: SUnitToolBuilderTests>>testHandlingNotification (in category 'tests') ----- + testHandlingNotification + | receivedSignal resumed | + receivedSignal := resumed := false. + [ | count | + "client-code puts up progress, and signals some notications" + count := 0. + 'doing something' + displayProgressFrom: 0 + to: 10 + during: + [ : bar | 10 timesRepeat: + [ bar value: (count := count + 1). + (Delay forMilliseconds: 200) wait. + Notification signal: 'message'. + resumed := true ] ] ] + on: Notification + do: + [ : noti | receivedSignal := true. + noti resume ]. + self + assert: receivedSignal ; + assert: resumed! Item was added: + ----- Method: SUnitToolBuilderTests>>testListCached (in category 'tests') ----- + testListCached + + self makeItemList. + queries := Bag new. + self changed: #getList. + widget list. + widget list. + self assert: queries size = 1! Item was added: + ----- Method: SUnitToolBuilderTests>>testListSelectionCached (in category 'tests') ----- + testListSelectionCached + + self makeItemList. + queries := Bag new. + self changed: #getListSelection. + widget selectedIndex. + widget selectedIndex. + self assert: queries size = 1! Item was added: + ----- Method: SUnitToolBuilderTests>>testTextCached (in category 'tests') ----- + testTextCached + + self makeText. + queries := Bag new. + self changed: #getText. + widget text. + widget text. + self assert: queries size = 1! Item was added: + ----- Method: SUnitToolBuilderTests>>widgetColor (in category 'support') ----- + widgetColor + ^ widget color! Item was added: + WidgetStub subclass: #TextStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: TextStub>>accept: (in category 'simulating') ----- + accept: aString + state at: #getText put: aString. + ^ self model perform: spec setText with: aString asText! Item was added: + ----- Method: TextStub>>color (in category 'simulating') ----- + color + ^ state at: #color! Item was added: + ----- Method: TextStub>>stateVariables (in category 'events') ----- + stateVariables + ^ #(color selection getText)! Item was added: + ----- Method: TextStub>>text (in category 'simulating') ----- + text + ^ state at: #getText! Item was added: + WidgetStub subclass: #TreeNodeStub + instanceVariableNames: 'item' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: TreeNodeStub class>>fromSpec:item: (in category 'instance creation') ----- + fromSpec: aSpec item: anObject + ^ self new setSpec: aSpec item: anObject! Item was added: + ----- Method: TreeNodeStub>>children (in category 'simulating') ----- + children + ^ (self model perform: spec getChildren with: item) + collect: [:ea | TreeNodeStub fromSpec: spec item: ea]! Item was added: + ----- Method: TreeNodeStub>>item (in category 'simulating') ----- + item + ^ item! Item was added: + ----- Method: TreeNodeStub>>label (in category 'simulating') ----- + label + ^ self model perform: spec label with: item! Item was added: + ----- Method: TreeNodeStub>>matches: (in category 'private') ----- + matches: aString + ^ self label = aString! Item was added: + ----- Method: TreeNodeStub>>openPath: (in category 'events') ----- + openPath: anArray + | child | + anArray isEmpty + ifTrue: [self select] + ifFalse: [child := self children + detect: [:ea | ea matches: anArray first] + ifNone: [^ self select]. + child openPath: anArray allButFirst] + ! Item was added: + ----- Method: TreeNodeStub>>printOn: (in category 'printing') ----- + printOn: aStream + aStream + print: self class; + nextPut: $<; + print: item; + nextPut: $>! Item was added: + ----- Method: TreeNodeStub>>select (in category 'simulating') ----- + select + self model perform: spec setSelected with: item! Item was added: + ----- Method: TreeNodeStub>>selectPath: (in category 'private') ----- + selectPath: anArray + | child | + anArray isEmpty ifTrue: [^ self select]. + child := self children detect: [:ea | ea matches: anArray first] ifNone: [^ self select]. + child selectPath: anArray allButFirst.! Item was added: + ----- Method: TreeNodeStub>>setSpec:item: (in category 'initialize-release') ----- + setSpec: aSpec item: anObject + super setSpec: aSpec. + item := anObject! Item was added: + WidgetStub subclass: #TreeStub + instanceVariableNames: 'roots' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: TreeStub>>openPath: (in category 'private') ----- + openPath: anArray + | first | + first := roots detect: [:ea | ea matches: anArray first] ifNone: [^ self]. + first openPath: anArray allButFirst! Item was added: + ----- Method: TreeStub>>roots: (in category 'private') ----- + roots: anArray + roots := anArray collect: [:ea | TreeNodeStub fromSpec: spec item: ea]. + ! Item was added: + ----- Method: TreeStub>>select: (in category 'simulating') ----- + select: anArray + self openPath: anArray! Item was added: + ----- Method: TreeStub>>setSpec: (in category 'initialize-release') ----- + setSpec: aSpec + super setSpec: aSpec. + self update: spec roots! Item was added: + ----- Method: TreeStub>>update: (in category 'events') ----- + update: anObject + anObject == spec roots ifTrue: [^ self updateRoots]. + anObject == spec getSelectedPath ifTrue: [^ self updateSelectedPath]. + (anObject isKindOf: Array) ifTrue: [^ self openPath: anObject allButFirst]. + super update: anObject + ! Item was added: + ----- Method: TreeStub>>updateRoots (in category 'events') ----- + updateRoots + ^ self roots: (self model perform: spec roots) + ! Item was added: + ----- Method: TreeStub>>updateSelectedPath (in category 'events') ----- + updateSelectedPath + | path first | + path := self model perform: spec getSelectedPath. + first := roots detect: [:ea | ea item = path first] ifNone: [^ self]. + first selectPath: path allButFirst.! Item was added: + Object subclass: #WidgetStub + instanceVariableNames: 'spec state' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: WidgetStub class>>fromSpec: (in category 'instance creation') ----- + fromSpec: aSpec + ^ self new setSpec: aSpec! Item was added: + ----- Method: WidgetStub>>model (in category 'simulating') ----- + model + ^ spec model! Item was added: + ----- Method: WidgetStub>>name (in category 'accessing') ----- + name + ^ spec name ifNil: [' ']! Item was added: + ----- Method: WidgetStub>>printOn: (in category 'printing') ----- + printOn: aStream + aStream + print: self class; + nextPut: $<; + nextPutAll: self name; + nextPut: $>! Item was added: + ----- Method: WidgetStub>>refresh (in category 'events') ----- + refresh + self stateVariables do: [:var | self refresh: var]! Item was added: + ----- Method: WidgetStub>>refresh: (in category 'events') ----- + refresh: var + | value | + value := spec perform: var. + self refresh: var with: value! Item was added: + ----- Method: WidgetStub>>refresh:with: (in category 'events') ----- + refresh: var with: value + state + at: var + put: (value isSymbol + ifTrue: [spec model perform: value] + ifFalse: [value])! Item was added: + ----- Method: WidgetStub>>setSpec: (in category 'initialize-release') ----- + setSpec: aSpec + state := IdentityDictionary new. + spec := aSpec. + spec model addDependent: self. + self refresh.! Item was added: + ----- Method: WidgetStub>>spec (in category 'accessing') ----- + spec + ^ spec! Item was added: + ----- Method: WidgetStub>>stateVariables (in category 'events') ----- + stateVariables + ^ #()! Item was added: + ----- Method: WidgetStub>>update: (in category 'events') ----- + update: aSymbol + + self stateVariables do: + [:var | + (spec perform: var) == aSymbol ifTrue: + [self refresh: var with: aSymbol. + ^ self]]! Item was added: + ----- Method: WidgetStub>>widgetNamed: (in category 'accessing') ----- + widgetNamed: aString + ^ self name = aString + ifTrue: [self] + ifFalse: [nil]! Item was added: + CompositeStub subclass: #WindowStub + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnitGUI-ToolBuilder'! Item was added: + ----- Method: WindowStub>>close (in category 'simulating') ----- + close + spec model perform: spec closeAction! Item was added: + ----- Method: WindowStub>>stateVariables (in category 'events') ----- + stateVariables + ^ super stateVariables, #(label)!

1 0

The Trunk: ToolBuilder-SUnit-fbs.18.mcz
by commits＠source.squeak.org 31 May '13

31 May '13

Frank Shearar uploaded a new version of ToolBuilder-SUnit to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-SUnit-fbs.18.mcz ==================== Summary ==================== Name: ToolBuilder-SUnit-fbs.18 Author: fbs Time: 31 May 2013, 4:02:23.33 pm UUID: 64c28b7a-b3fd-4bdd-9188-0c615b680b5b Ancestors: ToolBuilder-SUnit-cwp.17 Move ToolBuilder-SUnit to SUnitGUI-ToolBuilder. =============== Diff against ToolBuilder-SUnit-cwp.17 =============== Item was removed: - SystemOrganization addCategory: #'ToolBuilder-SUnit'! Item was removed: - WidgetStub subclass: #ButtonStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: ButtonStub>>click (in category 'simulating') ----- - click - | action | - action := spec action. - action isSymbol - ifTrue: [self model perform: action] - ifFalse: [action value]! Item was removed: - ----- Method: ButtonStub>>color (in category 'simulating') ----- - color - ^ state at: #color! Item was removed: - ----- Method: ButtonStub>>isEnabled (in category 'simulating') ----- - isEnabled - ^ state at: #enabled! Item was removed: - ----- Method: ButtonStub>>isPressed (in category 'simulating') ----- - isPressed - ^ state at: #state! Item was removed: - ----- Method: ButtonStub>>label (in category 'simulating') ----- - label - ^ state at: #label! Item was removed: - ----- Method: ButtonStub>>stateVariables (in category 'events') ----- - stateVariables - ^ #(label color state enabled)! Item was removed: - WidgetStub subclass: #CompositeStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: CompositeStub>>children (in category 'accessing') ----- - children - ^ state at: #children ifAbsent: [#()]! Item was removed: - ----- Method: CompositeStub>>children: (in category 'accessing') ----- - children: anObject - state at: #children put: anObject! Item was removed: - ----- Method: CompositeStub>>stateVariables (in category 'accessing') ----- - stateVariables - ^ #(children)! Item was removed: - ----- Method: CompositeStub>>widgetNamed: (in category 'accessing') ----- - widgetNamed: aString - self name = aString - ifTrue: [^ self] - ifFalse: [self children do: [:ea | (ea widgetNamed: aString) ifNotNil: [:w | ^ w]]]. - ^ nil! Item was removed: - WidgetStub subclass: #ListStub - instanceVariableNames: 'list index' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: ListStub>>click: (in category 'simulating') ----- - click: aString - self clickItemAt: (self list indexOf: aString)! Item was removed: - ----- Method: ListStub>>clickItemAt: (in category 'simulating') ----- - clickItemAt: anInteger - | selector | - selector := spec setIndex. - selector - ifNil: [self model perform: spec setSelected with: (self list at: anInteger)] - ifNotNil: [self model perform: selector with: anInteger] - ! Item was removed: - ----- Method: ListStub>>list (in category 'simulating') ----- - list - ^ list ifNil: [Array new]! Item was removed: - ----- Method: ListStub>>menu (in category 'simulating') ----- - menu - ^ MenuStub fromSpec: - (self model - perform: spec menu - with: (PluggableMenuSpec withModel: self model))! Item was removed: - ----- Method: ListStub>>refresh (in category 'events') ----- - refresh - self refreshList. - self refreshIndex! Item was removed: - ----- Method: ListStub>>refreshIndex (in category 'events') ----- - refreshIndex - | selector | - selector := spec getIndex. - index := selector - ifNil: [self list indexOf: (self model perform: spec getSelected)] - ifNotNil: [spec model perform: selector] - ! Item was removed: - ----- Method: ListStub>>refreshList (in category 'events') ----- - refreshList - list := self model perform: spec list! Item was removed: - ----- Method: ListStub>>selectedIndex (in category 'simulating') ----- - selectedIndex - ^ index ifNil: [0]! Item was removed: - ----- Method: ListStub>>selectedItem (in category 'simulating') ----- - selectedItem - | items idx | - (items := self list) isEmpty ifTrue: [^ nil]. - (idx := self selectedIndex) = 0 ifTrue: [^ nil]. - ^ items at: idx - ! Item was removed: - ----- Method: ListStub>>update: (in category 'events') ----- - update: aSelector - aSelector = spec list ifTrue: [^ self refreshList]. - aSelector = spec getSelected ifTrue: [^ self refreshIndex]. - aSelector = spec getIndex ifTrue: [^ self refreshIndex]. - ^ super update: aSelector! Item was removed: - WidgetStub subclass: #MenuStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: MenuStub>>click: (in category 'as yet unclassified') ----- - click: aString - | item | - item := self items detect: [:ea | ea label = aString] ifNone: [^ self]. - item action isSymbol - ifTrue: [self model perform: item action] - ifFalse: [item action value]! Item was removed: - ----- Method: MenuStub>>items (in category 'as yet unclassified') ----- - items - ^ spec items! Item was removed: - ----- Method: MenuStub>>labels (in category 'as yet unclassified') ----- - labels - ^ self items keys! Item was removed: - CompositeStub subclass: #PanelStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ToolBuilder subclass: #SUnitToolBuilder - instanceVariableNames: 'widgets' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! - - !SUnitToolBuilder commentStamp: 'cwp 6/7/2005 00:53' prior: 0! - I create a set of "stub" widgets that are useful for testing. Instead of drawing themselves in some GUI, they simulate graphical widgets for testing purposes. Through my widgets, unit tests can simulate user actions and make assertions about the state of the display. - - See TestRunnerPlusTest for examples.! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableButton: (in category 'building') ----- - buildPluggableButton: aSpec - | w | - w := ButtonStub fromSpec: aSpec. - self register: w id: aSpec name. - ^w! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableList: (in category 'building') ----- - buildPluggableList: aSpec - | w | - w := ListStub fromSpec: aSpec. - self register: w id: aSpec name. - ^w! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableMenu: (in category 'building') ----- - buildPluggableMenu: aSpec - ^ MenuStub fromSpec: aSpec! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggablePanel: (in category 'building') ----- - buildPluggablePanel: aSpec - | w | - w := PanelStub fromSpec: aSpec. - self register: w id: aSpec name. - ^w! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableText: (in category 'building') ----- - buildPluggableText: aSpec - | w | - w := TextStub fromSpec: aSpec. - self register: w id: aSpec name. - ^w! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableTree: (in category 'building') ----- - buildPluggableTree: aSpec - | w | - w := TreeStub fromSpec: aSpec. - self register: w id: aSpec name. - ^w! Item was removed: - ----- Method: SUnitToolBuilder>>buildPluggableWindow: (in category 'building') ----- - buildPluggableWindow: aSpec - | window children | - window := WindowStub fromSpec: aSpec. - children := aSpec children. - children isSymbol - ifFalse: [window children: (children collect: [:ea | ea buildWith: self])]. - self register: window id: aSpec name. - ^ window! Item was removed: - ----- Method: SUnitToolBuilder>>close: (in category 'opening') ----- - close: aWidget - aWidget close! Item was removed: - ----- Method: SUnitToolBuilder>>open: (in category 'opening') ----- - open: anObject - ^ self build: anObject! Item was removed: - ----- Method: SUnitToolBuilder>>register:id: (in category 'private') ----- - register: widget id: id - id ifNil:[^self]. - widgets ifNil:[widgets := Dictionary new]. - widgets at: id put: widget.! Item was removed: - ----- Method: SUnitToolBuilder>>widgetAt:ifAbsent: (in category 'private') ----- - widgetAt: id ifAbsent: aBlock - widgets ifNil:[^aBlock value]. - ^widgets at: id ifAbsent: aBlock! Item was removed: - ToolBuilderTests subclass: #SUnitToolBuilderTests - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: SUnitToolBuilderTests>>acceptWidgetText (in category 'support') ----- - acceptWidgetText - widget accept: 'Some text'! Item was removed: - ----- Method: SUnitToolBuilderTests>>buttonWidgetEnabled (in category 'support') ----- - buttonWidgetEnabled - ^ widget isEnabled! Item was removed: - ----- Method: SUnitToolBuilderTests>>changeListWidget (in category 'support') ----- - changeListWidget - widget clickItemAt: widget selectedIndex + 1! Item was removed: - ----- Method: SUnitToolBuilderTests>>fireButtonWidget (in category 'support') ----- - fireButtonWidget - widget click! Item was removed: - ----- Method: SUnitToolBuilderTests>>fireMenuItemWidget (in category 'support') ----- - fireMenuItemWidget - widget click: 'Menu Item'! Item was removed: - ----- Method: SUnitToolBuilderTests>>setUp (in category 'running') ----- - setUp - super setUp. - builder := SUnitToolBuilder new.! Item was removed: - ----- Method: SUnitToolBuilderTests>>testHandlingNotification (in category 'tests') ----- - testHandlingNotification - | receivedSignal resumed | - receivedSignal := resumed := false. - [ | count | - "client-code puts up progress, and signals some notications" - count := 0. - 'doing something' - displayProgressFrom: 0 - to: 10 - during: - [ : bar | 10 timesRepeat: - [ bar value: (count := count + 1). - (Delay forMilliseconds: 200) wait. - Notification signal: 'message'. - resumed := true ] ] ] - on: Notification - do: - [ : noti | receivedSignal := true. - noti resume ]. - self - assert: receivedSignal ; - assert: resumed! Item was removed: - ----- Method: SUnitToolBuilderTests>>testListCached (in category 'tests') ----- - testListCached - - self makeItemList. - queries := Bag new. - self changed: #getList. - widget list. - widget list. - self assert: queries size = 1! Item was removed: - ----- Method: SUnitToolBuilderTests>>testListSelectionCached (in category 'tests') ----- - testListSelectionCached - - self makeItemList. - queries := Bag new. - self changed: #getListSelection. - widget selectedIndex. - widget selectedIndex. - self assert: queries size = 1! Item was removed: - ----- Method: SUnitToolBuilderTests>>testTextCached (in category 'tests') ----- - testTextCached - - self makeText. - queries := Bag new. - self changed: #getText. - widget text. - widget text. - self assert: queries size = 1! Item was removed: - ----- Method: SUnitToolBuilderTests>>widgetColor (in category 'support') ----- - widgetColor - ^ widget color! Item was removed: - WidgetStub subclass: #TextStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: TextStub>>accept: (in category 'simulating') ----- - accept: aString - state at: #getText put: aString. - ^ self model perform: spec setText with: aString asText! Item was removed: - ----- Method: TextStub>>color (in category 'simulating') ----- - color - ^ state at: #color! Item was removed: - ----- Method: TextStub>>stateVariables (in category 'events') ----- - stateVariables - ^ #(color selection getText)! Item was removed: - ----- Method: TextStub>>text (in category 'simulating') ----- - text - ^ state at: #getText! Item was removed: - WidgetStub subclass: #TreeNodeStub - instanceVariableNames: 'item' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: TreeNodeStub class>>fromSpec:item: (in category 'instance creation') ----- - fromSpec: aSpec item: anObject - ^ self new setSpec: aSpec item: anObject! Item was removed: - ----- Method: TreeNodeStub>>children (in category 'simulating') ----- - children - ^ (self model perform: spec getChildren with: item) - collect: [:ea | TreeNodeStub fromSpec: spec item: ea]! Item was removed: - ----- Method: TreeNodeStub>>item (in category 'simulating') ----- - item - ^ item! Item was removed: - ----- Method: TreeNodeStub>>label (in category 'simulating') ----- - label - ^ self model perform: spec label with: item! Item was removed: - ----- Method: TreeNodeStub>>matches: (in category 'private') ----- - matches: aString - ^ self label = aString! Item was removed: - ----- Method: TreeNodeStub>>openPath: (in category 'events') ----- - openPath: anArray - | child | - anArray isEmpty - ifTrue: [self select] - ifFalse: [child := self children - detect: [:ea | ea matches: anArray first] - ifNone: [^ self select]. - child openPath: anArray allButFirst] - ! Item was removed: - ----- Method: TreeNodeStub>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - print: self class; - nextPut: $<; - print: item; - nextPut: $>! Item was removed: - ----- Method: TreeNodeStub>>select (in category 'simulating') ----- - select - self model perform: spec setSelected with: item! Item was removed: - ----- Method: TreeNodeStub>>selectPath: (in category 'private') ----- - selectPath: anArray - | child | - anArray isEmpty ifTrue: [^ self select]. - child := self children detect: [:ea | ea matches: anArray first] ifNone: [^ self select]. - child selectPath: anArray allButFirst.! Item was removed: - ----- Method: TreeNodeStub>>setSpec:item: (in category 'initialize-release') ----- - setSpec: aSpec item: anObject - super setSpec: aSpec. - item := anObject! Item was removed: - WidgetStub subclass: #TreeStub - instanceVariableNames: 'roots' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: TreeStub>>openPath: (in category 'private') ----- - openPath: anArray - | first | - first := roots detect: [:ea | ea matches: anArray first] ifNone: [^ self]. - first openPath: anArray allButFirst! Item was removed: - ----- Method: TreeStub>>roots: (in category 'private') ----- - roots: anArray - roots := anArray collect: [:ea | TreeNodeStub fromSpec: spec item: ea]. - ! Item was removed: - ----- Method: TreeStub>>select: (in category 'simulating') ----- - select: anArray - self openPath: anArray! Item was removed: - ----- Method: TreeStub>>setSpec: (in category 'initialize-release') ----- - setSpec: aSpec - super setSpec: aSpec. - self update: spec roots! Item was removed: - ----- Method: TreeStub>>update: (in category 'events') ----- - update: anObject - anObject == spec roots ifTrue: [^ self updateRoots]. - anObject == spec getSelectedPath ifTrue: [^ self updateSelectedPath]. - (anObject isKindOf: Array) ifTrue: [^ self openPath: anObject allButFirst]. - super update: anObject - ! Item was removed: - ----- Method: TreeStub>>updateRoots (in category 'events') ----- - updateRoots - ^ self roots: (self model perform: spec roots) - ! Item was removed: - ----- Method: TreeStub>>updateSelectedPath (in category 'events') ----- - updateSelectedPath - | path first | - path := self model perform: spec getSelectedPath. - first := roots detect: [:ea | ea item = path first] ifNone: [^ self]. - first selectPath: path allButFirst.! Item was removed: - Object subclass: #WidgetStub - instanceVariableNames: 'spec state' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: WidgetStub class>>fromSpec: (in category 'instance creation') ----- - fromSpec: aSpec - ^ self new setSpec: aSpec! Item was removed: - ----- Method: WidgetStub>>model (in category 'simulating') ----- - model - ^ spec model! Item was removed: - ----- Method: WidgetStub>>name (in category 'accessing') ----- - name - ^ spec name ifNil: [' ']! Item was removed: - ----- Method: WidgetStub>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - print: self class; - nextPut: $<; - nextPutAll: self name; - nextPut: $>! Item was removed: - ----- Method: WidgetStub>>refresh (in category 'events') ----- - refresh - self stateVariables do: [:var | self refresh: var]! Item was removed: - ----- Method: WidgetStub>>refresh: (in category 'events') ----- - refresh: var - | value | - value := spec perform: var. - self refresh: var with: value! Item was removed: - ----- Method: WidgetStub>>refresh:with: (in category 'events') ----- - refresh: var with: value - state - at: var - put: (value isSymbol - ifTrue: [spec model perform: value] - ifFalse: [value])! Item was removed: - ----- Method: WidgetStub>>setSpec: (in category 'initialize-release') ----- - setSpec: aSpec - state := IdentityDictionary new. - spec := aSpec. - spec model addDependent: self. - self refresh.! Item was removed: - ----- Method: WidgetStub>>spec (in category 'accessing') ----- - spec - ^ spec! Item was removed: - ----- Method: WidgetStub>>stateVariables (in category 'events') ----- - stateVariables - ^ #()! Item was removed: - ----- Method: WidgetStub>>update: (in category 'events') ----- - update: aSymbol - - self stateVariables do: - [:var | - (spec perform: var) == aSymbol ifTrue: - [self refresh: var with: aSymbol. - ^ self]]! Item was removed: - ----- Method: WidgetStub>>widgetNamed: (in category 'accessing') ----- - widgetNamed: aString - ^ self name = aString - ifTrue: [self] - ifFalse: [nil]! Item was removed: - CompositeStub subclass: #WindowStub - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolBuilder-SUnit'! Item was removed: - ----- Method: WindowStub>>close (in category 'simulating') ----- - close - spec model perform: spec closeAction! Item was removed: - ----- Method: WindowStub>>stateVariables (in category 'events') ----- - stateVariables - ^ super stateVariables, #(label)!

1 0

Jump to page: