The Trunk: ToolBuilder-Morphic-tpr.198.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: ToolBuilder-Morphic-tpr.198.mcz

commits-2
tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.198.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-tpr.198
Author: tpr
Time: 10 November 2017, 4:29:04.518411 pm
UUID: fb6e05e6-8817-4dfc-b152-8fa5bfac720b
Ancestors: ToolBuilder-Morphic-mt.197

Morphic access to FileChooser/Saver Dialogs

=============== Diff against ToolBuilder-Morphic-mt.197 ===============

Item was added:
+ ----- Method: MorphicToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') -----
+ buildPluggableMultiColumnList: aSpec
+ | widget listClass getIndex setIndex |
+ aSpec getSelected ifNil:[
+ listClass := self multiColumnListClass.
+ getIndex := aSpec getIndex.
+ setIndex := aSpec setIndex.
+ ] ifNotNil:[self error: 'not yet'.
+ listClass := self listByItemClass.
+ getIndex := aSpec getSelected.
+ setIndex := aSpec setSelected.
+ ].
+ widget := listClass on: aSpec model
+ list: aSpec list
+ selected: getIndex
+ changeSelected: setIndex
+ menu: aSpec menu
+ keystroke: aSpec keyPress.
+ self register: widget id: aSpec name.
+
+ " widget
+ dragItemSelector: aSpec dragItem;
+ dropItemSelector: aSpec dropItem;
+ wantsDropSelector: aSpec dropAccept;
+ dragStartedSelector: aSpec dragStarted."
+
+ self setListPropertiesFor: widget spec: aSpec.
+ ^widget!

Item was added:
+ ----- Method: MorphicToolBuilder>>multiColumnListClass (in category 'widget classes') -----
+ multiColumnListClass
+ ^ PluggableMultiColumnListMorph!

Item was added:
+ ----- Method: MorphicUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') -----
+ filenameSaverRequest: queryString initialAnswer: defaultAnswer
+ "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely"
+ "Note that this is a trulyawful message name but I can't think of a better one right now"
+ ^FileSaverDialog openOnInitialFilename: defaultAnswer
+ !