Squeak-dev July 2013

squeak-dev@lists.squeakfoundation.org

50 participants
342 discussions

The Trunk: PackageInfo-Base-fbs.67.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-fbs.67.mcz ==================== Summary ==================== Name: PackageInfo-Base-fbs.67 Author: fbs Time: 3 July 2013, 10:28:38.014 pm UUID: 4558e56a-36bc-ae4b-9db7-e220b1b336fb Ancestors: PackageInfo-Base-fbs.66 Split PackageInfo's UI into a separate package. =============== Diff against PackageInfo-Base-fbs.66 =============== Item was removed: - Object subclass: #PackageList - instanceVariableNames: 'selectedPackage packages' - classVariableNames: '' - poolDictionaries: '' - category: 'PackageInfo-Base'! Item was removed: - ----- Method: PackageList class>>initialize (in category 'as yet unclassified') ----- - initialize - TheWorldMenu registerOpenCommand: {'Package List'. {self. #open}}! Item was removed: - ----- Method: PackageList class>>open (in category 'as yet unclassified') ----- - open - ^ self new openInWorld! Item was removed: - ----- Method: PackageList>>addPackage (in category 'actions') ----- - addPackage - | packageName | - packageName := UIManager default request: 'Package name:'. - packageName isEmpty ifFalse: - [selectedPackage := self packageOrganizer registerPackageNamed: packageName. - self changed: #packageSelection]! Item was removed: - ----- Method: PackageList>>buildList (in category 'morphic') ----- - buildList - ^ PluggableListMorph - on: self - list: #packageList - selected: #packageSelection - changeSelected: #packageSelection: - menu: #packageMenu:! Item was removed: - ----- Method: PackageList>>buildWindow (in category 'morphic') ----- - buildWindow - | window | - window := SystemWindow labelled: self label. - window model: self. - window addMorph: self buildList fullFrame: (LayoutFrame fractions: (0@0 corner: 1@1)). - ^ window! Item was removed: - ----- Method: PackageList>>defaultBackgroundColor (in category 'morphic') ----- - defaultBackgroundColor - ^ Color white! Item was removed: - ----- Method: PackageList>>defaultExtent (in category 'morphic') ----- - defaultExtent - ^ 200@200! Item was removed: - ----- Method: PackageList>>label (in category 'morphic') ----- - label - ^ 'Packages'! Item was removed: - ----- Method: PackageList>>openInWorld (in category 'morphic') ----- - openInWorld - self packageOrganizer addDependent: self. - self buildWindow openInWorldExtent: self defaultExtent! Item was removed: - ----- Method: PackageList>>packageContextMenu: (in category 'morphic') ----- - packageContextMenu: aMenu - aMenu - addLine; - add: 'remove package' action: #removePackage; - addServices: PackageServices allServices for: selectedPackage extraLines: #()! Item was removed: - ----- Method: PackageList>>packageList (in category 'morphic') ----- - packageList - ^ self packages collect: [:ea | ea packageName]! Item was removed: - ----- Method: PackageList>>packageMenu: (in category 'morphic') ----- - packageMenu: aMenu - aMenu - defaultTarget: self; - add: 'add package' action: #addPackage. - selectedPackage ifNotNil: [self packageContextMenu: aMenu]. - ^ aMenu! Item was removed: - ----- Method: PackageList>>packageOrganizer (in category 'actions') ----- - packageOrganizer - ^ PackageOrganizer default! Item was removed: - ----- Method: PackageList>>packageSelection (in category 'morphic') ----- - packageSelection - ^ self packages indexOf: selectedPackage! Item was removed: - ----- Method: PackageList>>packageSelection: (in category 'morphic') ----- - packageSelection: aNumber - selectedPackage := self packages at: aNumber ifAbsent: []. - self changed: #packageSelection! Item was removed: - ----- Method: PackageList>>packages (in category 'as yet unclassified') ----- - packages - ^ packages ifNil: [packages := self packageOrganizer packages asSortedCollection: - [:a :b | a packageName <= b packageName]]! Item was removed: - ----- Method: PackageList>>perform:orSendTo: (in category 'morphic') ----- - perform: selector orSendTo: otherTarget - "Selector was just chosen from a menu by a user. If can respond, then - perform it on myself. If not, send it to otherTarget, presumably the - editPane from which the menu was invoked." - - (self respondsTo: selector) - ifTrue: [^ self perform: selector] - ifFalse: [^ otherTarget perform: selector]! Item was removed: - ----- Method: PackageList>>removePackage (in category 'actions') ----- - removePackage - self packageOrganizer unregisterPackage: selectedPackage! Item was removed: - ----- Method: PackageList>>update: (in category 'actions') ----- - update: aSymbol - aSymbol = #packages ifTrue: - [packages := nil. - self changed: #packageList; changed: #packageSelection]!

