The Trunk: ToolBuilder-Kernel-mtf.30.mcz

Andreas Raab uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mtf.30.mcz

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

Name: ToolBuilder-Kernel-mtf.30
Author: mtf
Time: 22 January 2010, 7:35:18.042 pm
UUID: a504d465-9fe6-4a72-8977-15ba06a84a78
Ancestors: ToolBuilder-Kernel-jrd.29, ToolBuilder-Kernel-ar.25

Merged in Cobalt branch of ToolBuilder. This includes the addition of a few properties, and moving the help ivar all the way to the top of the spec heirarchy, since so many subclasses used it

=============== Diff against ToolBuilder-Kernel-ar.25 ===============

Item was changed:
  PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0!
  A single selection list element.
 
  Instance variables:
  list <Symbol> The selector to retrieve the list elements.
  getIndex <Symbol> The selector to retrieve the list selection index.
  setIndex <Symbol> The selector to set the list selection index.
  getSelected <Symbol> The selector to retrieve the list selection.
  setSelected <Symbol> The selector to set the list selection.
  menu <Symbol> The selector to offer (to retrieve?) the context menu.
  keyPress <Symbol> The selector to invoke for handling keyboard shortcuts.
  autoDeselect <Boolean> Whether the list should allow automatic deselection or not.
  dragItem <Symbol> Selector to initiate a drag action on an item
  dropItem <Symbol> Selector to initiate a drop action of an item
  dropAccept <Symbol> Selector to determine whether a drop would be accepted!

Item was added:
+ ----- Method: PluggableTreeSpec>>dragItem: (in category 'accessing') -----
+ dragItem: aSymbol
+ "Set the selector for dragging an item"
+ dragItem := aSymbol!

Item was changed:
  ToolBuilderSpec subclass: #PluggableMenuItemSpec
+ instanceVariableNames: 'label action checked enabled separator subMenu'
- instanceVariableNames: 'label action checked enabled separator subMenu help'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!

Item was added:
+ ----- Method: PluggableTreeSpec>>dragItem (in category 'accessing') -----
+ dragItem
+ ^ dragItem.!

Item was added:
+ ----- Method: PluggableListSpec>>listSize: (in category 'accessing') -----
+ listSize: aSymbol
+ "Indicate the selector for retrieving the list size"
+ listSize := aSymbol.!

Item was added:
+ ----- Method: UIManager>>confirm:trueChoice:falseChoice: (in category 'ui requests') -----
+ confirm: queryString trueChoice: trueChoice falseChoice: falseChoice
+ "Put up a yes/no menu with caption queryString. The actual wording for the two choices will be as provided in the trueChoice and falseChoice parameters. Answer true if the response is the true-choice, false if it's the false-choice.
+ This is a modal question -- the user must respond one way or the other."
+ ^self subclassResponsibility!

Item was added:
+ ----- Method: PluggableListSpec>>listItem: (in category 'accessing') -----
+ listItem: aSymbol
+ "Indicate the selector for retrieving the list element"
+ listItem := aSymbol.!

Item was added:
+ ----- Method: PluggableListSpec>>listItem (in category 'accessing') -----
+ listItem
+ "Answer the selector for retrieving the list element"
+ ^listItem!

Item was added:
+ ----- Method: PluggableListSpec>>listSize (in category 'accessing') -----
+ listSize
+ "Answer the selector for retrieving the list size"
+ ^listSize!

Item was changed:
  PluggableWidgetSpec subclass: #PluggableTreeSpec
+ instanceVariableNames: 'roots getSelectedPath setSelected getChildren hasChildren label icon unusedVar menu keyPress wantsDrop dropItem dropAccept autoDeselect dragItem'
- instanceVariableNames: 'roots getSelectedPath setSelected getChildren hasChildren label icon help menu keyPress wantsDrop dropItem dropAccept autoDeselect'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
+ !PluggableTreeSpec commentStamp: 'mvdg 3/21/2008 20:59' prior: 0!
- !PluggableTreeSpec commentStamp: 'ar 2/12/2005 16:40' prior: 0!
  A pluggable tree widget. PluggableTrees are slightly different from lists in such that they ALWAYS store the actual objects and use the label selector to query for the label of the item. PluggableTrees also behave somewhat differently in such that they do not have a "getSelected" message but only a getSelectedPath message. The difference is that getSelectedPath is used to indicate by the model that the tree should select the appropriate path. This allows disambiguation of items. Because of this, implementations of PluggableTrees must always set their internal selection directly, e.g., rather than sending the model a setSelected message and wait for an update of the #getSelected the implementation must set the selection before sending the #setSelected message. If a client doesn't want this, it can always just signal a change of getSelectedPath to revert to whatever is needed.
 
  Instance variables:
  roots <Symbol> The message to retrieve the roots of the tree.
  getSelectedPath <Symbol> The message to retrieve the selected path in the tree.
  setSelected <Symbol> The message to set the selected item in the tree.
  getChildren <Symbol> The message to retrieve the children of an item
  hasChildren <Symbol> The message to query for children of an item
  label <Symbol> The message to query for the label of an item.
  icon <Symbol> The message to query for the icon of an item.
  help <Symbol> The message to query for the help of an item.
  menu <Symbol> The message to query for the tree's menu
  keyPress <Symbol> The message to process a keystroke.
  wantsDrop <Symbol> The message to query whether a drop might be accepted.
  dropItem <Symbol> The message to drop an item.
