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 + !
packages@lists.squeakfoundation.org