1 0

The Trunk: ReleaseBuilder-fbs.99.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-fbs.99.mcz ==================== Summary ==================== Name: ReleaseBuilder-fbs.99 Author: fbs Time: 3 July 2013, 10:15:15.841 pm UUID: c4defea8-9581-bd4f-b3d2-b1ddcdf5f90b Ancestors: ReleaseBuilder-fbs.98 Ensure that ST80, ST80Tools and SmallLand-ColorTheme are loaded into a released 4..5 image. =============== Diff against ReleaseBuilder-fbs.98 =============== Item was changed: ----- Method: ReleaseBuilder class>>loadWellKnownPackages (in category 'private') ----- loadWellKnownPackages "Load into the release image those packages that have been stripped from Trunk, but still deemed necessary for a release artifact." #('311Deprecated' '39Deprecated' '45Deprecated' 'Nebraska' + 'SmallLand-ColorTheme' + 'ST80' + 'ST80Tools' 'Universes' 'XML-Parser') do: [:pkgName | Installer squeak project: 'trunk'; install: pkgName].!

1 0

The Trunk: PackageInfo-Base-fbs.66.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-fbs.66.mcz ==================== Summary ==================== Name: PackageInfo-Base-fbs.66 Author: fbs Time: 3 July 2013, 10:10:51.036 pm UUID: b7947681-b5b3-924d-afff-589ced549550 Ancestors: PackageInfo-Base-fbs.65 #gather: (also known as #flatMap: or #mapcan:) belongs in the Collections package: it's generally useful outside PackageInfo. =============== Diff against PackageInfo-Base-fbs.65 =============== Item was removed: - ----- Method: Collection>>gather: (in category '*packageinfo-base') ----- - gather: aBlock - ^ Array streamContents: - [:stream | - self do: [:ea | stream nextPutAll: (aBlock value: ea)]]!

1 0

The Trunk: Collections-fbs.522.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.522.mcz ==================== Summary ==================== Name: Collections-fbs.522 Author: fbs Time: 3 July 2013, 10:11:18.754 pm UUID: 716983f2-7bba-014d-a133-8bd130322af0 Ancestors: Collections-fbs.521 #gather: (also known as #flatMap: or #mapcan:) belongs in the Collections package: it's generally useful outside PackageInfo. =============== Diff against Collections-fbs.521 =============== Item was added: + ----- Method: Collection>>gather: (in category 'enumerating') ----- + gather: aBlock + ^ Array streamContents: + [:stream | + self do: [:ea | stream nextPutAll: (aBlock value: ea)]]!

1 0

