Squeak-dev July 2010

squeak-dev@lists.squeakfoundation.org

75 participants
234 discussions

[ANN] WorkspaceAsMethod package
by C. David Shaffer 02 Jul '10

02 Jul '10

My last post about this went "thud" :-) That's OK, I decided I'd just try it for a while. After two days I have to say that the idea of saving workspace contents to class-side methods is working pretty well so I published WorkspaceAsMethod to squeaksource. In Squeak 4.1 install with: Installer ss project: 'WorkspaceAsMethod'; install: 'WorkspaceAsMethod' >From the Workspaces class documentation: This class simplifies storing Workspace contents in class-side methods. Right now there is no UI support so you have to do things manually. Begin by creating a class to house your workspaces. Make it a subclass of me. In this example I'll call it TmpWorkspaces: Workspaces subclass: #TmpWorkspaces instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'WorkspacesDemo' Now create a new workspace by evaluating: TmpWorkspaces openNewWorkspaceSelector: #firstWorkspace label: 'First Workspace'. If you browse the TmpWorkspaces class you'll see a class-side method called firstWorkspace. This is where your workspace contents will be saved. Modify the workspace and 'accept' your changes. The class-side method will be updated accordingly. You can close the Workspace without fear of losing anything. To re-open it just: TmpWorkspaces firstWorkspace or TmpWorkspaces open: #firstWorkspace To open all workspaces just: TmpWorkspaces openAll. The #openAll method assumes that your workspaces are all in the method category 'workspaces' so if you move them they won't be opened by this selector. David

2 1

Daily Commit Log
by commits＠source.squeak.org 02 Jul '10

02 Jul '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-July/003499.html Name: System-ul.346 Ancestors: System-eem.345 - ignore vm parameters with nil value in MessageTally, so it can be used in Cog ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003500.html Name: Kernel-eem.466 Ancestors: Kernel-ar.465 Add Object>>okToClose for multi-window browser support ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003501.html Name: Morphic-eem.451 Ancestors: Morphic-eem.450 Morphic support for browser multi-windows. 1 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). Also fix docking bar's Help menu for unload all packages images ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003502.html Name: ToolBuilder-Kernel-eem.36 Ancestors: ToolBuilder-Kernel-ar.35 ToolBuilder support for browser multi-windows. 2 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003503.html Name: ToolBuilder-Morphic-eem.63 Ancestors: ToolBuilder-Morphic-ar.62 ToolBuilder support for browser multi-windows. 3 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003504.html Name: Tools-eem.250 Ancestors: Tools-eem.249 Browser multi-windows. 4 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). Needs Kernel-eem.466 (Object>>okToClose) Supports multi-windows in the Browser TweakBrowser and PackagePaneBrowser. (browser preference Multi-window browsers) Also inspect method & explore method & if possible preserve protocol and selector selections when switching between classes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003505.html Name: Kernel-ul.467 Ancestors: Kernel-eem.466 - a bit faster DependentsArray >> #select: implementation - added missing MethodDictionary >> #associationAt:ifAbsent: ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003506.html Name: ToolBuilder-Morphic-eem.64 Ancestors: ToolBuilder-Morphic-eem.63 Must set a workspave not to style before its contents are set otherwise the text will be styled initially and lose its emphases. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-July/003507.html Name: ToolBuilder-Morphic-eem.65 Ancestors: ToolBuilder-Morphic-eem.64 Restore the setting of the label in edit:label:accept: =============================================

1 0

The Trunk: ToolBuilder-Morphic-eem.65.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-eem.65.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-eem.65 Author: eem Time: 1 July 2010, 2:41:34.604 pm UUID: 8e9c3431-ddbc-43f6-a77c-0fc2599cf789 Ancestors: ToolBuilder-Morphic-eem.64 Restore the setting of the label in edit:label:accept: =============== Diff against ToolBuilder-Morphic-eem.64 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" | window | window := Workspace open. + labelString ifNotNil: [ window setLabel: labelString ]. "By default, don't style in UIManager edit: requests" window model shouldStyle: false; acceptAction: anAction; acceptContents: aText. ^window.!

1 0

The Trunk: ToolBuilder-Morphic-eem.64.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-eem.64.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-eem.64 Author: eem Time: 1 July 2010, 2:27:23.819 pm UUID: b246d9d5-4f14-48de-8684-9637a009c58b Ancestors: ToolBuilder-Morphic-eem.63 Must set a workspave not to style before its contents are set otherwise the text will be styled initially and lose its emphases. =============== Diff against ToolBuilder-Morphic-eem.63 =============== Item was changed: ----- Method: MorphicUIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" - | window | window := Workspace open. + "By default, don't style in UIManager edit: requests" - labelString ifNotNil: [ window setLabel: labelString ]. window model shouldStyle: false; + acceptAction: anAction; + acceptContents: aText. - acceptContents: aText; - acceptAction: anAction. ^window.!

1 0

Re: [squeak-dev] The Trunk: Tools-eem.250.mcz
by Eliot Miranda 01 Jul '10

01 Jul '10

