Packages December 2010

packages@lists.squeakfoundation.org

2 participants
359 discussions

The Trunk: Morphic-cmm.485.mcz
by commits＠source.squeak.org 06 Dec '10

06 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.485.mcz ==================== Summary ==================== Name: Morphic-cmm.485 Author: cmm Time: 6 December 2010, 3:37:12.45 pm UUID: b112abf5-1ce6-4854-9b01-817977a7ff09 Ancestors: Morphic-cmm.484 - Allow each MorphicProject to maintain its own docking-bar. - Minor clean-ups of access to the "project-parameter" api.. =============== Diff against Morphic-cmm.484 =============== Item was changed: ----- Method: MorphicProject>>cleanseDisabledGlobalFlapIDsList (in category 'flaps support') ----- cleanseDisabledGlobalFlapIDsList "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them" | disabledFlapIDs currentGlobalIDs oldList | disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. oldList ifNotNil: [disabledFlapIDs := oldList select: [:aFlap | aFlap flapID]]. disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs. + self removeParameter: #disabledGlobalFlaps. - projectParameters ifNotNil: - [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]. ! Item was changed: ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- createOrUpdateMainDockingBar "Private - create a new main docking bar or update the current one" | w mainDockingBars | w := self world. mainDockingBars := w mainDockingBars. mainDockingBars isEmpty ifTrue: ["no docking bar, just create a new one" + self dockingBar createDockingBar openInWorld: w. - TheWorldMainDockingBar instance createDockingBar openInWorld: w. ^ self]. "update if needed" mainDockingBars + do: [:each | self dockingBar updateIfNeeded: each]! - do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]! Item was added: + ----- Method: MorphicProject>>dockingBar (in category 'docking bars support') ----- + dockingBar + ^ self + projectParameterAt: #dockingBar + ifAbsent: [ TheWorldMainDockingBar instance ]! Item was added: + ----- Method: MorphicProject>>dockingBar: (in category 'docking bars support') ----- + dockingBar: aTheWorldMainDockingBar + self + projectParameterAt: #dockingBar + put: aTheWorldMainDockingBar. + self isCurrentProject ifTrue: [ TheWorldMainDockingBar instance: aTheWorldMainDockingBar ]! 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]. 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. - revertSeg := self projectParameters at: #revertToMe ifAbsent: [nil]. 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]. - revertSeg ifNotNil: [projectParameters at: #revertToMe put: revertSeg]. ^ false]. ans = 3 ifTrue: [self halt: 'Segment not written']]. is writeForExportWithSources: aFileName inDirectory: aDirectory. + revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg]. - revertSeg ifNotNil: [projectParameters at: #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]. 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. - revertSeg := self projectParameters at: #revertToMe ifAbsent: [nil]. - 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" 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 !

1 0