The Trunk: Morphic-fbs.662.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.662.mcz ==================== Summary ==================== Name: Morphic-fbs.662 Author: fbs Time: 3 July 2013, 9:50:19.085 pm UUID: fdf483c9-3f11-f842-888f-24421c1c6acb Ancestors: Morphic-fbs.661 Some stuff that's easily movable from Morphic to MorphicExtras. =============== Diff against Morphic-fbs.661 =============== Item was removed: - ----- Method: HandMorph>>pauseEventRecorderIn: (in category 'event handling') ----- - pauseEventRecorderIn: aWorld - "Suspend any recorder prior to a project change, and return it. - It will be resumed after starting the new project." - eventListeners ifNil:[^nil]. - eventListeners do: - [:er | (er isKindOf: EventRecorderMorph) ifTrue: [^ er pauseIn: aWorld]]. - ^ nil! Item was removed: - ----- Method: Morph>>asEPS (in category '*morphic-Postscript Canvases') ----- - asEPS - - ^ EPSCanvas morphAsPostscript: self rotated: false. - ! Item was removed: - ----- Method: Morph>>asPostscriptPrintJob (in category '*morphic-Postscript Canvases') ----- - asPostscriptPrintJob - - ^ DSCPostscriptCanvas morphAsPostscript: self rotated: false. - ! Item was removed: - ----- Method: Morph>>printPSToFileNamed: (in category 'menus') ----- - printPSToFileNamed: aString - "Ask the user for a filename and print this morph as postscript." - | fileName rotateFlag psCanvasType psExtension | - fileName := aString asFileName. - psCanvasType := PostscriptCanvas defaultCanvasType. - psExtension := psCanvasType defaultExtension. - fileName := UIManager default request: (String streamContents: [ :s | - s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})]) - initialAnswer: fileName. - fileName isEmpty - ifTrue: [^ Beeper beep]. - (fileName endsWith: psExtension) - ifFalse: [fileName := fileName , psExtension]. - rotateFlag := (UIManager default chooseFrom: { - 'portrait (tall)' translated. - 'landscape (wide)' translated. - } title: 'Choose orientation...' translated) = 2. - ((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter) - nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag); - close! Item was removed: - ----- Method: PasteUpMorph class>>newWorldTesting (in category 'project') ----- - newWorldTesting - - | world ex | - - ex := 500@500. - world := PasteUpMorph newWorldForProject: nil. - world extent: ex; color: Color orange. - world openInWorld. - world viewBox: (0@0 extent: ex). - BouncingAtomsMorph new openInWorld: world. - - "----- - - | world window | - world := PasteUpMorph newWorldForProject: nil. - world extent: 300@300; color: Color orange. - world viewBox: (0@0 extent: 300@300). - window := (SystemWindow labelled: 'the new world') model: world. - window color: Color orange. - window addMorph: world frame: (0@0 extent: 1.0(a)1.0). - window openInWorld. - - ---" - ! Item was changed: ----- Method: TextMorph>>addCustomMenuItems:hand: (in category 'menu') ----- addCustomMenuItems: aCustomMenu hand: aHandMorph | outer | super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu add: 'text properties...' translated action: #changeTextColor. aCustomMenu addUpdating: #autoFitString target: self action: #autoFitOnOff. aCustomMenu addUpdating: #wrapString target: self action: #wrapOnOff. aCustomMenu add: 'text margins...' translated action: #changeMargins:. aCustomMenu add: 'add predecessor' translated action: #addPredecessor:. aCustomMenu add: 'add successor' translated action: #addSuccessor:. outer := self owner. outer ifNotNil: [ outer isLineMorph ifTrue: [container isNil + ifTrue: [Smalltalk at: #TextOnCurveContainer ifPresent: [:ignored | aCustomMenu add: 'follow owner''s curve' translated action: #followCurve]] - ifTrue: [aCustomMenu add: 'follow owner''s curve' translated action: #followCurve] ifFalse: [aCustomMenu add: 'reverse direction' translated action: #reverseCurveDirection. aCustomMenu add: 'set baseline' translated action: #setCurveBaseline:]] ifFalse: [self fillsOwner ifFalse: [aCustomMenu add: 'fill owner''s shape' translated action: #fillingOnOff] ifTrue: [aCustomMenu add: 'rectangular bounds' translated action: #fillingOnOff]. self avoidsOcclusions ifFalse: [aCustomMenu add: 'avoid occlusions' translated action: #occlusionsOnOff] ifTrue: [aCustomMenu add: 'ignore occlusions' translated action: #occlusionsOnOff]]]. aCustomMenu addLine. aCustomMenu add: 'holder for characters' translated action: #holderForCharacters !

1 0

