Packages November 2013

packages@lists.squeakfoundation.org

1 participants
315 discussions

The Trunk: Morphic-fbs.699.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.699.mcz ==================== Summary ==================== Name: Morphic-fbs.699 Author: fbs Time: 25 November 2013, 9:01:18.155 am UUID: f48605fb-165d-b447-9aea-b88e8f39fdfc Ancestors: Morphic-cmm.698 Deprecate the old scrapsbook API: use ScrapBook instead of Utilities. (These things reference something in MorphicExtras! Bad!) =============== Diff against Morphic-cmm.698 =============== Item was changed: ----- Method: Morph>>slideToTrash: (in category 'dropping/grabbing') ----- slideToTrash: evt "Perhaps slide the receiver across the screen to a trash can and make it disappear into it. In any case, remove the receiver from the screen." | aForm trash startPoint endPoint morphToSlide | + ((self renderedMorph == ScrapBook default scrapBook) or: [self renderedMorph isKindOf: TrashCanMorph]) ifTrue: - ((self renderedMorph == Utilities scrapsBook) or: [self renderedMorph isKindOf: TrashCanMorph]) ifTrue: [self dismissMorph. ^ self]. Preferences slideDismissalsToTrash ifTrue: [morphToSlide := self representativeNoTallerThan: 200 norWiderThan: 200 thumbnailHeight: 100. aForm := morphToSlide imageForm offset: (0@0). trash := ActiveWorld findDeepSubmorphThat: [:aMorph | (aMorph isKindOf: TrashCanMorph) and: [aMorph topRendererOrSelf owner == ActiveWorld]] ifAbsent: [trash := TrashCanMorph new. trash position: ActiveWorld bottomLeft - (0 @ (trash extent y + 26)). trash openInWorld. trash]. endPoint := trash fullBoundsInWorld center. startPoint := self topRendererOrSelf fullBoundsInWorld center - (aForm extent // 2)]. self dismissMorph. ActiveWorld displayWorld. Preferences slideDismissalsToTrash ifTrue: [aForm slideFrom: startPoint to: endPoint nSteps: 12 delay: 15]. + ScrapBook default addToTrash: self! - Utilities addToTrash: self! Item was changed: ----- Method: MorphicProject>>exportSegmentWithCatagories:classes:fileName:directory: (in category 'file in/out') ----- exportSegmentWithCatagories: catList classes: classList fileName: aFileName directory: aDirectory "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. What do we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder | self flag: #toRemove. self halt. "unused" "world == World ifTrue: [^ false]." "self inform: 'Can''t send the current world out'." world ifNil: [^ false]. world presenter ifNil: [^ false]. + ScrapBook default emptyScrapsBook. - Utilities emptyScrapsBook. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ self error: 'Still holding onto Global flaps']. world releaseSqueakPages. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" revertSeg := self parameterAt: #revertToMe. self projectParameters removeKey: #revertToMe ifAbsent: []. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail. roots add: world activeHand; addAll: classList; addAll: (classList collect: [:cls | cls class]). roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" catList do: [:sysCat | (SystemOrganization listAtCategoryNamed: sysCat asSymbol) do: [:symb | roots add: (Smalltalk at: symb); add: (Smalltalk at: symb) class]]. is := ImageSegment new copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" is state = #tooBig ifTrue: [^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' withCRs]. str isEmpty ifFalse: [ ans := (UIManager default chooseFrom: #('Do not write file' 'Write file anyway' 'Debug') title: str). ans = 1 ifTrue: [ revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg]. ^ false]. ans = 3 ifTrue: [self halt: 'Segment not written']]. is writeForExportWithSources: aFileName inDirectory: aDirectory. revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg]. holder. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true ! Item was changed: ----- Method: MorphicProject>>exportSegmentWithChangeSet:fileName:directory: (in category 'file in/out') ----- exportSegmentWithChangeSet: aChangeSetOrNil fileName: aFileName directory: aDirectory "Store my project out on the disk as an *exported* ImageSegment. All outPointers will be in a form that can be resolved in the target image. Name it <project name>.extSeg. Whatdo we do about subProjects, especially if they are out as local image segments? Force them to come in? Player classes are included automatically." | is str ans revertSeg roots holder collector fd mgr stacks | "Files out a changeSet first, so that a project can contain its own classes" world ifNil: [^ false]. world presenter ifNil: [^ false]. + ScrapBook default emptyScrapsBook. - Utilities emptyScrapsBook. world currentHand pasteBuffer: nil. "don't write the paste buffer." world currentHand mouseOverHandler initialize. "forget about any references here" "Display checkCurrentHandForObjectToPaste." Command initialize. world clearCommandHistory. world fullReleaseCachedState; releaseViewers. world cleanseStepList. world localFlapTabs size = world flapTabs size ifFalse: [ self error: 'Still holding onto Global flaps']. world releaseSqueakPages. holder := Project allProjects. "force them in to outPointers, where DiskProxys are made" "Just export me, not my previous version" revertSeg := self parameterAt: #revertToMe. self removeParameter: #revertToMe. roots := OrderedCollection new. roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail. roots add: world activeHand. "; addAll: classList; addAll: (classList collect: [:cls | cls class])" roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail" fd := aDirectory directoryNamed: self resourceDirectoryName. fd assureExistence. "Clean up resource references before writing out" mgr := self resourceManager. self resourceManager: nil. ResourceCollector current: ResourceCollector new. ResourceCollector current localDirectory: fd. ResourceCollector current baseUrl: self resourceUrl. ResourceCollector current initializeFrom: mgr. ProgressNotification signal: '2:findingResources' extra: '(collecting resources...)' translated. "Must activate old world because this is run at #armsLength. Otherwise references to ActiveWorld, ActiveHand, or ActiveEvent will not be captured correctly if referenced from blocks or user code." world becomeActiveDuring:[ is := ImageSegment new copySmartRootsExport: roots asArray. "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)" ]. self resourceManager: mgr. collector := ResourceCollector current. ResourceCollector current: nil. ProgressNotification signal: '2:foundResources' extra: ''. is state = #tooBig ifTrue: [ collector replaceAll. ^ false]. str := ''. "considered legal to save a project that has never been entered" (is outPointers includes: world) ifTrue: [ str := str, '\Project''s own world is not in the segment.' translated withCRs]. str isEmpty ifFalse: [ ans := UIManager default chooseFrom: { 'Do not write file' translated. 'Write file anyway' translated. 'Debug' translated. } title: str. ans = 1 ifTrue: [ revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. collector replaceAll. ^ false]. ans = 3 ifTrue: [ collector replaceAll. self halt: 'Segment not written' translated]]. stacks := is findStacks. is writeForExportWithSources: aFileName inDirectory: fd changeSet: aChangeSetOrNil. SecurityManager default signFile: aFileName directory: fd. "Compress all files and update check sums" collector forgetObsolete. self storeResourceList: collector in: fd. self storeHtmlPageIn: fd. self storeManifestFileIn: fd. self writeStackText: stacks in: fd registerIn: collector. "local proj.005.myStack.t" self compressFilesIn: fd to: aFileName in: aDirectory resources: collector. "also deletes the resource directory" "Now update everything that we know about" mgr updateResourcesFrom: collector. revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. holder. collector replaceAll. world flapTabs do: [:ft | (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]]. is arrayOfRoots do: [:obj | obj isScriptEditorMorph ifTrue: [obj unhibernate]]. ^ true ! Item was changed: ----- Method: MorphicProject>>storeSegment (in category 'file in/out') ----- storeSegment "Store my project out on the disk as an ImageSegment. Keep the outPointers in memory. Name it <project name>.seg. *** Caller must be holding (Project alInstances) to keep subprojects from going out. ***" | is sizeHint | (World == world) ifTrue: [^ false]. "self inform: 'Can''t send the current world out'." world isInMemory ifFalse: [^ false]. "already done" world ifNil: [^ false]. world presenter ifNil: [^ false]. + ScrapBook default emptyScrapsBook. - Utilities emptyScrapsBook. World checkCurrentHandForObjectToPaste. world releaseSqueakPages. sizeHint := self projectParameters at: #segmentSize ifAbsent: [0]. is := ImageSegment new copyFromRootsLocalFileFor: (Array with: world presenter with: world) "world, and all Players" sizeHint: sizeHint. is state = #tooBig ifTrue: [^ false]. is segment size < 2000 ifTrue: ["debugging" Transcript show: self name, ' only ', is segment size printString, 'bytes in Segment.'; cr]. self projectParameters at: #segmentSize put: is segment size. is extract; writeToFile: self name. ^ true ! Item was changed: ----- Method: MorphicProject>>storeSegmentNoFile (in category 'file in/out') ----- storeSegmentNoFile "For testing. Make an ImageSegment. Keep the outPointers in memory. Also useful if you want to enumerate the objects in the segment afterwards (allObjectsDo:)" | is | (World == world) ifTrue: [^ self]. " inform: 'Can''t send the current world out'." world isInMemory ifFalse: [^ self]. "already done" world ifNil: [^ self]. world presenter ifNil: [^ self]. "Do this on project enter" World flapTabs do: [:ft | ft referent adaptToWorld: World]. "Hack to keep the Menu flap from pointing at my project" "Preferences setPreference: #useGlobalFlaps toValue: false." "Utilities globalFlapTabsIfAny do: [:aFlapTab | Utilities removeFlapTab: aFlapTab keepInList: false]. Utilities clobberFlapTabList. " "project world deleteAllFlapArtifacts." "self currentWorld deleteAllFlapArtifacts. " + ScrapBook default emptyScrapsBook. - Utilities emptyScrapsBook. World checkCurrentHandForObjectToPaste2. is := ImageSegment new copyFromRootsLocalFileFor: (Array with: world presenter with: world) "world, and all Players" sizeHint: 0. is segment size < 800 ifTrue: ["debugging" Transcript show: self name, ' did not get enough objects'; cr. ^ Beeper beep]. is extract. "is instVarAt: 2 put: is segment clone." "different memory" ! Item was changed: ----- Method: PasteUpMorph>>openScrapsBook: (in category 'world menu') ----- openScrapsBook: evt "Open up the Scraps book in the center of the screen" + evt hand world addMorphCentered: ScrapBook default scrapBook! - evt hand world addMorphCentered: Utilities scrapsBook!

1 0

The Trunk: MorphicExtras-fbs.127.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

Frank Shearar uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-fbs.127.mcz ==================== Summary ==================== Name: MorphicExtras-fbs.127 Author: fbs Time: 25 November 2013, 8:59:19.085 am UUID: ed3dd937-6878-fd43-8270-67c3042edd6a Ancestors: MorphicExtras-nice.126 Deprecate the old scrapsbook API: use ScrapBook instead of Utilities. =============== Diff against MorphicExtras-nice.126 =============== Item was changed: ----- Method: ScrapBook>>scrapBook (in category 'scraps') ----- scrapBook | header aButton label | ^ book ifNil: [ book := BookMorph new pageSize: 200@300; setNameTo: 'scraps' translated. book color: Color yellow muchLighter. book borderColor: Color darkGray; borderWidth: 2. book removeEverything; showPageControls; insertPage. header := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter. header setProperty: #header toValue: true. header addMorph: (aButton := SimpleButtonMorph new label: 'O' font: Preferences standardButtonFont). aButton target: book; color: Color tan; actionSelector: #delete; setBalloonText: 'Close the trashcan.\(to view again later, click on any trashcan).' withCRs translated. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (label := UpdatingStringMorph new target: self) beSticky. label getSelector: #trashTitle; useStringFormat; step. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (aButton := SimpleButtonMorph new label: 'E' translated font: Preferences standardButtonFont). + aButton target: self; color: Color veryLightGray; actionSelector: #maybeEmptyTrash; - aButton target: Utilities; color: Color veryLightGray; actionSelector: #maybeEmptyTrash; setBalloonText: 'Click here to empty the trash.' translated. book currentPage addMorph: (TextMorph new contents: 'Objects you drag into the trash will automatically be saved here, one object per page, in case you need them later. To disable this feature set the "preserveTrash" Preference to false.\\You can individually expunge objects by hitting the - control, and you can empty out all the objects in the trash can by hitting the "E" button at top right.' withCRs translated wrappedTo: 190). book addMorphFront: header. book setProperty: #scraps toValue: true].! Item was changed: ----- Method: TrashCanMorph class>>moveToTrash: (in category 'miscellaneous') ----- moveToTrash: aMorph SoundService soundEnabled ifTrue: [Preferences preserveTrash ifFalse: [self playSoundNamed: 'scratch'] ifTrue: [self playDeleteSound]]. aMorph delete. + aMorph == ScrapBook default scrapBook ifFalse: + [ScrapBook default addToTrash: aMorph]! - aMorph == Utilities scrapsBook ifFalse: - [Utilities addToTrash: aMorph]! Item was changed: ----- Method: TrashCanMorph>>acceptDroppingMorph:event: (in category 'layout') ----- acceptDroppingMorph: aMorph event: evt SoundService soundEnabled ifTrue: [Preferences preserveTrash ifTrue: [self class playDeleteSound] ifFalse: [self playSoundNamed: 'scratch']]. evt hand visible: true. self state: #off. aMorph delete. + aMorph == ScrapBook default scrapBook + ifFalse: [ScrapBook default addToTrash: aMorph removeHalo]! - aMorph == Utilities scrapsBook - ifFalse: [Utilities addToTrash: aMorph removeHalo]! Item was changed: ----- Method: TrashCanMorph>>wantsDroppedMorph:event: (in category 'dropping/grabbing') ----- wantsDroppedMorph: aMorph event: evt + ^ ((aMorph ~~ self) and: [aMorph ~~ ScrapBook default scrapBook]) and: - ^ ((aMorph ~~ self) and: [aMorph ~~ Utilities scrapsBook]) and: [aMorph willingToBeDiscarded]! Item was removed: - ----- Method: Utilities class>>addToTrash: (in category '*MorphicExtras-scraps') ----- - addToTrash: aMorph - ScrapBook default addToTrash: aMorph.! Item was removed: - ----- Method: Utilities class>>emptyScrapsBook (in category '*MorphicExtras-scraps') ----- - emptyScrapsBook - ScrapBook default emptyScrapBook! Item was removed: - ----- Method: Utilities class>>maybeEmptyTrash (in category '*MorphicExtras-scraps') ----- - maybeEmptyTrash - ScrapBook default maybeEmptyTrash.! Item was removed: - ----- Method: Utilities class>>scrapsBook (in category '*MorphicExtras-scraps') ----- - scrapsBook - ^ ScrapBook default scrapBook!

1 0

The Trunk: MorphicExtras-fbs.127.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

1 0

The Trunk: MorphicExtras-fbs.127.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

1 0

The Trunk: 45Deprecated-fbs.14.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

Frank Shearar uploaded a new version of 45Deprecated to project The Trunk: http://source.squeak.org/trunk/45Deprecated-fbs.14.mcz ==================== Summary ==================== Name: 45Deprecated-fbs.14 Author: fbs Time: 25 November 2013, 8:57:46.498 am UUID: f395c8a5-ff0a-8041-b999-81fa83dc6eef Ancestors: 45Deprecated-fbs.13 Deprecate the old scrapsbook API: use ScrapBook instead of Utilities. =============== Diff against 45Deprecated-fbs.13 =============== Item was added: + ----- Method: Utilities class>>addToTrash: (in category '*45Deprecated-scraps') ----- + addToTrash: aMorph + self deprecated: 'Use ScrapBook default >> #addToTrash:'. + ScrapBook default addToTrash: aMorph.! Item was added: + ----- Method: Utilities class>>emptyScrapsBook (in category '*45Deprecated-scraps') ----- + emptyScrapsBook + self deprecated: 'Use ScrapBook default emptyScrapBook'. + ScrapBook default emptyScrapBook! Item was added: + ----- Method: Utilities class>>maybeEmptyTrash (in category '*45Deprecated-scraps') ----- + maybeEmptyTrash + self deprecated: 'Use ScrapBook >> #maybeEmptyTrash'. + ScrapBook default maybeEmptyTrash.! Item was added: + ----- Method: Utilities class>>scrapsBook (in category '*45Deprecated-scraps') ----- + scrapsBook + self deprecated: 'Use ScrapBook default scrapBook'. + ^ ScrapBook default scrapBook!

1 0

The Trunk: 45Deprecated-fbs.14.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

1 0

The Trunk: 45Deprecated-fbs.14.mcz
by commits＠source.squeak.org 25 Nov '13

25 Nov '13

1 0

The Trunk: Environments-fbs.34.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

Frank Shearar uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.34.mcz ==================== Summary ==================== Name: Environments-fbs.34 Author: fbs Time: 24 November 2013, 8:52:50.076 pm UUID: 953b173c-880c-4445-861d-4dd6461aef39 Ancestors: Environments-cmm.33 #hasBindingThatBeginsWith: belongs to Shout. =============== Diff against Environments-cmm.33 =============== Item was removed: - ----- Method: Environment>>hasBindingThatBeginsWith: (in category 'binding') ----- - hasBindingThatBeginsWith: aString - references associationsDo: - [:ea | (ea key beginsWith: aString) ifTrue: [^ true]]. - ^ false - - !

1 0

The Trunk: Environments-fbs.34.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

1 0

The Trunk: Environments-fbs.34.mcz
by commits＠source.squeak.org 24 Nov '13

24 Nov '13

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
32
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 November 2013