[Pkg] The Trunk: Monticello-fbs.548.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jun 2 20:09:56 UTC 2013
Frank Shearar uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-fbs.548.mcz
==================== Summary ====================
Name: Monticello-fbs.548
Author: fbs
Time: 2 June 2013, 9:09:15.167 pm
UUID: 9a114330-ef7e-456a-a513-023ff2bb9554
Ancestors: Monticello-nice.547
Rip out the Morphic UI building logic: it's no longer needed.
#workingCopy(List|Tree)Morph have no senders, so they go too.
=============== Diff against Monticello-nice.547 ===============
Item was changed:
+ ----- Method: MCTool>>buildWindow (in category 'toolbuilder') -----
- ----- Method: MCTool>>buildWindow (in category 'morphic ui') -----
buildWindow
+ ^ ToolBuilder build: self!
- | window |
- Smalltalk at: #ToolBuilder ifPresent: [:tb | ^tb build: self].
- window := SystemWindow labelled: self label.
- window model: self.
- self widgetSpecs do: [:spec |
- | send fractions offsets |
- send := spec first.
- fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
- offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
- window
- addMorph: (self perform: send first withArguments: send allButFirst)
- fullFrame:
- (LayoutFrame
- fractions:
- ((fractions first)@(fractions second) corner:
- (fractions third)@(fractions fourth))
- offsets:
- ((offsets first)@(offsets second) corner:
- (offsets third)@(offsets fourth)))].
- ^ window!
Item was changed:
+ ----- Method: MCTool>>buildWith: (in category 'toolbuilder') -----
- ----- Method: MCTool>>buildWith: (in category 'morphic ui') -----
buildWith: builder
| windowBuilder |
windowBuilder := MCToolWindowBuilder builder: builder tool: self.
self widgetSpecs do:
[:spec | | send fractions offsets |
send := spec first.
fractions := spec at: 2 ifAbsent: [#(0 0 1 1)].
offsets := spec at: 3 ifAbsent: [#(0 0 0 0)].
windowBuilder frame: (LayoutFrame
fractions: (fractions first @ fractions second corner: fractions third @ fractions fourth)
offsets: (offsets first @ offsets second corner: offsets third @ offsets fourth)).
windowBuilder perform: send first withArguments: send allButFirst].
^ windowBuilder build
!
Item was removed:
- ----- Method: MCTool>>buttonRow (in category 'morphic ui') -----
- buttonRow
- ^ self buttonRow: self buttonSpecs!
Item was removed:
- ----- Method: MCTool>>buttonRow: (in category 'morphic ui') -----
- buttonRow: specArray
- | aRow |
- aRow := AlignmentMorph newRow.
- aRow
- color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]);
- borderWidth: 0.
-
- aRow hResizing: #spaceFill; vResizing: #spaceFill; rubberBandCells: true.
- aRow clipSubmorphs: true.
- aRow layoutInset:2 at 2; cellInset: 1; color: Color white.
- aRow wrapCentering: #center; cellPositioning: #leftCenter.
- specArray do:
- [:triplet | | aButton state |
- state := triplet at: 4 ifAbsent: [#buttonState].
- aButton := PluggableButtonMorph
- on: self
- getState: state
- action: #performButtonAction:enabled:.
- aButton
- hResizing: #spaceFill;
- vResizing: #spaceFill;
- label: triplet first asString;
- arguments: (Array with: triplet second with: state);
- onColor: Color white offColor: Color white.
- aRow addMorphBack: aButton.
- aButton setBalloonText: triplet third].
-
- ^ aRow!
Item was removed:
- ----- Method: MCTool>>codePane: (in category 'morphic ui') -----
- codePane: aSymbol
-
- | textMorph |
- textMorph := PluggableTextMorphPlus
- on: self
- text: aSymbol
- accept: (aSymbol, ':') asSymbol.
- textMorph useDefaultStyler.
- ^textMorph!
Item was removed:
- ----- Method: MCTool>>listMorph: (in category 'morphic ui') -----
- listMorph: listSymbol
- ^ self
- listMorph: (listSymbol, 'List') asSymbol
- selection: (listSymbol, 'Selection') asSymbol
- menu: (listSymbol, 'ListMenu:') asSymbol!
Item was removed:
- ----- Method: MCTool>>listMorph:keystroke: (in category 'morphic ui') -----
- listMorph: listSymbol keystroke: keystrokeSymbol
- ^ (self
- listMorph: (listSymbol, 'List') asSymbol
- selection: (listSymbol, 'Selection') asSymbol
- menu: (listSymbol, 'ListMenu:') asSymbol)
- keystrokeActionSelector: keystrokeSymbol;
- yourself!
Item was removed:
- ----- Method: MCTool>>listMorph:selection: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol
- ^ PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol!
Item was removed:
- ----- Method: MCTool>>listMorph:selection:menu: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol menu: menuSymbol
- ^ PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol!
Item was removed:
- ----- Method: MCTool>>listMorph:selection:menu:keystroke: (in category 'morphic ui') -----
- listMorph: listSymbol selection: selectionSymbol menu: menuSymbol keystroke: keystrokeSymbol
- ^ (PluggableListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol)
- keystrokeActionSelector: keystrokeSymbol;
- yourself!
Item was removed:
- ----- Method: MCTool>>multiListMorph:selection:listSelection:menu: (in category 'morphic ui') -----
- multiListMorph: listSymbol selection: selectionSymbol listSelection: listSelectionSymbol menu: menuSymbol
- ^ PluggableListMorphOfMany
- on: self
- list: listSymbol
- primarySelection: selectionSymbol
- changePrimarySelection: (selectionSymbol, ':') asSymbol
- listSelection: listSelectionSymbol
- changeListSelection: (listSelectionSymbol, 'put:') asSymbol
- menu: menuSymbol!
Item was removed:
- ----- Method: MCTool>>textMorph: (in category 'morphic ui') -----
- textMorph: aSymbol
- ^ PluggableTextMorph on: self text: aSymbol accept: (aSymbol, ':') asSymbol!
Item was removed:
- ----- Method: MCTool>>treeMorph: (in category 'morphic ui') -----
- treeMorph: listSymbol
- ^ self
- treeMorph: (listSymbol, 'Tree') asSymbol
- selection: (listSymbol, 'SelectionWrapper') asSymbol
- menu: (listSymbol, 'TreeMenu:') asSymbol!
Item was removed:
- ----- Method: MCTool>>treeMorph:selection:menu: (in category 'morphic ui') -----
- treeMorph: listSymbol selection: selectionSymbol menu: menuSymbol
- ^ SimpleHierarchicalListMorph
- on: self
- list: listSymbol
- selected: selectionSymbol
- changeSelected: (selectionSymbol, ':') asSymbol
- menu: menuSymbol
- keystroke: nil!
Item was removed:
- ----- Method: MCTool>>treeOrListMorph: (in category 'morphic ui') -----
- treeOrListMorph: aSymbol
- ^ self treeMorph: aSymbol!
Item was removed:
- ----- Method: MCWorkingCopyBrowser>>workingCopyListMorph (in category 'morphic ui') -----
- workingCopyListMorph
- ^ PluggableMultiColumnListMorph
- on: self
- list: #workingCopyList
- selected: #workingCopySelection
- changeSelected: #workingCopySelection:
- menu: #workingCopyListMenu:!
Item was removed:
- ----- Method: MCWorkingCopyBrowser>>workingCopyTreeMorph (in category 'morphic ui') -----
- workingCopyTreeMorph
- ^ SimpleHierarchicalListMorph
- on: self
- list: #workingCopyTree
- selected: #workingCopyWrapper
- changeSelected: #workingCopyWrapper:
- menu: #workingCopyListMenu:!
More information about the Packages
mailing list