The Trunk: MorphicExtras-fbs.112.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-fbs.112.mcz ==================== Summary ==================== Name: MorphicExtras-fbs.112 Author: fbs Time: 3 July 2013, 9:50:50.965 pm UUID: 3d28e62d-4971-f14f-bbf1-29b3ab896170 Ancestors: MorphicExtras-nice.111 Some stuff that's easily movable from Morphic to MorphicExtras. =============== Diff against MorphicExtras-nice.111 =============== Item was changed: - SystemOrganization addCategory: #'MorphicExtras-Demo'! - SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! SystemOrganization addCategory: #'MorphicExtras-AdditionalMorphs'! + SystemOrganization addCategory: #'MorphicExtras-AdditionalSupport'! - SystemOrganization addCategory: #'MorphicExtras-Widgets'! - SystemOrganization addCategory: #'MorphicExtras-Books'! - SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! - SystemOrganization addCategory: #'MorphicExtras-Support'! - SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! - SystemOrganization addCategory: #'MorphicExtras-Undo'! - SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! - SystemOrganization addCategory: #'MorphicExtras-PartsBin'! SystemOrganization addCategory: #'MorphicExtras-AdditionalWidgets'! + SystemOrganization addCategory: #'MorphicExtras-Books'! + SystemOrganization addCategory: #'MorphicExtras-Demo'! + SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! SystemOrganization addCategory: #'MorphicExtras-Flaps'! - SystemOrganization addCategory: #'MorphicExtras-Navigators'! SystemOrganization addCategory: #'MorphicExtras-GeeMail'! - SystemOrganization addCategory: #'MorphicExtras-Palettes'! SystemOrganization addCategory: #'MorphicExtras-Leds'! + SystemOrganization addCategory: #'MorphicExtras-Navigators'! + SystemOrganization addCategory: #'MorphicExtras-Obsolete'! + SystemOrganization addCategory: #'MorphicExtras-Palettes'! + SystemOrganization addCategory: #'MorphicExtras-PartsBin'! + SystemOrganization addCategory: #'MorphicExtras-Postscript Canvases'! + SystemOrganization addCategory: #'MorphicExtras-Postscript Filters'! + SystemOrganization addCategory: #'MorphicExtras-SoundInterface'! SystemOrganization addCategory: #'MorphicExtras-SqueakPage'! + SystemOrganization addCategory: #'MorphicExtras-Support'! SystemOrganization addCategory: #'MorphicExtras-Text Support'! + SystemOrganization addCategory: #'MorphicExtras-Undo'! + SystemOrganization addCategory: #'MorphicExtras-Widgets'! - SystemOrganization addCategory: #'MorphicExtras-Obsolete'! - SystemOrganization addCategory: #'MorphicExtras-EToy-Download'! Item was added: + ----- Method: HandMorph>>pauseEventRecorderIn: (in category '*MorphicExtras-event handling') ----- + pauseEventRecorderIn: aWorld + "Suspend any recorder prior to a project change, and return it. + It will be resumed after starting the new project." + eventListeners ifNil:[^nil]. + eventListeners do: + [:er | (er isKindOf: EventRecorderMorph) ifTrue: [^ er pauseIn: aWorld]]. + ^ nil! Item was added: + ----- Method: Morph>>asEPS (in category '*MorphicExtras-postscript') ----- + asEPS + + ^ EPSCanvas morphAsPostscript: self rotated: false. + ! Item was added: + ----- Method: Morph>>asPostscriptPrintJob (in category '*MorphicExtras-postscript') ----- + asPostscriptPrintJob + + ^ DSCPostscriptCanvas morphAsPostscript: self rotated: false. + ! Item was added: + ----- Method: Morph>>printPSToFileNamed: (in category '*MorphicExtras-menus') ----- + printPSToFileNamed: aString + "Ask the user for a filename and print this morph as postscript." + | fileName rotateFlag psCanvasType psExtension | + fileName := aString asFileName. + psCanvasType := PostscriptCanvas defaultCanvasType. + psExtension := psCanvasType defaultExtension. + fileName := UIManager default request: (String streamContents: [ :s | + s nextPutAll: ('File name? ("{1}" will be added to end)' translated format: {psExtension})]) + initialAnswer: fileName. + fileName isEmpty + ifTrue: [^ Beeper beep]. + (fileName endsWith: psExtension) + ifFalse: [fileName := fileName , psExtension]. + rotateFlag := (UIManager default chooseFrom: { + 'portrait (tall)' translated. + 'landscape (wide)' translated. + } title: 'Choose orientation...' translated) = 2. + ((FileStream newFileNamed: fileName asFileName) converter: TextConverter defaultSystemConverter) + nextPutAll: (psCanvasType morphAsPostscript: self rotated: rotateFlag); + close! Item was added: + ----- Method: PasteUpMorph class>>newWorldTesting (in category '*MorphicExtras-project') ----- + newWorldTesting + + | world ex | + + ex := 500@500. + world := PasteUpMorph newWorldForProject: nil. + world extent: ex; color: Color orange. + world openInWorld. + world viewBox: (0@0 extent: ex). + BouncingAtomsMorph new openInWorld: world. + + "----- + + | world window | + world := PasteUpMorph newWorldForProject: nil. + world extent: 300@300; color: Color orange. + world viewBox: (0@0 extent: 300@300). + window := (SystemWindow labelled: 'the new world') model: world. + window color: Color orange. + window addMorph: world frame: (0@0 extent: 1.0(a)1.0). + window openInWorld. + + ---" + !