This is a clean-up of something I did while at Cadence and something I depend on for screen real-estate management. It's a quick-and-dirty tabbed browser scheme that shares several browsers within one screen window. It puts the control in the label area of the system window as a menu that shows the windows and provides new/copy/delete controls. If enabled (via a preference) then the find class menu pick and the hierarchy button will not spawn new windows but instead create a new multi-window in the current browser. This works with the Browser PackagePaneBrowser and the TweakBrowser. The scheme is careful to save your edits in multiple windows. It won't close if there are unsaved edits in inactive multi-windows. e.g. you can see in the picture below that in mw 1 there's an unsaved modification to Object>>isKindOf:. [image: milti-window-browser-small.png] For MVC folks, while the multi-window scheme (much improved through conversations with Andreas) is implemented only for Morphic the tool builder framework should extend to MVC quite easily. Essentially all you need to add is a StandardSystemController that will hold onto a SavedMuitiWindowState and translate button presses in the label into appropriate activation of the SavedMultiWindowState's windows. HTH Eliot On Thu, Jul 1, 2010 at 11:53 AM, <commits(a)source.squeak.org> wrote: > Eliot Miranda uploaded a new version of Tools to project The Trunk: > http://source.squeak.org/trunk/Tools-eem.250.mcz >

1 0

The Trunk: Kernel-ul.467.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.467.mcz ==================== Summary ==================== Name: Kernel-ul.467 Author: ul Time: 1 July 2010, 9:11:12.989 pm UUID: fd9601ae-bedf-9342-b329-947d78cb0329 Ancestors: Kernel-eem.466 - a bit faster DependentsArray >> #select: implementation - added missing MethodDictionary >> #associationAt:ifAbsent: =============== Diff against Kernel-eem.466 =============== Item was added: + ----- Method: MethodDictionary>>associationAt:ifAbsent: (in category 'accessing') ----- + associationAt: key ifAbsent: aBlock + "Answer the association with the given key. + If key is not found, return the result of evaluating aBlock." + + ^(array at: (self scanFor: key)) + ifNil: [ aBlock value ] + ifNotNil: [ :value | key -> value ]! Item was changed: ----- Method: DependentsArray>>select: (in category 'enumerating') ----- select: aBlock "Refer to the comment in Collection|select:." + | basicSize newSelf size selection | - | basicSize newSelf size dep selection | basicSize := self basicSize. newSelf := self species new: basicSize. size := 0. + 1 to: basicSize do: [ :i | + (self basicAt: i) ifNotNil: [ :dep | + (aBlock value: dep) ifTrue: [ + newSelf basicAt: (size := size+1) put: dep ] ] ]. - 1 to: basicSize do: [:i | - ((dep := self basicAt: i) notNil and: [aBlock value: dep]) ifTrue: [newSelf basicAt: (size := size+1) put: dep]]. selection := self species new: size. selection basicReplaceFrom: 1 to: size with: newSelf startingAt: 1. ^selection!

1 0