+ enableDrag <Boolean> Enable dragging from this tree.
+ autoDeselect <Boolean> Whether the tree should allow automatic deselection or not.
+ unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.!
- autoDeselect <Boolean> Whether the tree should allow automatic deselection or not.!

Item was added:
+ ----- Method: ToolBuilderSpec>>help: (in category 'accessing') -----
+ help: aSymbol
+ "Indicate the message to retrieve the help texts of this element."
+ help := aSymbol!

Item was added:
+ ----- Method: UIManager>>confirm:label: (in category 'ui requests') -----
+ confirm: queryString label: titleString
+
+ ^self subclassResponsibility!

Item was added:
+ ----- Method: PluggableWindowSpec>>isDialog: (in category 'accessing') -----
+ isDialog: val
+
+ isDialog := val
+
+ !

Item was changed:
  ----- Method: PluggableTreeSpec>>autoDeselect: (in category 'accessing') -----
  autoDeselect: aBool
  "Indicate whether this tree can be automatically deselected"
+ autoDeselect := aBool.!
- autoDeselect := aBool!

Item was added:
+ ----- Method: PluggableWindowSpec>>isDialog (in category 'accessing') -----
+ isDialog
+
+ ^isDialog ifNil: [^false].
+
+ !

Item was changed:
  PluggableCompositeSpec subclass: #PluggableWindowSpec
+ instanceVariableNames: 'label extent closeAction isDialog'
- instanceVariableNames: 'label extent closeAction'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !PluggableWindowSpec commentStamp: '<historical>' prior: 0!
  A common window. Expects to see change/update notifications when the label should change.
 
  Instance variables:
  label <String|Symbol> The selector under which to retrieve the label or the label directly
  extent <Point> The (initial) extent of the window.
  closeAction <Symbol> The action to perform when the window is closed.!

Item was changed:
  PluggableWidgetSpec subclass: #PluggableButtonSpec
+ instanceVariableNames: 'action label state enabled color'
- instanceVariableNames: 'action label state enabled color help'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !PluggableButtonSpec commentStamp: 'ar 2/11/2005 21:57' prior: 0!
  A button, both for firing as well as used in radio-button style (e.g., carrying a selection).
 
  Instance variables:
  action <Symbol> The action to perform when the button is fired.
  label <Symbol|String> The selector for retrieving the button's label or label directly.
  state <Symbol> The selector for retrieving the button's selection state.
  enabled <Symbo> The selector for retrieving the button's enabled state.
  color <Symbo> The selector for retrieving the button color.
  help <String> The balloon help for the button.!

Item was changed:
  Object subclass: #ToolBuilderSpec
+ instanceVariableNames: 'name help'
- instanceVariableNames: 'name'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !ToolBuilderSpec commentStamp: 'ar 2/11/2005 14:59' prior: 0!
  I am an abstract widget specification. I can be rendered using many different UI frameworks.!

Item was added:
+ ----- Method: ToolBuilderSpec>>help (in category 'accessing') -----
+ help
+ "Answer the message to get the help texts of this element."
+ ^ help!

Item was removed:
- ----- Method: PluggableTreeSpec>>help (in category 'accessing') -----
- help
- "Answer the message to get the help texts of this tree"
- ^help!

Item was removed:
- ----- Method: PluggableButtonSpec>>help: (in category 'accessing') -----
- help: aString
- "Indicate the help text for this button"
- help := aString.!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>help: (in category 'accessing') -----
- help: aString
- "Answer the help text associated with the receiver"
- help := aString.!

Item was removed:
- ----- Method: PluggableButtonSpec>>help (in category 'accessing') -----
- help
- "Answer the help text for this button"
- ^help!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>help (in category 'accessing') -----
- help
- "Answer the help text associated with the receiver"
- ^help!

Item was removed:
- ----- Method: PluggableTreeSpec>>help: (in category 'accessing') -----
- help: aSymbol
- "Indicate the message to retrieve the help texts of this tree"
- help := aSymbol!