[squeak-dev] The Trunk: ToolBuilder-Kernel-mt.118.mczcommits at source.squeak.org commits at source.squeak.orgThu Jan 18 07:06:56 UTC 2018
Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.118.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.118 Author: mt Time: 18 January 2018, 8:06:57.076364 am UUID: 785d4415-b344-bb49-8f66-9544418ec53f Ancestors: ToolBuilder-Kernel-mt.117 Updates message categories in UIManager to make ui requests more accessible. =============== Diff against ToolBuilder-Kernel-mt.117 =============== Item was changed: + ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests - code') ----- - ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests') ----- chooseClassOrTrait "Let the user choose a Class or Trait" ^self chooseClassOrTraitFrom: Smalltalk globals! Item was changed: + ----- Method: UIManager>>chooseClassOrTrait: (in category 'ui requests - code') ----- - ----- Method: UIManager>>chooseClassOrTrait: (in category 'ui requests') ----- chooseClassOrTrait: label "Let the user choose a Class or Trait" ^self chooseClassOrTrait: label from: Smalltalk environment! Item was changed: + ----- Method: UIManager>>chooseClassOrTrait:from: (in category 'ui requests - code') ----- - ----- Method: UIManager>>chooseClassOrTrait:from: (in category 'ui requests') ----- chooseClassOrTrait: label from: environment "Let the user choose a Class or Trait." | pattern | pattern := self request: label. ^ self classOrTraitFrom: environment pattern: pattern label: label ! Item was changed: + ----- Method: UIManager>>chooseClassOrTraitFrom: (in category 'ui requests - code') ----- - ----- Method: UIManager>>chooseClassOrTraitFrom: (in category 'ui requests') ----- chooseClassOrTraitFrom: anEnvironment "Let the user choose a Class or Trait from the given environment" ^self chooseClassOrTrait: 'Class name or fragment?' from: anEnvironment! Item was changed: + ----- Method: UIManager>>chooseDirectory (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseDirectory (in category 'ui requests') ----- chooseDirectory "Let the user choose a directory" ^self chooseDirectoryFrom: FileDirectory default! Item was changed: + ----- Method: UIManager>>chooseDirectory: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseDirectory: (in category 'ui requests') ----- chooseDirectory: label "Let the user choose a directory" ^self chooseDirectory: label from: FileDirectory default! Item was changed: + ----- Method: UIManager>>chooseDirectory:from: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseDirectory:from: (in category 'ui requests') ----- chooseDirectory: label from: dir "Let the user choose a directory" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>chooseDirectoryFrom: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseDirectoryFrom: (in category 'ui requests') ----- chooseDirectoryFrom: dir "Let the user choose a directory" ^self chooseDirectory: nil from: dir! Item was changed: + ----- Method: UIManager>>chooseFileMatching: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseFileMatching: (in category 'ui requests') ----- chooseFileMatching: patterns "Let the user choose a file matching the given patterns" ^self chooseFileMatching: patterns label: nil! Item was changed: + ----- Method: UIManager>>chooseFileMatching:label: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseFileMatching:label: (in category 'ui requests') ----- chooseFileMatching: patterns label: labelString "Let the user choose a file matching the given patterns" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>chooseFileMatchingSuffixes: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseFileMatchingSuffixes: (in category 'ui requests') ----- chooseFileMatchingSuffixes: suffixList "Let the user choose a file matching the given suffixes" ^self chooseFileMatchingSuffixes: suffixList label: nil! Item was changed: + ----- Method: UIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests - files') ----- - ----- Method: UIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') ----- chooseFileMatchingSuffixes: suffixList label: labelString "Let the user choose a file matching the given suffixes" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests - text') ----- - ----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests') ----- chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector "Open a font-chooser for the given model" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>displayProgress:at:from:to:during: (in category 'ui requests - progress') ----- - ----- Method: UIManager>>displayProgress:at:from:to:during: (in category 'ui requests') ----- displayProgress: titleString at: aPoint from: minVal to: maxVal during: workBlock "Display titleString as a caption over a progress bar while workBlock is evaluated." ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>edit: (in category 'ui requests - text') ----- - ----- Method: UIManager>>edit: (in category 'ui requests') ----- edit: aText "Open an editor on the given string/text" ^self edit: aText label: nil! Item was changed: + ----- Method: UIManager>>edit:label: (in category 'ui requests - text') ----- - ----- Method: UIManager>>edit:label: (in category 'ui requests') ----- edit: aText label: labelString "Open an editor on the given string/text" ^self edit: aText label: labelString accept: nil! Item was changed: + ----- Method: UIManager>>edit:label:accept: (in category 'ui requests - text') ----- - ----- Method: UIManager>>edit:label:accept: (in category 'ui requests') ----- edit: aText label: labelString accept: anAction "Open an editor on the given string/text" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>informUser:during: (in category 'ui requests - progress') ----- - ----- Method: UIManager>>informUser:during: (in category 'ui requests') ----- informUser: aString during: aBlock "Display a message above (or below if insufficient room) the cursor during execution of the given block. UIManager default informUser: 'Just a sec!!' during: [(Delay forSeconds: 1) wait]. " ^self informUserDuring:[:bar| bar value: aString. aBlock value].! Item was changed: + ----- Method: UIManager>>informUserDuring: (in category 'ui requests - progress') ----- - ----- Method: UIManager>>informUserDuring: (in category 'ui requests') ----- informUserDuring: aBlock "Display a message above (or below if insufficient room) the cursor during execution of the given block. UIManager default informUserDuring:[:bar| #(one two three) do:[:info| bar value: info. (Delay forSeconds: 1) wait]]" ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>multiLineRequest:centerAt:initialAnswer:answerHeight: (in category 'ui requests - text') ----- - ----- Method: UIManager>>multiLineRequest:centerAt:initialAnswer:answerHeight: (in category 'ui requests') ----- multiLineRequest: queryString centerAt: aPoint initialAnswer: defaultAnswer answerHeight: answerHeight "Create a multi-line instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. Answer nil if the user cancels. An empty string returned means that the ussr cleared the editing area and then hit 'accept'. Because multiple lines are invited, we ask that the user use the ENTER key, or (in morphic anyway) hit the 'accept' button, to submit; that way, the return key can be typed to move to the next line." ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>request: (in category 'ui requests - text') ----- - ----- Method: UIManager>>request: (in category 'ui requests') ----- request: queryString "Create an instance of me whose question is queryString. Invoke it centered at the cursor, and answer the string the user accepts. Answer the empty string if the user cancels." ^self request: queryString initialAnswer: ''! Item was changed: + ----- Method: UIManager>>request:initialAnswer: (in category 'ui requests - text') ----- - ----- Method: UIManager>>request:initialAnswer: (in category 'ui requests') ----- request: queryString initialAnswer: defaultAnswer "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. Answer the empty string if the user cancels." ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>request:initialAnswer:centerAt: (in category 'ui requests - text') ----- - ----- Method: UIManager>>request:initialAnswer:centerAt: (in category 'ui requests') ----- request: queryString initialAnswer: defaultAnswer centerAt: aPoint "Create an instance of me whose question is queryString with the given initial answer. Invoke it centered at the given point, and answer the string the user accepts. Answer the empty string if the user cancels." ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>requestPassword: (in category 'ui requests - text') ----- - ----- Method: UIManager>>requestPassword: (in category 'ui requests') ----- requestPassword: queryString "Create an instance of me whose question is queryString. Invoke it centered at the cursor, and answer the string the user accepts. Answer the empty string if the user cancels." ^self subclassResponsibility! Item was changed: + ----- Method: UIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests - files') ----- - ----- Method: UIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests') ----- saveFilenameRequest: 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" ^self subclassResponsibility!
More information about the Squeak-dev mailing list |