The Trunk: Tools-eem.250.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.250.mcz ==================== Summary ==================== Name: Tools-eem.250 Author: eem Time: 1 July 2010, 11:53:29.826 am UUID: 98d2fea9-c7c8-46dd-b2d1-49da4dbba439 Ancestors: Tools-eem.249 Browser multi-windows. 4 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). Needs Kernel-eem.466 (Object>>okToClose) Supports multi-windows in the Browser TweakBrowser and PackagePaneBrowser. (browser preference Multi-window browsers) Also inspect method & explore method & if possible preserve protocol and selector selections when switching between classes. =============== Diff against Tools-eem.249 =============== Item was added: + ----- Method: SavedMultiWindowState>>currentModelIndex (in category 'accessing') ----- + currentModelIndex + ^currentModelIndex! Item was added: + ----- Method: Browser>>arrowKey:from: (in category 'multi-window support') ----- + arrowKey: aChar from: view + "Intercept Apple-Digit to select panes" + | index | + (aChar isDigit + and: [multiWindowState notNil]) ifTrue: + [index := aChar asciiValue - $0 asciiValue. + index = 0 ifTrue: [index := 10]. + ^index <= multiWindowState models size + ifTrue: [multiWindowState selectWindowIndex: index] + ifFalse: [self changed: #flash]]. + ^super arrowKey: aChar from: view + ! Item was changed: StringHolder subclass: #CodeHolder + instanceVariableNames: 'currentCompiledMethod contentsSymbol multiWindowState' + classVariableNames: 'ContentsSymbolQuints EditContentsOptions MultiWindowBrowsers' - instanceVariableNames: 'currentCompiledMethod contentsSymbol' - classVariableNames: 'ContentsSymbolQuints EditContentsOptions' poolDictionaries: '' category: 'Tools-Base'! !CodeHolder commentStamp: '<historical>' prior: 0! An ancestor class for all models which can show code. Eventually, much of the code that currently resides in StringHolder which only applies to code-holding StringHolders might get moved down here.! Item was added: + ----- Method: Browser>>okToClose (in category 'multi-window support') ----- + okToClose + ^super okToClose + and: [multiWindowState isNil or: [multiWindowState okToClose]]! Item was added: + ----- Method: CodeHolder class>>useMultiWindowBrowsers (in category 'preferences') ----- + useMultiWindowBrowsers + <preference: 'Multi-window browsers' + category: 'browsing' + description: 'When enabled, the browser uses a multi-window to conserve real-estate. e.g. enable then click in the window label of a browser.' + type: #Boolean> + ^MultiWindowBrowsers ifNil: [false]! Item was added: + ----- Method: PackagePaneBrowser>>multiWindowName (in category 'multi-window support') ----- + multiWindowName + "Answer the string to display for the receiver in a multi-window." + ^String streamContents: + [:s| | str | + self package + ifNil: [s nextPut: $a; space; nextPutAll: self defaultBrowserTitle] + ifNotNil: + [:pkg| + s nextPutAll: pkg; space. + self selectedClass ifNotNil: [:class| s print: class]. + self metaClassIndicated ifTrue: + [s nextPutAll: ' class']]. + (str := self selectedMessageName) notNil + ifTrue: [s nextPutAll: '>>'; nextPutAll: str] + ifFalse: + [(str := self selectedMessageCategoryName) notNil + ifTrue: [s space; nextPut: ${; nextPutAll: str; nextPut: $}]]]! Item was added: + ----- Method: SavedMultiWindowState>>editState (in category 'selecting') ----- + editState + | textState | + textState := WeakIdentityKeyDictionary new. + modelDependents do: + [:dep| + dep canHaveUnacceptedEdits ifTrue: + [textState at: dep put: dep unacceptedEditState]]. + ^textState! Item was added: + ----- Method: SavedMultiWindowState>>removeCurrentWindow (in category 'operations') ----- + removeCurrentWindow + "Remove the current pane." + | deletedIndex | + self assert: models size > 1. + self assert: models size = modelStates size. + (models at: currentModelIndex) okToChange ifFalse: + [^self]. + deletedIndex := currentModelIndex. + self selectWindowIndex: (currentModelIndex = 1 + ifTrue: [currentModelIndex + 1] + ifFalse: [currentModelIndex - 1]). + models := models copyWithoutIndex: deletedIndex. + modelStates := modelStates copyWithoutIndex: deletedIndex. + currentModelIndex > deletedIndex ifTrue: + [currentModelIndex := currentModelIndex - 1]. + (models at: currentModelIndex) changed: #relabel! Item was added: + ----- Method: SavedMultiWindowState>>copyWindow (in category 'operations') ----- + copyWindow + self addWindow: (models at: currentModelIndex) copy breakDependents! Item was added: + ----- Method: Behavior>>settersReturnValue (in category '*Tools-Browser-accessors') ----- + settersReturnValue + "Determine whether the browser's createInstVarAccessors code will generate + setters that answer self (the default here) or the value set. Classes that want + to answer the value set (e.g. VMStructType) override." + ^false! Item was added: + ----- Method: HierarchyBrowser>>isHierarchy (in category 'multi-window support') ----- + isHierarchy + ^true! Item was added: + ----- Method: SavedMultiWindowState>>okToClose (in category 'testing') ----- + okToClose + "Answer if the unaccepted edit states are void. If they are not then + offer to select a window with non-empty unaccepted edit state." + + modelStates withIndexDo: + [:savedState :index| + savedState ifNotNil: + [(savedState last anySatisfy: [:editState| editState notNil]) ifTrue: + [(PopUpMenu + confirm: 'One or more windows have unsaved changes.' + trueChoice: 'Close Anyway' + falseChoice: 'Select Unsaved') ifTrue: [^true]. + self selectWindowIndex: index. + ^false]]]. + ^true! Item was changed: ----- Method: Browser>>createInstVarAccessors (in category 'class functions') ----- createInstVarAccessors + "Create getters and setters for all inst vars defined at the level of the current class selection, + except do NOT clobber or override any selectors already understood by the instances of the selected class" - "Create getters and setters for all inst vars defined at the level of the current class selection, except do NOT clobber or override any selectors already understood by the instances of the selected class" + self selectedClassOrMetaClass ifNotNil: + [:aClass| | cr | + cr := String with: Character cr. + aClass instVarNames do: + [:aName | | newMessage setter | + (aClass canUnderstand: aName asSymbol) ifFalse: + [newMessage := + aName, cr, + ' "Answer the value of ', aName, '"', cr, cr, + ' ^ ', aName. + aClass compile: newMessage classified: #accessing notifying: nil]. + (aClass canUnderstand: (setter := aName, ':') asSymbol) ifFalse: + [newMessage := + setter, ' anObject', cr, + ' "Set the value of ', aName, '"', cr, cr, + (aClass settersReturnValue ifTrue: [' ^'] ifFalse: [' ']), + aName, ' := anObject'. + aClass compile: newMessage classified: #accessing notifying: nil]]]! - | aClass | - (aClass := self selectedClassOrMetaClass) ifNotNil: - [aClass instVarNames do: - [:aName | - | newMessage setter | - (aClass canUnderstand: aName asSymbol) - ifFalse: - [newMessage := aName, ' - - ^', aName. - aClass compile: newMessage classified: 'accessing' notifying: nil]. - (aClass canUnderstand: (setter := aName, ':') asSymbol) - ifFalse: - [newMessage := setter, ' anObject - - ', aName, ' := anObject'. - aClass compile: newMessage classified: 'accessing' notifying: nil]]]! Item was changed: ----- Method: Browser>>labelString (in category 'initialize-release') ----- labelString + | label | + label := self selectedClass + ifNil: [ self defaultBrowserTitle ] + ifNotNil: [ self defaultBrowserTitle, ': ', self selectedClass printString ]. + (multiWindowState notNil + and: [multiWindowState models size > 1]) ifTrue: + [label := (multiWindowState models indexOf: self) printString, '. ', label]. + ^label! - ^self selectedClass ifNil: [ self defaultBrowserTitle ] - ifNotNil: [ self defaultBrowserTitle, ': ', self selectedClass printString ]. - ! Item was added: + ----- Method: PackagePaneBrowser>>saveMultiWindowState (in category 'multi-window support') ----- + saveMultiWindowState + ^Message + selector: #restoreToPackage:category:className:protocol:selector:mode: + arguments: { self package. + self systemCategoryList at: systemCategoryListIndex ifAbsent: []. + self selectedClassName. + self selectedMessageCategoryName. + self selectedMessageName. + editSelection }! Item was added: + ----- Method: SavedMultiWindowState>>emptyEditState (in category 'accessing') ----- + emptyEditState + ^#(nil ())! Item was added: + ----- Method: Browser>>restoreMultiWindowState: (in category 'multi-window support') ----- + restoreMultiWindowState: aMessage + "Restore the state after a multi-window switch.." + aMessage sentTo: self! Item was changed: ----- Method: Browser class>>openBrowserView:label: (in category 'instance creation') ----- openBrowserView: aBrowserView label: aString "Schedule aBrowserView, labelling the view aString." (aBrowserView isKindOf: ToolBuilderSpec) ifTrue:[ + (self canUseMultiWindowBrowsers + and: [self useMultiWindowBrowsers]) ifTrue: + [aBrowserView multiWindowStyle: #labelButton]. ToolBuilder open: aBrowserView label: aString. ] ifFalse:[ aBrowserView isMorph ifTrue: [(aBrowserView setLabel: aString) openInWorld] ifFalse: [aBrowserView label: aString. aBrowserView minimumSize: 300 @ 200. aBrowserView subViews do: [:each | each controller]. aBrowserView controller open]. ]. ^ aBrowserView model ! Item was added: + ----- Method: Object>>canHaveUnacceptedEdits (in category '*Tools-multi-window support') ----- + canHaveUnacceptedEdits + "Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)" + + ^false! Item was added: + ----- Method: PluggableTextMorph>>unacceptedEditState: (in category '*Tools-multi-window support') ----- + unacceptedEditState: stateOrNil + stateOrNil + ifNotNil: + [self setText: stateOrNil. + hasUnacceptedEdits := true "setText: clears hasUnacceptedEdits, so must do this post setText:"] + ifNil: [hasUnacceptedEdits := false]! Item was added: + ----- Method: Browser>>saveMultiWindowState (in category 'multi-window support') ----- + saveMultiWindowState + ^Message + selector: #restoreToCategory:className:protocol:selector:mode: + arguments: { self selectedSystemCategoryName. + self selectedClassName. + self selectedMessageCategoryName. + self selectedMessageName. + editSelection }! Item was added: + ----- Method: SavedMultiWindowState>>prototype (in category 'accessing') ----- + prototype + ^prototype! Item was added: + ----- Method: SavedMultiWindowState>>models (in category 'accessing') ----- + models + ^models! Item was changed: ----- Method: Browser>>findClass (in category 'system category functions') ----- findClass "Search for a class by name." + | pattern foundClass | - | pattern foundClassOrTrait | + (multiWindowState notNil + or: [self okToChange]) ifFalse: + [^self classNotFound]. - self okToChange ifFalse: [^ self classNotFound]. pattern := UIManager default request: 'Class name or fragment?'. + pattern isEmpty ifTrue: [^self classNotFound]. + foundClass := Utilities classFromPattern: pattern withCaption: ''. + foundClass ifNil: [^self classNotFound]. + (self selectedClass notNil + and: [multiWindowState notNil + "Can only support multi-window if original window has all the right panes." + and: [multiWindowState prototype isHierarchy not]]) ifTrue: + [(self classList includes: foundClass name) + ifTrue: [multiWindowState copyWindow] + ifFalse: [multiWindowState addNewWindow]]. + self selectCategoryForClass: foundClass. + self selectClass: foundClass! - pattern isEmpty ifTrue: [^ self classNotFound]. - foundClassOrTrait := Utilities classFromPattern: pattern withCaption: ''. - foundClassOrTrait ifNil: [^ self classNotFound]. - self selectCategoryForClass: foundClassOrTrait. - self selectClass: foundClassOrTrait. - ! Item was added: + ----- Method: SavedMultiWindowState>>restoreEditState: (in category 'selecting') ----- + restoreEditState: aWeakDictionary + aWeakDictionary keysAndValuesDo: + [:depOrNil :unacceptedEditState| + depOrNil ifNotNil: + [depOrNil unacceptedEditState: unacceptedEditState]]! Item was added: + ----- Method: Browser>>exploreMethod (in category 'message functions') ----- + exploreMethod + currentCompiledMethod notNil ifTrue: + [currentCompiledMethod explore]! Item was added: + ----- Method: Browser>>isHierarchy (in category 'multi-window support') ----- + isHierarchy + ^false! Item was added: + ----- Method: PluggableTextMorph>>unacceptedEditState (in category '*Tools-multi-window support') ----- + unacceptedEditState + ^hasUnacceptedEdits ifTrue: [self text]! Item was changed: ----- Method: Browser>>messageListMenu:shifted: (in category 'message functions') ----- messageListMenu: aMenu shifted: shifted "Answer the message-list menu" (self menuHook: aMenu named: #messageListMenu shifted: shifted) ifTrue:[^aMenu]. shifted ifTrue: [^ self shiftedMessageListMenu: aMenu]. aMenu addList: #( ('what to show...' offerWhatToShowMenu) ('toggle break on entry' toggleBreakOnEntry) - ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut' fileOutMessage) ('printOut' printOutMessage) - ('senders of... (n)' browseSendersOfMessages) ('implementors of... (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) - ('inst var refs...' browseInstVarRefs) ('inst var defs...' browseInstVarDefs) ('class var refs...' browseClassVarRefs) ('class variables' browseClassVariables) ('class refs (N)' browseClassRefs) - ('remove method (x)' removeMessage) + ('explore method' exploreMethod) + ('inspect method' inspectMethod) - ('more...' shiftedYellowButtonActivity)). ^ aMenu! Item was added: + ----- Method: PackagePaneBrowser>>isPackage (in category 'multi-window support') ----- + isPackage + ^true! Item was added: + ----- Method: SavedMultiWindowState>>addNewWindow (in category 'operations') ----- + addNewWindow + self addWindow: prototype clone! Item was added: + ----- Method: Browser>>inspectMethod (in category 'message functions') ----- + inspectMethod + currentCompiledMethod notNil ifTrue: + [currentCompiledMethod inspect]! Item was added: + Object subclass: #SavedMultiWindowState + instanceVariableNames: 'models modelStates modelDependents currentModelIndex prototype' + classVariableNames: '' + poolDictionaries: '' + category: 'Tools-Base'! + + !SavedMultiWindowState commentStamp: 'eem 6/30/2010 15:45' prior: 0! + A SavedMultiWindowState is a collection of states of inactive windows for a multi-window tool ui where one can select between multiple copies of a tool sharing a single system window, each tol having its own state. It manages switching between windows, swapping unaccepted edit state (e.g. in text views) as it does so. + + Instance Variables + currentModelIndex: <Integer> + modelDependents: <IdentitySet> + modelStates: <OrderedCollection of: (Array + with: modelState <Object> + with: unacceptedEditStates <WeakIdentityKeyDictionary>) > + models: <OrderedCollection of: Model> + + currentModelIndex + - index into models and modelStates of current window selection + + modelDependents + - set of all dependents + + modelStates + - the pairs of model-specific selection state and widget-specfic unaccepted edit state for each unselected/inactive window + + models + - the models for each window + ! Item was added: + ----- Method: Browser>>isPackage (in category 'multi-window support') ----- + isPackage + ^false! Item was added: + ----- Method: CodeHolder class>>canUseMultiWindowBrowsers (in category 'preferences') ----- + canUseMultiWindowBrowsers + "This is a hook to allow browsers to control whether to respond to the muli-window preference. + Currenty CodeHolder cannot usefully use multi-windows, but may be able to do so in the future." + ^false! Item was added: + ----- Method: StringHolderView>>canHaveUnacceptedEdits (in category '*Tools-multi-window support') ----- + canHaveUnacceptedEdits + "Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)" + + ^true! Item was added: + ----- Method: SavedMultiWindowState>>on: (in category 'initialize-release') ----- + on: aModel + prototype := aModel clone. + self addWindow: aModel! Item was added: + ----- Method: PackagePaneBrowser>>labelString (in category 'initialize-release') ----- + labelString + ^self package + ifNil: [super labelString] + ifNotNil: + [:pkg| | label | + label := self defaultBrowserTitle, ': ', pkg, (self selectedClass + ifNil: [''] + ifNotNil: [' ', self selectedClass printString]). + (multiWindowState notNil + and: [multiWindowState models size > 1]) ifTrue: + [label := (multiWindowState models indexOf: self) printString, '. ', label]. + label]! Item was added: + ----- Method: Browser>>multiWindowName (in category 'multi-window support') ----- + multiWindowName + "Answer the string to display for the receiver in a multi-window." + ^String streamContents: + [:s| | str | + self selectedClass + ifNil: [s nextPut: $a; space; nextPutAll: self defaultBrowserTitle] + ifNotNil: + [s print: self selectedClass. + self metaClassIndicated ifTrue: + [s nextPutAll: ' class']. + self isHierarchy ifTrue: + [s space; nextPutAll: ' Hierarchy']]. + (str := self selectedMessageName) notNil + ifTrue: [s nextPutAll: '>>'; nextPutAll: str] + ifFalse: + [(str := self selectedMessageCategoryName) notNil + ifTrue: [s space; nextPut: ${; nextPutAll: str; nextPut: $}]]]! Item was changed: ----- Method: Browser>>classListIndex: (in category 'class list') ----- classListIndex: anInteger "Set anInteger to be the index of the current class selection." + | className currentMessageCategoryName currentMessageName | + currentMessageCategoryName := [self selectedMessageCategoryName] + on: Error + do: [:ex| ex return: nil]. + currentMessageName := [self selectedMessageName] + on: Error + do: [:ex| ex return: nil]. - | className | classListIndex := anInteger. self setClassOrganizer. + + "Try to reselect the category and/or selector if the new class has them." + messageCategoryListIndex := self messageCategoryList + indexOf: currentMessageCategoryName + ifAbsent: [0]. + messageListIndex := messageCategoryListIndex = 0 + ifTrue: [0] + ifFalse: [self messageList + indexOf: currentMessageName + ifAbsent: [0]]. + + messageListIndex ~= 0 ifTrue: + [self editSelection: #editMessage] ifFalse: + [messageCategoryListIndex ~= 0 ifTrue: + [self editSelection: #newMessage] ifFalse: + [self classCommentIndicated - messageCategoryListIndex := 0. - messageListIndex := 0. - self classCommentIndicated ifTrue: [] ifFalse: [self editSelection: (anInteger = 0 ifTrue: [metaClassIndicated | (systemCategoryListIndex == 0) ifTrue: [#none] ifFalse: [#newClass]] + ifFalse: [#editClass])]]]. - ifFalse: [#editClass])]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged! Item was added: + ----- Method: SavedMultiWindowState>>initialize (in category 'initialize-release') ----- + initialize + models := OrderedCollection new. + modelStates := OrderedCollection new. + modelDependents := IdentitySet new. + currentModelIndex := 0! Item was added: + ----- Method: PluggableTextMorph>>canHaveUnacceptedEdits (in category '*Tools-multi-window support') ----- + canHaveUnacceptedEdits + "Answer if the receiver is an object that can hold unaccepted edits (such as a text editor widget)" + + ^true! Item was added: + ----- Method: SavedMultiWindowState>>addWindow: (in category 'operations') ----- + addWindow: aModel + aModel multiWindowState: self. + self assert: models size = modelStates size. + models := models + copyReplaceFrom: currentModelIndex + 1 + to: currentModelIndex + with: (Array with: aModel). + modelStates := modelStates + copyReplaceFrom: currentModelIndex + 1 + to: currentModelIndex + with: (Array with: self emptyEditState). + self assert: models size = modelStates size. + self selectWindowIndex: (currentModelIndex = 0 ifTrue: [currentModelIndex := 1] ifFalse: [currentModelIndex + 1]). + self assert: models size = modelStates size. + 1 to: models size do: + [:idx| + self assert: (idx = currentModelIndex + or: [(modelStates at: idx) isArray and: [(modelStates at: idx) size = 2]])]! Item was added: + ----- Method: SavedMultiWindowState classSide>>on: (in category 'instance creation') ----- + on: aModel + ^self new on: aModel! Item was added: + ----- Method: Browser>>classHierarchy (in category 'multi-window support') ----- + classHierarchy + | behavior newBrowser | + (behavior := self selectedClassOrMetaClass) isNil ifTrue: + [^self]. + + (self isPackage "PackageBrowser pains can't support a hierarchy browser; not sure why." + or: [multiWindowState isNil]) ifTrue: + [^super classHierarchy]. + + (newBrowser := HierarchyBrowser new initHierarchyForClass: behavior) + messageCategoryListIndex: messageCategoryListIndex; + messageListIndex: messageListIndex; + editSelection: editSelection. + + multiWindowState addWindow: newBrowser + ! Item was added: + ----- Method: StringHolderView>>unacceptedEditState: (in category '*Tools-multi-window support') ----- + unacceptedEditState: stateOrNil + (hasUnacceptedEdits := stateOrNil notNil) ifTrue: + [self editString: stateOrNil]! Item was added: + ----- Method: PackagePaneBrowser>>restoreToPackage:category:className:protocol:selector:mode: (in category 'multi-window support') ----- + restoreToPackage: packageNameOrNil category: category className: className protocol: protocol selector: selector mode: editMode + self packageListIndex: (self packageList indexOf: packageNameOrNil). + super restoreToCategory: category className: className protocol: protocol selector: selector mode: editMode! Item was added: + ----- Method: CodeHolder>>multiWindowState: (in category 'multi-window support') ----- + multiWindowState: aSavedMultiWindowState + multiWindowState := aSavedMultiWindowState! Item was added: + ----- Method: Browser>>restoreToCategory:className:protocol:selector:mode: (in category 'multi-window support') ----- + restoreToCategory: category className: className protocol: protocol selector: selector mode: editMode + self systemCategoryListIndex: (self systemCategoryList indexOf: category). + self classListIndex: (self classListIndexOf: className). + self messageCategoryListIndex: (self messageCategoryList indexOf: protocol). + self messageListIndex: (self messageList indexOf: selector). + editSelection := editMode. + self + contentsChanged; + decorateButtons! Item was added: + ----- Method: Browser class>>canUseMultiWindowBrowsers (in category 'preferences') ----- + canUseMultiWindowBrowsers + ^true! Item was added: + ----- Method: SavedMultiWindowState>>selectWindowsMenu (in category 'operations') ----- + selectWindowsMenu + | menu currentItem | + menu := MenuMorph new defaultTarget: self. + models withIndexDo: + [:model :index| | entry | + entry := models size > 1 + ifTrue: [index printString, '. ', model multiWindowName] + ifFalse: [model multiWindowName]. + menu + add: (index = currentModelIndex + ifTrue: [Text string: entry attribute: TextEmphasis bold] + ifFalse: + [((modelStates at: index) last anySatisfy: [:editState| editState notNil]) + ifTrue: [Text string: entry attribute: TextColor red] + ifFalse: [entry]]) + target: self + selector: #selectWindowIndex: + argument: index. + index = currentModelIndex ifTrue: + [currentItem := menu lastItem]]. + menu + addLine; + add: 'new window' target: self selector: #addNewWindow; + add: 'copy this window' target: self selector: #copyWindow; + add: 'remove this window' target: self selector: #removeCurrentWindow. + models size <= 1 ifTrue: + [menu lastItem isEnabled: false]. + menu selectItem: currentItem event: nil. + ^menu! Item was added: + ----- Method: SavedMultiWindowState>>selectWindowIndex: (in category 'selecting') ----- + selectWindowIndex: index + | currentModel newModel newModelState | + index = currentModelIndex ifTrue: [^self]. + + currentModel := models at: currentModelIndex. + newModel := models at: index. + modelDependents addAll: currentModel dependents. + modelStates at: currentModelIndex put: { currentModel saveMultiWindowState. self editState }. + "the become makes things confusing. currentModel will end up being newModel and vice verce" + models swap: currentModelIndex with: index. + currentModel become: newModel. + currentModel := models at: currentModelIndex. + newModel := models at: index. + newModel myDependents: (DependentsArray withAll: modelDependents asArray). + currentModel myDependents: nil. + "Change currentModelIndex before restoreMultiWIndowState: so label index is shown correctly" + currentModelIndex := index. + newModelState := modelStates at: index. + newModelState first ifNotNil: "emptyState has nil for savedModelState. Don;t restore state for a new window" + [:savedModelState| newModel restoreMultiWindowState: savedModelState]. + self restoreEditState: newModelState last. + modelStates at: index put: nil. + newModel changed: #relabel! Item was added: + ----- Method: CodeHolder class>>useMultiWindowBrowsers: (in category 'preferences') ----- + useMultiWindowBrowsers: aBoolean + MultiWindowBrowsers := aBoolean! Item was added: + ----- Method: StringHolderView>>unacceptedEditState (in category '*Tools-multi-window support') ----- + unacceptedEditState + ^hasUnacceptedEdits ifTrue: [displayContents text]!

1 0

The Trunk: ToolBuilder-Morphic-eem.63.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-eem.63.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-eem.63 Author: eem Time: 1 July 2010, 11:51:45.643 am UUID: e29115f6-3f9e-4fa6-923e-f45307d86db6 Ancestors: ToolBuilder-Morphic-ar.62 ToolBuilder support for browser multi-windows. 3 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). =============== Diff against ToolBuilder-Morphic-ar.62 =============== Item was added: + ----- Method: MorphicToolBuilder>>windowClassFor: (in category 'widget classes') ----- + windowClassFor: multiWindowStyle + ^multiWindowStyle + caseOf: + { [nil] -> [PluggableSystemWindow]. + [#labelButton] -> [PluggableSystemWindowWithLabelButton] } + otherwise: [PluggableSystemWindowWithLabelButton]! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'pluggable widgets') ----- buildPluggableWindow: aSpec + | widget children | - | widget children label | aSpec layout == #proportional ifFalse:[ "This needs to be implemented - probably by adding a single pane and then the rest" ^self error: 'Not implemented'. ]. + widget := (self windowClassFor: aSpec multiWindowStyle) new. - widget := self windowClass new. self register: widget id: aSpec name. widget model: aSpec model. + aSpec label ifNotNil: + [:label| - (label := aSpec label) ifNotNil:[ label isSymbol ifTrue:[widget getLabelSelector: label] ifFalse:[widget setLabel: label]]. + aSpec multiWindowStyle notNil ifTrue: + [widget savedMultiWindowState: (SavedMultiWindowState on: aSpec model)]. children := aSpec children. children isSymbol ifTrue:[ widget getChildrenSelector: children. widget update: children. children := #(). ]. widget closeWindowSelector: aSpec closeAction. panes := OrderedCollection new. self buildAll: children in: widget. self buildHelpFor: widget spec: aSpec. widget bounds: (RealEstateAgent initialFrameFor: widget initialExtent: (aSpec extent ifNil:[widget initialExtent]) world: self currentWorld). widget setUpdatablePanesFrom: panes. ^widget!

1 0

The Trunk: ToolBuilder-Kernel-eem.36.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.36.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-eem.36 Author: eem Time: 1 July 2010, 11:51:06.882 am UUID: 0eabb89d-7ae2-45a8-808d-8bc867f71b5a Ancestors: ToolBuilder-Kernel-ar.35 ToolBuilder support for browser multi-windows. 2 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). =============== Diff against ToolBuilder-Kernel-ar.35 =============== Item was added: + ----- Method: PluggableWindowSpec>>multiWindowStyle (in category 'accessing') ----- + multiWindowStyle + "Answer the value of multiWindowStyle, a Symbol or nil" + ^multiWindowStyle! Item was changed: ----- Method: PluggableWindowSpec>>isDialog (in category 'accessing') ----- isDialog + ^isDialog ifNil: [false] - ^isDialog ifNil: [^false]. - ! Item was added: + ----- Method: PluggableWindowSpec>>multiWindowStyle: (in category 'accessing') ----- + multiWindowStyle: aSymbol + "Set the value of multiWindowStyle, one of #labelButton or #tabbed" + + multiWindowStyle := aSymbol! Item was changed: PluggableCompositeSpec subclass: #PluggableWindowSpec + instanceVariableNames: 'label extent closeAction isDialog multiWindowStyle' - instanceVariableNames: 'label extent closeAction isDialog' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableWindowSpec commentStamp: '<historical>' prior: 0! A common window. Expects to see change/update notifications when the label should change. Instance variables: label <String|Symbol> The selector under which to retrieve the label or the label directly extent <Point> The (initial) extent of the window. closeAction <Symbol> The action to perform when the window is closed.!

1 0

The Trunk: Morphic-eem.451.mcz
by commits＠source.squeak.org 01 Jul '10

01 Jul '10

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.451.mcz ==================== Summary ==================== Name: Morphic-eem.451 Author: eem Time: 1 July 2010, 11:42:04.096 am UUID: 45cb6a21-abc6-44eb-8014-8f333bfe6359 Ancestors: Morphic-eem.450 Morphic support for browser multi-windows. 1 of 4 (Morphic, ToolBuilder-Kernel, ToolBuilder-Morphic, Tools). Also fix docking bar's Help menu for unload all packages images =============== Diff against Morphic-bf.449 =============== Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>savedMultiWindowState: (in category 'accessing') ----- + savedMultiWindowState: aSavedMultiWindowState + labelButton := MultiWindowLabelButtonMorph + on: aSavedMultiWindowState + getState: nil + action: #selectWindowsMenu. + labelButton + triggerOnMouseDown: true; + savedMultiWindowState: aSavedMultiWindowState. + labelButton + layoutFrame: (LayoutFrame "i.e. in the left 40% of the title bar" + fractions: (0@0 corner: 0.4@0) + offsets: (20@ -20 corner: 0@0)); + hResizing: #spaceFill; + vResizing: #spaceFill. + self addMorphFront: labelButton. + self adjustExtraButton! Item was changed: ----- Method: SystemWindow>>delete (in category 'open/close') ----- delete | thisWorld sketchEditor aPaintBox | + self mustNotClose ifTrue: [^self]. + model okToClose ifFalse: [^self]. - self mustNotClose ifTrue: [^ self]. - model okToChange ifFalse: [^ self]. thisWorld := self world. sketchEditor := self extantSketchEditor. self isFlexed ifTrue: [owner delete] ifFalse: [super delete]. model windowIsClosing; release. model := nil. sketchEditor ifNotNil: [sketchEditor deleteSelfAndSubordinates. + (thisWorld notNil + and: [(aPaintBox := thisWorld paintBoxOrNil) notNil]) ifTrue: + [aPaintBox delete]]. - thisWorld notNil ifTrue: - [(aPaintBox := thisWorld paintBoxOrNil) ifNotNil: [aPaintBox delete]]]. + SystemWindow noteTopWindowIn: thisWorld! - SystemWindow noteTopWindowIn: thisWorld. - ! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>savedMultiWindowState: (in category 'accessing') ----- + savedMultiWindowState: anObject + "Set the value of savedMultiWindowState" + + savedMultiWindowState := anObject! Item was added: + PluggableSystemWindow subclass: #PluggableSystemWindowWithLabelButton + instanceVariableNames: 'labelButton' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! + + !PluggableSystemWindowWithLabelButton commentStamp: 'eem 6/29/2010 19:02' prior: 0! + A PluggableSystemWindowWithLabelButton provides the pull-down menu of browser panes in the multi-pane browser. + + Instance Variables + labelButton: <BrowserPaneButtonMorph> + + labelButton + - the labelButton is a hack to hold onto the panes of a multi-paned browser so that an inst var doesn't have to be added to the Browser hierarchy. + ! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>passivate (in category 'top window') ----- + passivate + super passivate. + self removeProperty: #clickPoint! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>adjustExtraButton (in category 'resize/collapse') ----- + adjustExtraButton + labelButton ifNil: [^self]. + labelButton + position: self innerBounds topLeft + (20 @ -3); + extent: self innerBounds extent * (0.4@1)! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>drawOn: (in category 'drawing') ----- + drawOn: aCanvas + "Be invisible."! Item was changed: ----- Method: TheWorldMainDockingBar>>helpMenuOn: (in category 'submenu - help') ----- helpMenuOn: aDockingBar aDockingBar addItem: [ :it | it contents: 'Help' translated; addSubMenu: [ :menu | 'Todo'. menu addItem:[:item| item contents: 'Online Resources' translated; help: 'Online resources for Squeak' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #squeakOnlineResources. 'Squeak Online Resources'. (140@140 extent: 560@360) }]. menu addItem:[:item| item contents: 'Keyboard Shortcuts' translated; help: 'Keyboard bindings used in Squeak' translated; target: Utilities; selector: #openCommandKeyHelp ]. menu addItem:[:item| item contents: 'Font Size Summary' translated; help: 'Font size summary from the old Squeak 3.10.2 help menu.' translated; target: TextStyle; selector: #fontSizeSummary ]. menu addItem:[:item| item contents: 'Useful Expressions' translated; help: 'Useful expressions from the old Squeak 3.10.2 help menu.' translated; target: Utilities; selector: #openStandardWorkspace ]. menu addLine. menu addItem:[:item| item contents: 'Extending the system' translated; help: 'Includes code snippets to evaluate for extending the system' translated; target: self; icon: MenuIcons smallHelpIcon; selector: #showWelcomeText:label:in:; arguments: { #extendingTheSystem. 'How to extend the system'. (140@140 extent: 560@360) }]. menu addLine. menu addItem:[:item| item contents: 'Welcome Workspaces' translated; help: 'The Welcome Workspaces' translated; addSubMenu:[:submenu| self welcomeWorkspacesOn: submenu]]. + (Smalltalk classNamed: #HelpBrowser) ifNotNil: + [:classHelpBrowser| - (Smalltalk at: #HelpBrowser) ifNotNil: [ menu addLine. menu addItem: [ :item | item contents: 'Help Browser' translated; help: 'Integrated Help System' translated; + target: classHelpBrowser; - target: (Smalltalk at: #HelpBrowser); selector: #open ] ]. ]].! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>mouseDown: (in category 'events') ----- + mouseDown: evt + | wasInactive | + wasInactive := TopWindow ~~ self. + self valueOfProperty: #clickPoint ifPresentDo: + [:firstClick | + (labelButton containsPoint: evt cursorPoint) ifTrue: + [^labelButton mouseDown: evt]]. + super mouseDown: evt. + (wasInactive + and: [model windowActiveOnFirstClick not + and: [labelButton containsPoint: evt cursorPoint]]) ifTrue: + [^labelButton mouseDown: evt]! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>savedMultiWindowState (in category 'accessing') ----- + savedMultiWindowState + "Answer the value of savedMultiWindowState" + + ^ savedMultiWindowState! Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>extent: (in category 'geometry') ----- + extent: newExtent + super extent: newExtent. + self adjustExtraButton! Item was added: + PluggableButtonMorph subclass: #MultiWindowLabelButtonMorph + instanceVariableNames: 'savedMultiWindowState' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Windows'! + + !MultiWindowLabelButtonMorph commentStamp: 'eem 6/30/2010 16:13' prior: 0! + A MultiWindowLabelButtonMorph is a means of implementing tabbed windows. It cooperates with PluggableSystemWindowWithButton to provide a drop-down menu of windows when clicking in the window label. It requires the model to create a suitable sub-instance of SavedMultiWindowState for inactive windows. To specify multi-windows use the multiWindowStyle: setter to customize a PluggableWindowSpec. + + Instance Variables + savedMultiWindowState: <SavedMultiWindowState> + + savedMultiWindowState + - the sequence of models in a multi-window.! Item was added: + ----- Method: MultiWindowLabelButtonMorph>>performAction (in category 'accessing') ----- + performAction + "Override to interpret the actionSelector as a menu accessor and to activate that menu." + actionSelector ifNotNil: + [(model perform: actionSelector) ifNotNil: + [:menu| + menu + invokeModalAt: self position - (0@5) + in: ActiveWorld + allowKeyboard: Preferences menuKeyboardControl]]!

1 0

Jump to page: