The Trunk: ToolBuilder-Kernel-mt.118.mcz

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!