The Trunk: Morphic-cmm.484.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.484.mcz ==================== Summary ==================== Name: Morphic-cmm.484 Author: cmm Time: 5 December 2010, 11:56:11.959 am UUID: ac90b497-72d9-4b11-80f3-a02679aaec61 Ancestors: Morphic-ul.483, Morphic-cmm.477 Merged Morphic-cmm.477. =============== Diff against Morphic-ul.483 =============== Item was changed: ----- Method: HaloMorph>>doDup:with: (in category 'private') ----- doDup: evt with: dupHandle "Ask hand to duplicate my target." + (target isSelectionMorph) ifTrue: - (target isKindOf: SelectionMorph) ifTrue: [^ target doDup: evt fromHalo: self handle: dupHandle]. self obtainHaloForEvent: evt andRemoveAllHandlesBut: dupHandle. self setTarget: (target duplicateMorph: evt). evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"! Item was changed: ----- Method: Morph>>embedInto: (in category 'meta-actions') ----- embedInto: evt "Embed the receiver into some other morph" | target morphs | morphs := self potentialEmbeddingTargets. target := UIManager default chooseFrom: (morphs collect:[:m| m knownName ifNil:[m class name asString]]) values: self potentialEmbeddingTargets title: ('Place ', self externalName, ' in...'). target ifNil:[^self]. + target addMorphFrontFromWorldPosition: self! - target addMorphFront: self fromWorldPosition: self positionInWorld.! Item was added: + ----- Method: Morph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^false! Item was changed: ----- Method: Morph>>renameTo: (in category 'testing') ----- renameTo: aName "Set Player name in costume. Update Viewers. Fix all tiles (old style). fix References. New tiles: recompile, and recreate open scripts. If coming in from disk, and have name conflict, References will already have new + name." - name. " - | aPresenter putInViewer aPasteUp renderer oldKey assoc classes oldName | oldName := self knownName. + oldName=aName ifTrue: [ ^aName ]. (renderer := self topRendererOrSelf) setNameTo: aName. putInViewer := false. ((aPresenter := self presenter) isNil or: [renderer player isNil]) ifFalse: [putInViewer := aPresenter currentlyViewing: renderer player. putInViewer ifTrue: [renderer player viewerFlapTab hibernate]]. "empty it temporarily" (aPasteUp := self topPasteUp) ifNotNil: [aPasteUp allTileScriptingElements do: [:m | m bringUpToDate]]. "Fix References dictionary. See restoreReferences to know why oldKey is already aName, but oldName is the old name." oldKey := References keyAtIdentityValue: renderer player ifAbsent: []. oldKey ifNotNil: [assoc := References associationAt: oldKey. oldKey = aName ifFalse: ["normal rename" assoc key: (renderer player uniqueNameForReferenceFrom: aName). References rehash]]. putInViewer ifTrue: [aPresenter viewMorph: self]. "recreate my viewer" oldKey ifNil: [^aName]. "Force strings in tiles to be remade with new name. New tiles only." Preferences universalTiles ifFalse: [^aName]. classes := (self systemNavigation allCallsOn: assoc) collect: [:each | each classSymbol]. classes asSet do: [:clsName | (Smalltalk at: clsName) replaceSilently: oldName to: aName]. "replace in text body of all methods. Can be wrong!!" "Redo the tiles that are showing. This is also done in caller in unhibernate. " aPasteUp ifNotNil: [aPasteUp allTileScriptingElements do: [:mm | "just ScriptEditorMorphs" nil. (mm isScriptEditorMorph) ifTrue: [((mm playerScripted class compiledMethodAt: mm scriptName) hasLiteral: assoc) ifTrue: [mm hibernate; unhibernate]]]]. ^aName! 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 == 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 bottomLeft: ActiveWorld bottomLeft - (-10@10). 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]. Utilities addToTrash: self! Item was changed: ----- Method: PasteUpMorph>>deleteAllHalos (in category 'world state') ----- deleteAllHalos + self haloMorphs do: + [ : m | m target isSelectionMorph ifTrue: [ m target delete ] ]. + self hands do: + [ : each | each removeHalo ]! - - self haloMorphs - do: [:each | (each target isKindOf: SelectionMorph) - ifTrue: [each target delete]]. - self hands - do: [:each | each removeHalo]! Item was added: + ----- Method: SelectionMorph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^true! Item was changed: ----- Method: StringMorph>>minHeight (in category 'connectors-layout') ----- minHeight "answer the receiver's minHeight" + ^ super minHeight max: self fontToUse height! - ^ self fontToUse height!

1 0

The Trunk: Morphic-cmm.484.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

The Trunk: Morphic-cmm.484.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