1 0

The Trunk: MorphicTests-fbs.22.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-fbs.22.mcz ==================== Summary ==================== Name: MorphicTests-fbs.22 Author: fbs Time: 3 July 2013, 6:32:37.048 pm UUID: 744e1f32-c1ae-314f-8853-e77f35f1a178 Ancestors: MorphicTests-fbs.21 Somewhere in Tests-fbs.212 and MorphicTests-fbs.20 this class hung onto an instance of its renamed superclass, and merry hell ensued. =============== Diff against MorphicTests-fbs.21 =============== Item was changed: + MorphicUIManagerTest subclass: #StickynessBugz - AnObsoleteMorphicUIBugTest subclass: #StickynessBugz instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'MorphicTests-Basic'! !StickynessBugz commentStamp: 'wiz 11/24/2006 00:24' prior: 0! A StickynessBugz is for mantis #5500 rectangles and ellipses don't act sticky when rotated even when they are.. Instance Variables !

1 0

The Trunk: MorphicTests-fbs.21.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-fbs.21.mcz ==================== Summary ==================== Name: MorphicTests-fbs.21 Author: fbs Time: 3 July 2013, 6:07:47.808 pm UUID: c0755bb4-cce7-774c-a9fb-d19a11e668fe Ancestors: MorphicTests-fbs.20 MorphicUIManagerTest belongs in the MorphicTests package. =============== Diff against MorphicTests-fbs.20 =============== Item was changed: SystemOrganization addCategory: #'MorphicTests-Basic'! SystemOrganization addCategory: #'MorphicTests-Kernel'! SystemOrganization addCategory: #'MorphicTests-Layouts'! + SystemOrganization addCategory: #'MorphicTests-ToolBuilder'! SystemOrganization addCategory: #'MorphicTests-Support'! SystemOrganization addCategory: #'MorphicTests-Text Support'! SystemOrganization addCategory: #'MorphicTests-Widgets'! SystemOrganization addCategory: #'MorphicTests-Worlds'! Item was added: + TestCase subclass: #MorphicUIManagerTest + instanceVariableNames: 'cases' + classVariableNames: '' + poolDictionaries: '' + category: 'MorphicTests-ToolBuilder'! + + !MorphicUIManagerTest commentStamp: 'wiz 1/3/2007 13:57' prior: 0! + A MorphicUIBugTest is a class for testing the shortcomings and repairs of the MorphicUI manager. + . + + Instance Variables + cases: <aCollection> + + cases + - a list of morphs that may need to be deleted during teardown. + the tests are expected to fill this list it starts out empty by default. + + + ! Item was added: + ----- Method: MorphicUIManagerTest>>defaultTimeout (in category 'as yet unclassified') ----- + defaultTimeout + ^ 60 "seconds"! Item was added: + ----- Method: MorphicUIManagerTest>>findWindowInWorldLabeled: (in category 'as yet unclassified') ----- + findWindowInWorldLabeled: aLabel + + ^World submorphs + detect: [ :each | + (each isKindOf: SystemWindow) + and: [ each label = aLabel ] ] + ifNone: nil.! Item was added: + ----- Method: MorphicUIManagerTest>>setUp (in category 'as yet unclassified') ----- + setUp + "default. tests will add morphs to list. Teardown will delete." + + cases := #() .! Item was added: + ----- Method: MorphicUIManagerTest>>tearDown (in category 'as yet unclassified') ----- + tearDown + "default. tests will add morphs to list. Teardown will delete." + + cases do: [ :each | each delete ] .! Item was added: + ----- Method: MorphicUIManagerTest>>testOpenWorkspace (in category 'as yet unclassified') ----- + testOpenWorkspace + "self new testOpenWorkspace" + "MorphicUIBugTest run: #testOpenWorkspace" + + | window myLabel foundWindow myModel | + self assert: Smalltalk isMorphic. + myLabel := 'Workspace from SUnit test' . + foundWindow := self findWindowInWorldLabeled: myLabel . + self assert: foundWindow isNil. + window := UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel. + window := window. + foundWindow := self findWindowInWorldLabeled: myLabel. + cases := Array with: foundWindow . "For teardown." + myModel := foundWindow submorphs detect: #isMorphicModel. + self assert: myModel model class == Workspace. + self assert: foundWindow model class == Workspace. + foundWindow delete! Item was added: + ----- Method: MorphicUIManagerTest>>testOpenWorkspaceAns (in category 'as yet unclassified') ----- + testOpenWorkspaceAns + "Test if method opening a workspace answers the window opened" + + "MorphicUIBugTest run: #testOpenWorkspaceAns" + + + | window myLabel foundWindow | + + self assert: ( Smalltalk isMorphic ) . + + myLabel := 'Workspace from ', 'SUnit test' . + foundWindow := self findWindowInWorldLabeled: myLabel . + self assert: ( foundWindow isNil ) . + + window := + UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel . + + foundWindow := self findWindowInWorldLabeled: myLabel . + + cases := Array with: foundWindow . "For teardown." + + self assert: ( window == foundWindow ) . + + foundWindow delete .! Item was added: + ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') ----- + testShowAllBinParts + "self new testShowAllBinParts" + "MorphicUIBugTest run: #testShowAllBinParts" + + self assert: ( Smalltalk isMorphic ) . + self shouldnt: [cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld ] raise: Error . + + + + + ! Item was added: + ----- Method: MorphicUIManagerTest>>testUIManagerNoAcceptInitially (in category 'as yet unclassified') ----- + testUIManagerNoAcceptInitially + "Ensure that UIManager does not invoke the accept: action initially." + + | accepted window | + accepted := false. + window := UIManager default edit: Text new label: 'Test' accept: [:val| accepted := true]. + window delete. + self deny: accepted.! Item was changed: + AnObsoleteMorphicUIBugTest subclass: #StickynessBugz - MorphicUIBugTest subclass: #StickynessBugz instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'MorphicTests-Basic'! !StickynessBugz commentStamp: 'wiz 11/24/2006 00:24' prior: 0! A StickynessBugz is for mantis #5500 rectangles and ellipses don't act sticky when rotated even when they are.. Instance Variables !

