Packages July 2013

packages@lists.squeakfoundation.org

1 participants
522 discussions

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.22.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

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

03 Jul '13

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: MorphicTests-fbs.21.mcz
by commits＠source.squeak.org 03 Jul '13

03 Jul '13

1 0

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

03 Jul '13

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

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

03 Jul '13

1 0

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

03 Jul '13

1 0

← Newer
1
...
45
46
47
48
49
50
51
52
53
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2013