The Trunk: Morphic-cmm.477.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.477.mcz ==================== Summary ==================== Name: Morphic-cmm.477 Author: cmm Time: 5 December 2010, 11:26:13.44 am UUID: e67e92c7-628c-499f-a153-3ce2c6c938f4 Ancestors: Morphic-cmm.476 - Updates from Connectors; for better loading into 4.2. =============== Diff against Morphic-cmm.476 =============== Item was changed: ----- Method: HaloMorph>>doDup:with: (in category 'private') ----- doDup: evt with: dupHandle "Ask hand to duplicate my target." + (target isSelectionMorph) ifTrue: - (target isKindOf: SelectionMorph) ifTrue: [^ target doDup: evt fromHalo: self handle: dupHandle]. self obtainHaloForEvent: evt andRemoveAllHandlesBut: dupHandle. self setTarget: (target duplicateMorph: evt). evt hand grabMorph: target. self step. "update position if necessary" evt hand addMouseListener: self. "Listen for the drop"! Item was changed: ----- Method: Morph>>embedInto: (in category 'meta-actions') ----- embedInto: evt "Embed the receiver into some other morph" | target morphs | morphs := self potentialEmbeddingTargets. target := UIManager default chooseFrom: (morphs collect:[:m| m knownName ifNil:[m class name asString]]) values: self potentialEmbeddingTargets title: ('Place ', self externalName, ' in...'). target ifNil:[^self]. + target addMorphFrontFromWorldPosition: self! - target addMorphFront: self fromWorldPosition: self positionInWorld.! Item was added: + ----- Method: Morph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^false! Item was changed: ----- Method: Morph>>renameTo: (in category 'testing') ----- renameTo: aName "Set Player name in costume. Update Viewers. Fix all tiles (old style). fix References. New tiles: recompile, and recreate open scripts. If coming in from disk, and have name conflict, References will already have new + name." - name. " - | aPresenter putInViewer aPasteUp renderer oldKey assoc classes oldName | oldName := self knownName. + oldName=aName ifTrue: [ ^aName ]. (renderer := self topRendererOrSelf) setNameTo: aName. putInViewer := false. ((aPresenter := self presenter) isNil or: [renderer player isNil]) ifFalse: [putInViewer := aPresenter currentlyViewing: renderer player. putInViewer ifTrue: [renderer player viewerFlapTab hibernate]]. "empty it temporarily" (aPasteUp := self topPasteUp) ifNotNil: [aPasteUp allTileScriptingElements do: [:m | m bringUpToDate]]. "Fix References dictionary. See restoreReferences to know why oldKey is already aName, but oldName is the old name." oldKey := References keyAtIdentityValue: renderer player ifAbsent: []. oldKey ifNotNil: [assoc := References associationAt: oldKey. oldKey = aName ifFalse: ["normal rename" assoc key: (renderer player uniqueNameForReferenceFrom: aName). References rehash]]. putInViewer ifTrue: [aPresenter viewMorph: self]. "recreate my viewer" oldKey ifNil: [^aName]. "Force strings in tiles to be remade with new name. New tiles only." Preferences universalTiles ifFalse: [^aName]. classes := (self systemNavigation allCallsOn: assoc) collect: [:each | each classSymbol]. classes asSet do: [:clsName | (Smalltalk at: clsName) replaceSilently: oldName to: aName]. "replace in text body of all methods. Can be wrong!!" "Redo the tiles that are showing. This is also done in caller in unhibernate. " aPasteUp ifNotNil: [aPasteUp allTileScriptingElements do: [:mm | "just ScriptEditorMorphs" nil. (mm isScriptEditorMorph) ifTrue: [((mm playerScripted class compiledMethodAt: mm scriptName) hasLiteral: assoc) ifTrue: [mm hibernate; unhibernate]]]]. ^aName! 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 == 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 bottomLeft: ActiveWorld bottomLeft - (-10@10). 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]. Utilities addToTrash: self! Item was changed: ----- Method: PasteUpMorph>>deleteAllHalos (in category 'world state') ----- deleteAllHalos + self haloMorphs do: + [ : m | m target isSelectionMorph ifTrue: [ m target delete ] ]. + self hands do: + [ : each | each removeHalo ]! - - self haloMorphs - do: [:each | (each target isKindOf: SelectionMorph) - ifTrue: [each target delete]]. - self hands - do: [:each | each removeHalo]! Item was added: + ----- Method: SelectionMorph>>isSelectionMorph (in category 'testing') ----- + isSelectionMorph + ^true! Item was changed: ----- Method: StringMorph>>minHeight (in category 'connectors-layout') ----- minHeight "answer the receiver's minHeight" + ^ super minHeight max: self fontToUse height! - ^ self fontToUse height!

1 0

The Trunk: Morphic-cmm.477.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

The Trunk: Morphic-cmm.477.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

The Trunk: Morphic-ul.483.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.483.mcz ==================== Summary ==================== Name: Morphic-ul.483 Author: ul Time: 5 December 2010, 3:21:30.48 pm UUID: a1007156-f055-c241-a7df-20b619f0f097 Ancestors: Morphic-cmm.482 - added an accessor for TextMorph's paragraph which is used by the latest version of OCompletion =============== Diff against Morphic-cmm.482 =============== Item was added: + ----- Method: TextEditor>>paragraph (in category 'accessing') ----- + paragraph + + ^paragraph!

1 0

The Trunk: Morphic-ul.483.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

The Trunk: Morphic-ul.483.mcz
by commits＠source.squeak.org 05 Dec '10

05 Dec '10

1 0

← Newer
1
...
29
30
31
32
33
34
35
36
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 December 2010