1 0

The Trunk: Tests-fbs.232.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.232.mcz ==================== Summary ==================== Name: Tests-fbs.232 Author: fbs Time: 3 July 2013, 5:28:04.016 pm UUID: 7c1ec4a6-75b3-5d43-8530-c20c43e743be Ancestors: Tests-fbs.231 MorphicUIManagerTest belongs in the MorphicTests package. =============== Diff against Tests-fbs.231 =============== Item was removed: - TestCase subclass: #MorphicUIManagerTest - instanceVariableNames: 'cases' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! - - !MorphicUIManagerTest commentStamp: 'wiz 1/3/2007 13:57' prior: 0! - A MorphicUIBugTest is a class for testing the shortcomings and repairs of the MorphicUI manager. - . - - Instance Variables - cases: <aCollection> - - cases - - a list of morphs that may need to be deleted during teardown. - the tests are expected to fill this list it starts out empty by default. - - - ! Item was removed: - ----- Method: MorphicUIManagerTest>>defaultTimeout (in category 'as yet unclassified') ----- - defaultTimeout - ^ 60 "seconds"! Item was removed: - ----- Method: MorphicUIManagerTest>>findWindowInWorldLabeled: (in category 'as yet unclassified') ----- - findWindowInWorldLabeled: aLabel - - ^World submorphs - detect: [ :each | - (each isKindOf: SystemWindow) - and: [ each label = aLabel ] ] - ifNone: nil.! Item was removed: - ----- Method: MorphicUIManagerTest>>setUp (in category 'as yet unclassified') ----- - setUp - "default. tests will add morphs to list. Teardown will delete." - - cases := #() .! Item was removed: - ----- Method: MorphicUIManagerTest>>tearDown (in category 'as yet unclassified') ----- - tearDown - "default. tests will add morphs to list. Teardown will delete." - - cases do: [ :each | each delete ] .! Item was removed: - ----- Method: MorphicUIManagerTest>>testOpenWorkspace (in category 'as yet unclassified') ----- - testOpenWorkspace - "self new testOpenWorkspace" - "MorphicUIBugTest run: #testOpenWorkspace" - - | window myLabel foundWindow myModel | - self assert: Smalltalk isMorphic. - myLabel := 'Workspace from SUnit test' . - foundWindow := self findWindowInWorldLabeled: myLabel . - self assert: foundWindow isNil. - window := UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel. - window := window. - foundWindow := self findWindowInWorldLabeled: myLabel. - cases := Array with: foundWindow . "For teardown." - myModel := foundWindow submorphs detect: #isMorphicModel. - self assert: myModel model class == Workspace. - self assert: foundWindow model class == Workspace. - foundWindow delete! Item was removed: - ----- Method: MorphicUIManagerTest>>testOpenWorkspaceAns (in category 'as yet unclassified') ----- - testOpenWorkspaceAns - "Test if method opening a workspace answers the window opened" - - "MorphicUIBugTest run: #testOpenWorkspaceAns" - - - | window myLabel foundWindow | - - self assert: ( Smalltalk isMorphic ) . - - myLabel := 'Workspace from ', 'SUnit test' . - foundWindow := self findWindowInWorldLabeled: myLabel . - self assert: ( foundWindow isNil ) . - - window := - UIManager default edit: '"MorphicUIBugTest run: #openWorkspaceTest"' label: myLabel . - - foundWindow := self findWindowInWorldLabeled: myLabel . - - cases := Array with: foundWindow . "For teardown." - - self assert: ( window == foundWindow ) . - - foundWindow delete .! Item was removed: - ----- Method: MorphicUIManagerTest>>testShowAllBinParts (in category 'as yet unclassified') ----- - testShowAllBinParts - "self new testShowAllBinParts" - "MorphicUIBugTest run: #testShowAllBinParts" - - self assert: ( Smalltalk isMorphic ) . - self shouldnt: [cases := Array with: ObjectsTool initializedInstance showAll openCenteredInWorld ] raise: Error . - - - - - ! Item was removed: - ----- Method: MorphicUIManagerTest>>testUIManagerNoAcceptInitially (in category 'as yet unclassified') ----- - testUIManagerNoAcceptInitially - "Ensure that UIManager does not invoke the accept: action initially." - - | accepted window | - accepted := false. - window := UIManager default edit: Text new label: 'Test' accept: [:val| accepted := true]. - window delete. - self deny: accepted.!

1 0

SS3 canary question
by Chris Cunnington 03 Jul '13

03 Jul '13

>> What would you do? OK, since you asked, I'll take a shot at it. You're a better programmer than I am, but I have no shortage of opinions, so... Autogenerated install scripts are a bad idea. GemTalk Systems SS3 has them and they always seem slightly wrong to me. I never use them. I suspect few people do. First, abandon the inclusion of an autogenerated scripts. Add a field to the admin page for the project, where the admin can paste in an install script of some kind. Could be ConfigurationOfXXX, Gofer, Installer, doesn't matter. This appears in the window where you have your autogenerated scripts now. The user can copy it into a Workspace. You're not responsible for any kind of compatibility with Pharo, Squeak, whatever. It's just a string made publicly available. C'est la. I am surer ground asking for what I want. I want you to make the SS3 image available for public download. I want to move the Altitude squeak.org site I have to Seaside. The Twitter Bootstrap compatibility is more complete. And it would be better if new images for Squeak infrastructure could try to be one single framework instead of a different one for every application. (i.e. Aida, HTTPView2, Seaside, and Swiki). Thanks, Chris

2 1

Jump to page: