[squeak-dev] The Inbox: ToolBuilder-Kernel-eem.161.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 14 14:15:24 UTC 2022


A new version of ToolBuilder-Kernel was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Kernel-eem.161.mcz

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

Name: ToolBuilder-Kernel-eem.161
Author: eem
Time: 13 July 2022, 4:28:54.356068 pm
UUID: 7f9d44e6-c980-4c58-8bfe-57108fb8f8e0
Ancestors: ToolBuilder-Kernel-tpr.160

Allow the help in a menu tuple contain \'s for carriage returns, to make balloon help easier to format/read.

=============== Diff against ToolBuilder-Kernel-tpr.160 ===============

Item was removed:
- SystemOrganization addCategory: #'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: Object>>confirm: (in category '*ToolBuilder-Kernel-error handling') -----
- confirm: queryString
- 	"Put up a yes/no menu with caption queryString. Answer true if the 
- 	response is yes, false if no. This is a modal question--the user must 
- 	respond yes or no."
- 
- 	"nil confirm: 'Are you hungry?'"
- 
- 	^ UIManager default confirm: queryString!

Item was removed:
- ----- Method: Object>>confirm:orCancel: (in category '*ToolBuilder-Kernel-error handling') -----
- confirm: aString orCancel: cancelBlock
- 	"Put up a yes/no/cancel menu with caption aString. Answer true if  
- 	the response is yes, false if no. If cancel is chosen, evaluate  
- 	cancelBlock. This is a modal question--the user must respond yes or no."
- 
- 	^ UIManager default confirm: aString orCancel: cancelBlock!

Item was removed:
- ----- Method: Object>>inform: (in category '*ToolBuilder-Kernel-user interface') -----
- inform: aString
- 	"Display a message for the user to read and then dismiss. 6/9/96 sw"
- 
- 	aString isEmptyOrNil ifFalse: [UIManager default inform: aString]!

Item was removed:
- PluggableButtonSpec subclass: #PluggableActionButtonSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableActionButtonSpec commentStamp: 'dtl 9/19/2011 07:51' prior: 0!
- PluggableActionButtonSpec is intended as a HINT for the builder that this widget will be used as push (action) button. Unless explicitly supported it will be automatically substituted by PluggableButton.!

Item was removed:
- ----- Method: PluggableActionButtonSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableActionButton: self!

Item was removed:
- PluggableMultiSelectionListSpec subclass: #PluggableAlternateMultiSelectionListSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableAlternateMultiSelectionListSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^ builder buildPluggableAlternateMultiSelectionList: self!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableButtonSpec
- 	instanceVariableNames: 'action label state enabled style changeLabelWhen'
- 	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 removed:
- ----- Method: PluggableButtonSpec>>action (in category 'accessing') -----
- action
- 	"Answer the action to be performed by the receiver"
- 	^action!

Item was removed:
- ----- Method: PluggableButtonSpec>>action: (in category 'accessing') -----
- action: aSymbol
- 	"Indicate the action to be performed by the receiver"
- 	action := aSymbol!

Item was removed:
- ----- Method: PluggableButtonSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableButton: self!

Item was removed:
- ----- Method: PluggableButtonSpec>>changeLabelWhen (in category 'accessing') -----
- changeLabelWhen
- 	"When handled in in an update: handler, treat this symbol as notification
- 	that the button label should be updated."
- 	^changeLabelWhen!

Item was removed:
- ----- Method: PluggableButtonSpec>>changeLabelWhen: (in category 'accessing') -----
- changeLabelWhen: aSymbol
- 	"When the button handles aSymbol in its update: handler, treat it
- 	as notification that the button label should be updated."
- 	changeLabelWhen := aSymbol!

Item was removed:
- ----- Method: PluggableButtonSpec>>enabled (in category 'accessing') -----
- enabled
- 	"Answer the selector for retrieving the button's enablement"
- 	^enabled ifNil:[true]!

Item was removed:
- ----- Method: PluggableButtonSpec>>enabled: (in category 'accessing') -----
- enabled: aSymbol
- 	"Indicate the selector for retrieving the button's enablement"
- 	enabled := aSymbol!

Item was removed:
- ----- Method: PluggableButtonSpec>>label (in category 'accessing') -----
- label
- 	"Answer the label (or the selector for retrieving the label)"
- 	^label!

Item was removed:
- ----- Method: PluggableButtonSpec>>label: (in category 'accessing') -----
- label: aSymbol
- 	"Indicate the selector for retrieving the label"
- 	label := aSymbol.!

Item was removed:
- ----- Method: PluggableButtonSpec>>state (in category 'accessing') -----
- state
- 	"Answer the selector for retrieving the button's state"
- 	^state!

Item was removed:
- ----- Method: PluggableButtonSpec>>state: (in category 'accessing') -----
- state: aSymbol
- 	"Indicate the selector for retrieving the button's state"
- 	state := aSymbol.!

Item was removed:
- ----- Method: PluggableButtonSpec>>style (in category 'accessing') -----
- style
- 	"Treat aSymbol as a hint to modify the button appearance."
- 	^style
- 
- !

Item was removed:
- ----- Method: PluggableButtonSpec>>style: (in category 'accessing') -----
- style: aSymbol
- 	"Use aSymbol as a hint to modify the button appearance."
- 	style := aSymbol
- !

Item was removed:
- PluggableButtonSpec subclass: #PluggableCheckBoxSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableCheckBoxSpec commentStamp: 'ar 2/12/2005 23:13' prior: 0!
- PluggableCheckBox is intended as a HINT for the builder that this widget will be used as check box. Unless explicitly supported it will be automatically substituted by PluggableButton.!

Item was removed:
- ----- Method: PluggableCheckBoxSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableCheckBox: self!

Item was removed:
- PluggableTextSpec subclass: #PluggableCodePaneSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableCodePaneSpec commentStamp: 'ar 8/18/2009 00:02' prior: 0!
- A PluggableTextSpec specifically intended to edit code. Uses Syntax-Highlighting.!

Item was removed:
- ----- Method: PluggableCodePaneSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableCodePane: self!

Item was removed:
- ----- Method: PluggableCodePaneSpec>>font (in category 'accessing') -----
- font
- 	^ font ifNil: [Preferences standardCodeFont]!

Item was removed:
- ----- Method: PluggableCodePaneSpec>>stylerClass (in category 'accessing') -----
- stylerClass
- 
- 	^ super stylerClass ifNil: [TextStyler for: #Smalltalk]!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableCompositeSpec
- 	instanceVariableNames: 'children layout wantsResizeHandles spacing'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableCompositeSpec commentStamp: 'ar 2/11/2005 21:58' prior: 0!
- A composite user interface element.
- 
- Instance variables:
- 	children	<Symbol|Collection>	Symbol to retrieve children or children directly
- 	layout	<Symbol> The layout for this composite.
- !

Item was removed:
- ----- Method: PluggableCompositeSpec>>children (in category 'accessing') -----
- children
- 	"Answer the selector to retrieve this panel's children"
- 	^children!

Item was removed:
- ----- Method: PluggableCompositeSpec>>children: (in category 'accessing') -----
- children: aSymbol
- 	"Indicate the selector to retrieve this panel's children"
- 	children := aSymbol!

Item was removed:
- ----- Method: PluggableCompositeSpec>>layout (in category 'accessing') -----
- layout
- 	"Answer the symbol indicating the layout of the composite:
- 		#proportional (default): Use frames as appropriate.
- 		#horizontal: Arrange the elements horizontally
- 		#vertical: Arrange the elements vertically.
- 	"
- 	^layout ifNil:[#proportional]!

Item was removed:
- ----- Method: PluggableCompositeSpec>>layout: (in category 'accessing') -----
- layout: aSymbol
- 	"Answer the symbol indicating the layout of the composite:
- 		#proportional (default): Use frames as appropriate.
- 		#horizontal: Arrange the elements horizontally
- 		#vertical: Arrange the elements vertically.
- 	"
- 	layout := aSymbol!

Item was removed:
- ----- Method: PluggableCompositeSpec>>spacing (in category 'layout hints') -----
- spacing
- 	"...between components of this widget."
- 	
- 	^ spacing!

Item was removed:
- ----- Method: PluggableCompositeSpec>>spacing: (in category 'layout hints') -----
- spacing: numberOrPoint
- 
- 	spacing := numberOrPoint.!

Item was removed:
- ----- Method: PluggableCompositeSpec>>wantsResizeHandles (in category 'accessing') -----
- wantsResizeHandles
- 
- 	^ wantsResizeHandles!

Item was removed:
- ----- Method: PluggableCompositeSpec>>wantsResizeHandles: (in category 'accessing') -----
- wantsResizeHandles: aBoolean
- 
- 	wantsResizeHandles := aBoolean.!

Item was removed:
- PluggableCompositeSpec subclass: #PluggableDialogSpec
- 	instanceVariableNames: 'title message extent buttons closeAction exclusive autoCancel'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableDialogSpec>>autoCancel (in category 'accessing') -----
- autoCancel
- 	"Automatically cancel the dialog if the user clicks outside its bounds."
- 	
- 	^ autoCancel!

Item was removed:
- ----- Method: PluggableDialogSpec>>autoCancel: (in category 'accessing') -----
- autoCancel: aBoolean
- 	autoCancel := aBoolean.!

Item was removed:
- ----- Method: PluggableDialogSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableDialog: self.!

Item was removed:
- ----- Method: PluggableDialogSpec>>buttons (in category 'accessing') -----
- buttons
- 
- 	^ buttons!

Item was removed:
- ----- Method: PluggableDialogSpec>>buttons: (in category 'accessing') -----
- buttons: anObject
- 
- 	buttons := anObject!

Item was removed:
- ----- Method: PluggableDialogSpec>>closeAction (in category 'accessing') -----
- closeAction
- 
- 	^ closeAction!

Item was removed:
- ----- Method: PluggableDialogSpec>>closeAction: (in category 'accessing') -----
- closeAction: anObject
- 
- 	closeAction := anObject!

Item was removed:
- ----- Method: PluggableDialogSpec>>exclusive (in category 'accessing') -----
- exclusive
- 	^ exclusive!

Item was removed:
- ----- Method: PluggableDialogSpec>>exclusive: (in category 'accessing') -----
- exclusive: aBoolean
- 	exclusive := aBoolean.!

Item was removed:
- ----- Method: PluggableDialogSpec>>extent (in category 'accessing') -----
- extent
- 
- 	^ extent!

Item was removed:
- ----- Method: PluggableDialogSpec>>extent: (in category 'accessing') -----
- extent: anObject
- 
- 	extent := anObject!

Item was removed:
- ----- Method: PluggableDialogSpec>>horizontalResizing (in category 'layout hints') -----
- horizontalResizing
- 	^ #rigid!

Item was removed:
- ----- Method: PluggableDialogSpec>>label (in category 'window compatibility') -----
- label
- 	^ self title!

Item was removed:
- ----- Method: PluggableDialogSpec>>label: (in category 'window compatibility') -----
- label: stringOrSymbol
- 	self title: stringOrSymbol.!

Item was removed:
- ----- Method: PluggableDialogSpec>>message (in category 'accessing') -----
- message
- 
- 	^ message!

Item was removed:
- ----- Method: PluggableDialogSpec>>message: (in category 'accessing') -----
- message: anObject
- 
- 	message := anObject!

Item was removed:
- ----- Method: PluggableDialogSpec>>title (in category 'accessing') -----
- title
- 
- 	^ title!

Item was removed:
- ----- Method: PluggableDialogSpec>>title: (in category 'accessing') -----
- title: anObject
- 
- 	title := anObject!

Item was removed:
- ----- Method: PluggableDialogSpec>>verticalResizing (in category 'layout hints') -----
- verticalResizing
- 	^ #rigid!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableDropDownListSpec
- 	instanceVariableNames: 'listSelector selectionSelector selectionSetter'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableDropDownList: self!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>listSelector (in category 'accessing') -----
- listSelector
- 	"Answer the value of listSelector"
- 
- 	^ listSelector!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>listSelector: (in category 'accessing') -----
- listSelector: anObject
- 	"Set the value of listSelector"
- 
- 	listSelector := anObject!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>selectionSelector (in category 'accessing') -----
- selectionSelector
- 	"Answer the value of selectionSelector"
- 
- 	^ selectionSelector!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>selectionSelector: (in category 'accessing') -----
- selectionSelector: anObject
- 	"Set the value of selectionSelector"
- 
- 	selectionSelector := anObject!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>selectionSetter (in category 'accessing') -----
- selectionSetter
- 	"Answer the value of selectionSetter"
- 
- 	^ selectionSetter!

Item was removed:
- ----- Method: PluggableDropDownListSpec>>selectionSetter: (in category 'accessing') -----
- selectionSetter: anObject
- 	"Set the value of selectionSetter"
- 
- 	selectionSetter := anObject!

Item was removed:
- PluggableTextSpec subclass: #PluggableInputFieldSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableInputFieldSpec commentStamp: 'ar 2/12/2005 23:13' prior: 0!
- PluggableInputField is intended as a HINT for the builder that this widget will be used as a single line input field. Unless explicitly supported it will be automatically substituted by PluggableText.!

Item was removed:
- ----- Method: PluggableInputFieldSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableInputField: self!

Item was removed:
- ----- Method: PluggableInputFieldSpec>>hardLineWrap (in category 'accessing') -----
- hardLineWrap
- 
- 	^ false!

Item was removed:
- ----- Method: PluggableInputFieldSpec>>softLineWrap (in category 'accessing') -----
- softLineWrap
- 
- 	^ super softLineWrap ifNil: [false]!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableListSpec
- 	instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dragType dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem filterableList clearFilterAutomatically itemAlignment itemPadding'
- 	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 removed:
- ----- Method: PluggableListSpec>>autoDeselect (in category 'accessing - selection') -----
- autoDeselect
- 	"Answer whether this tree can be automatically deselected"
- 	^autoDeselect ifNil:[true]!

Item was removed:
- ----- Method: PluggableListSpec>>autoDeselect: (in category 'accessing - selection') -----
- autoDeselect: aBool
- 	"Indicate whether this tree can be automatically deselected"
- 	autoDeselect := aBool!

Item was removed:
- ----- Method: PluggableListSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableList: self!

Item was removed:
- ----- Method: PluggableListSpec>>clearFilterAutomatically (in category 'accessing - list') -----
- clearFilterAutomatically
- 	^ clearFilterAutomatically!

Item was removed:
- ----- Method: PluggableListSpec>>clearFilterAutomatically: (in category 'accessing - list') -----
- clearFilterAutomatically: aBoolean
- 	clearFilterAutomatically := aBoolean.!

Item was removed:
- ----- Method: PluggableListSpec>>doubleClick (in category 'accessing') -----
- doubleClick
- 	"Answer the selector to perform when a double-click occurs"
- 	^doubleClick!

Item was removed:
- ----- Method: PluggableListSpec>>doubleClick: (in category 'accessing') -----
- doubleClick: aSymbol
- 	"Set the selector to perform when a double-click occurs"
- 	doubleClick := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>dragItem (in category 'accessing - drag and drop') -----
- dragItem
- 	"Answer the selector for dragging an item"
- 	^dragItem!

Item was removed:
- ----- Method: PluggableListSpec>>dragItem: (in category 'accessing - drag and drop') -----
- dragItem: aSymbol
- 	"Set the selector for dragging an item"
- 	dragItem := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>dragStarted (in category 'accessing - drag and drop') -----
- dragStarted
- 	^ dragStarted!

Item was removed:
- ----- Method: PluggableListSpec>>dragStarted: (in category 'accessing - drag and drop') -----
- dragStarted: symbol
- 	dragStarted := symbol.!

Item was removed:
- ----- Method: PluggableListSpec>>dragType (in category 'accessing - drag and drop') -----
- dragType
- 	"Answer the selector to determine the type that can be used configure the drop."
- 
- 	^ dragType!

Item was removed:
- ----- Method: PluggableListSpec>>dragType: (in category 'accessing - drag and drop') -----
- dragType: aSymbol
- 	"Answer the selector to determine the type that can be used configure the drop."
- 	
- 	dragType := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>dropAccept (in category 'accessing - drag and drop') -----
- dropAccept
- 	"Answer the selector to determine whether a drop would be accepted"
- 	^dropAccept!

Item was removed:
- ----- Method: PluggableListSpec>>dropAccept: (in category 'accessing - drag and drop') -----
- dropAccept: aSymbol
- 	"Answer the selector to determine whether a drop would be accepted"
- 	dropAccept := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>dropItem (in category 'accessing - drag and drop') -----
- dropItem
- 	"Answer the selector for dropping an item"
- 	^dropItem!

Item was removed:
- ----- Method: PluggableListSpec>>dropItem: (in category 'accessing - drag and drop') -----
- dropItem: aSymbol
- 	"Set the selector for dropping an item"
- 	dropItem := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>filterableList (in category 'accessing - list') -----
- filterableList
- 	^ filterableList!

Item was removed:
- ----- Method: PluggableListSpec>>filterableList: (in category 'accessing - list') -----
- filterableList: aBoolean
- 	filterableList := aBoolean.!

Item was removed:
- ----- Method: PluggableListSpec>>getIndex (in category 'accessing - selection') -----
- getIndex
- 	"Answer the selector for retrieving the list's selection index"
- 	^getIndex!

Item was removed:
- ----- Method: PluggableListSpec>>getIndex: (in category 'accessing - selection') -----
- getIndex: aSymbol
- 	"Indicate the selector for retrieving the list's selection index"
- 	getIndex := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>getSelected (in category 'accessing - selection') -----
- getSelected
- 	"Answer the selector for retrieving the list selection"
- 	^getSelected!

Item was removed:
- ----- Method: PluggableListSpec>>getSelected: (in category 'accessing - selection') -----
- getSelected: aSymbol
- 	"Indicate the selector for retrieving the list selection"
- 	getSelected := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>hScrollBarPolicy (in category 'accessing') -----
- hScrollBarPolicy
- 
- 	^ hScrollBarPolicy!

Item was removed:
- ----- Method: PluggableListSpec>>hScrollBarPolicy: (in category 'accessing') -----
- hScrollBarPolicy: aSymbol
- 	"#always, #never, #whenNeeded"
- 
- 	hScrollBarPolicy := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>helpItem (in category 'accessing') -----
- helpItem
- 	
- 	^ helpItem!

Item was removed:
- ----- Method: PluggableListSpec>>helpItem: (in category 'accessing') -----
- helpItem: selector
- 	
- 	helpItem := selector.!

Item was removed:
- ----- Method: PluggableListSpec>>icon (in category 'accessing') -----
- icon
- 	^ icon!

Item was removed:
- ----- Method: PluggableListSpec>>icon: (in category 'accessing') -----
- icon: aSelector
- 	icon := aSelector!

Item was removed:
- ----- Method: PluggableListSpec>>itemAlignment (in category 'accessing') -----
- itemAlignment
- 	"Define the alignment of each list item in its layout cell. The value can encode both horizontal and vertical dimensions."
- 	
- 	^ itemAlignment!

Item was removed:
- ----- Method: PluggableListSpec>>itemAlignment: (in category 'accessing') -----
- itemAlignment: aSymbol
- 	"For convenience, map #left and #right to their correct values. At least for Morphic."
- 	
- 	aSymbol == #left ifTrue: [^ itemAlignment := #leftCenter].
- 	aSymbol == #right ifTrue: [^ itemAlignment := #rightCenter].
- 	
- 	itemAlignment := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>itemPadding (in category 'accessing') -----
- itemPadding
- 	
- 	^ itemPadding!

Item was removed:
- ----- Method: PluggableListSpec>>itemPadding: (in category 'accessing') -----
- itemPadding: numberOrPointOrRectangle
- 	
- 	itemPadding := numberOrPointOrRectangle.!

Item was removed:
- ----- Method: PluggableListSpec>>keyPress (in category 'accessing') -----
- keyPress
- 	"Answer the selector for invoking the list's keyPress handler"
- 	^keyPress!

Item was removed:
- ----- Method: PluggableListSpec>>keyPress: (in category 'accessing') -----
- keyPress: aSymbol
- 	"Indicate the selector for invoking the list's keyPress handler"
- 	keyPress := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>keystrokePreview (in category 'accessing') -----
- keystrokePreview
- 	"Answer the selector to determine whether to allow the model a preview of keystrokes"
- 	^ keystrokePreview!

Item was removed:
- ----- Method: PluggableListSpec>>keystrokePreview: (in category 'accessing') -----
- keystrokePreview: aSymbol
- 	"The selector to determine whether to allow the model a preview of keystrokes"
- 	keystrokePreview := aSymbol.!

Item was removed:
- ----- Method: PluggableListSpec>>list (in category 'accessing - list') -----
- list
- 	"Answer the selector for retrieving the list contents"
- 	^list!

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

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

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

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

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

Item was removed:
- ----- Method: PluggableListSpec>>menu (in category 'accessing') -----
- menu
- 	"Answer the selector for retrieving the list's menu"
- 	^menu!

Item was removed:
- ----- Method: PluggableListSpec>>menu: (in category 'accessing') -----
- menu: aSymbol
- 	"Indicate the selector for retrieving the list's menu"
- 	menu := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>setIndex (in category 'accessing - selection') -----
- setIndex
- 	"Answer the selector for setting the list's selection index"
- 	^setIndex!

Item was removed:
- ----- Method: PluggableListSpec>>setIndex: (in category 'accessing - selection') -----
- setIndex: aSymbol
- 	"Answer the selector for setting the list's selection index"
- 	setIndex := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>setSelected (in category 'accessing - selection') -----
- setSelected
- 	"Answer the selector for setting the list selection"
- 	^setSelected!

Item was removed:
- ----- Method: PluggableListSpec>>setSelected: (in category 'accessing - selection') -----
- setSelected: aSymbol
- 	"Indicate the selector for setting the list selection"
- 	setSelected := aSymbol!

Item was removed:
- ----- Method: PluggableListSpec>>vScrollBarPolicy (in category 'accessing') -----
- vScrollBarPolicy
- 
- 	^ vScrollBarPolicy!

Item was removed:
- ----- Method: PluggableListSpec>>vScrollBarPolicy: (in category 'accessing') -----
- vScrollBarPolicy: aSymbol
- 	"#always, #never, #whenNeeded"
- 	
- 	vScrollBarPolicy := aSymbol.!

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

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

Item was removed:
- ----- Method: PluggableMenuItemSpec>>action: (in category 'accessing') -----
- action: aMessageSend
- 	"Answer the action associated with the receiver"
- 	action := aMessageSend!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>analyzeLabel (in category 'initialize') -----
- analyzeLabel
- 	"For Morphic compatiblity. Some labels include markup such as <on>, <off> etc.
- 	Analyze the label for these annotations and take appropriate action."
- 	| marker |
- 	marker := label copyFrom: 1 to: (label indexOf: $>).
- 	(marker = '<on>' or:[marker = '<yes>']) ifTrue:[
- 		checkable := true.
- 		checked := true.
- 		label := label copyFrom: marker size+1 to: label size.
- 	].
- 	(marker = '<off>' or:[marker = '<no>']) ifTrue:[
- 		checkable := true.
- 		checked := false.
- 		label := label copyFrom: marker size+1 to: label size.
- 	].
- !

Item was removed:
- ----- Method: PluggableMenuItemSpec>>beCheckable (in category 'accessing') -----
- beCheckable
- 	checkable := true.!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^ builder buildPluggableMenuItem: self!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>checked (in category 'accessing') -----
- checked
- 	"Answer whether the receiver is checked"
- 	^checked ifNil:[false]!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>checked: (in category 'accessing') -----
- checked: aBool
- 	"Indicate whether the receiver is checked"
- 	checked := aBool.!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>enabled (in category 'accessing') -----
- enabled
- 	"Answer whether the receiver is enabled"
- 	^enabled ifNil:[true]!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>enabled: (in category 'accessing') -----
- enabled: aBool
- 	"Indicate whether the receiver is enabled"
- 	enabled := aBool!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>initialize (in category 'initialize') -----
- initialize
- 	checkable := false.!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>isCheckable (in category 'accessing') -----
- isCheckable
- 	^ checkable!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>label (in category 'accessing') -----
- label
- 	"Answer the receiver's label"
- 	^label!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>label: (in category 'accessing') -----
- label: aString
- 	"Set the receiver's label"
- 	label := aString!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>separator (in category 'accessing') -----
- separator
- 	"Answer whether the receiver should be followed by a separator"
- 	^separator ifNil:[false]!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>separator: (in category 'accessing') -----
- separator: aBool
- 	"Indicate whether the receiver should be followed by a separator"
- 	separator := aBool.!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>subMenu (in category 'accessing') -----
- subMenu
- 	"Answer the receiver's subMenu"
- 	^subMenu!

Item was removed:
- ----- Method: PluggableMenuItemSpec>>subMenu: (in category 'accessing') -----
- subMenu: aMenuSpec
- 	"Answer the receiver's subMenu"
- 	subMenu := aMenuSpec!

Item was removed:
- ToolBuilderSpec subclass: #PluggableMenuSpec
- 	instanceVariableNames: 'label model items'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableMenuSpec class>>withModel: (in category 'as yet unclassified') -----
- withModel: aModel
- 	^ self new model: aModel!

Item was removed:
- ----- Method: PluggableMenuSpec>>add:action: (in category 'construction') -----
- add: aString action: aMessageSend
- 	| item |
- 	item := self addMenuItem.
- 	item label: aString.
- 	item action: aMessageSend.
- 	^item!

Item was removed:
- ----- Method: PluggableMenuSpec>>add:target:selector:argumentList: (in category 'construction') -----
- add: aString target: anObject selector: aSelector argumentList: anArray
- 	^self add: aString action: (MessageSend 
- 				receiver: anObject 
- 				selector: aSelector
- 				arguments: anArray).!

Item was removed:
- ----- Method: PluggableMenuSpec>>addLine (in category 'construction') -----
- addLine
- 	"For compatibility with MenuMorph/CustomMenu."
- 
- 	^ self addSeparator!

Item was removed:
- ----- Method: PluggableMenuSpec>>addList: (in category 'construction') -----
- addList: aList
- 	"Add the given items to this menu, where each item is a pair (<string> <actionSelector>)..  If an element of the list is simply the symobl $-, add a line to the receiver.  The optional third element of each entry, if present, provides balloon help."
- 
- 	aList do: [:tuple |
- 		(tuple == #-)
- 			ifTrue: [self addSeparator]
- 			ifFalse:[ | item |
- 				item := self add: tuple first target: model selector: tuple second argumentList: #().
- 				tuple size > 2 ifTrue:[item help: tuple third]]]!

Item was removed:
- ----- Method: PluggableMenuSpec>>addMenuItem (in category 'construction') -----
- addMenuItem
- 	| item |
- 	item := self newMenuItem.
- 	self items add: item.
- 	^item!

Item was removed:
- ----- Method: PluggableMenuSpec>>addSeparator (in category 'construction') -----
- addSeparator
- 	self items isEmpty ifTrue:[^nil].
- 	self items last separator: true.!

Item was removed:
- ----- Method: PluggableMenuSpec>>analyzeItemLabels (in category 'construction') -----
- analyzeItemLabels
- 	"Analyze the item labels"
- 	items do:[:item| item analyzeLabel].
- !

Item was removed:
- ----- Method: PluggableMenuSpec>>buildWith: (in category 'construction') -----
- buildWith: builder
- 	self analyzeItemLabels.
- 	^ builder buildPluggableMenu: self!

Item was removed:
- ----- Method: PluggableMenuSpec>>items (in category 'accessing') -----
- items
- 	^ items ifNil: [items := OrderedCollection new]!

Item was removed:
- ----- Method: PluggableMenuSpec>>label (in category 'accessing') -----
- label
- 	^label!

Item was removed:
- ----- Method: PluggableMenuSpec>>label: (in category 'accessing') -----
- label: aString
- 	label := aString.!

Item was removed:
- ----- Method: PluggableMenuSpec>>model (in category 'accessing') -----
- model
- 	^ model!

Item was removed:
- ----- Method: PluggableMenuSpec>>model: (in category 'accessing') -----
- model: anObject 
- 	model := anObject!

Item was removed:
- ----- Method: PluggableMenuSpec>>newMenuItem (in category 'construction') -----
- newMenuItem
- 	^PluggableMenuItemSpec new!

Item was removed:
- PluggableListSpec subclass: #PluggableMultiColumnListSpec
- 	instanceVariableNames: 'itemAlignments itemPaddings columnResizings columnSpaceFillWeights'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableMultiColumnList: self!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>columnResizings (in category 'accessing') -----
- columnResizings
- 	"For each column, define the horizontal resizing (or #hResizing) behavior. Choose from #rigid, #shrinkWrap, and #spaceFill."
- 	
- 	^ columnResizings ifNil: [#(spaceFill)]!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>columnResizings: (in category 'accessing') -----
- columnResizings: someSymbols
- 
- 	columnResizings := someSymbols.!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>columnSpaceFillWeights (in category 'accessing') -----
- columnSpaceFillWeights
- 	"For each column, define the relative space-fill weight, which will be used if the resizing strategy is set to #spaceFill."
- 	
- 	^ columnSpaceFillWeights ifNil: [#(1)]!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>columnSpaceFillWeights: (in category 'accessing') -----
- columnSpaceFillWeights: someNumbers
- 	
- 	columnSpaceFillWeights := someNumbers.!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>itemAlignments (in category 'accessing') -----
- itemAlignments
- 	"For each column, define the alignment of each list item in its layout cell. The value can encode both horizontal and vertical dimensions."
- 	
- 	^ itemAlignments ifNil: [self itemAlignment ifNil: [#()] ifNotNil: [:alignment | {alignment}]]!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>itemAlignments: (in category 'accessing') -----
- itemAlignments: someSymbols
- 	"For convenience, map #left and #right to their correct values. At least for Morphic."
- 
- 	itemAlignments := someSymbols collect: [:alignment |
- 		alignment == #left ifTrue: [#leftCenter] ifFalse: [
- 		alignment == #right ifTrue: [#rightCenter] ifFalse: [
- 		alignment]]].!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>itemPaddings (in category 'accessing') -----
- itemPaddings
- 	
- 	^ itemPaddings ifNil: [self itemPadding ifNil: [#()] ifNotNil: [:pad | {pad}]]!

Item was removed:
- ----- Method: PluggableMultiColumnListSpec>>itemPaddings: (in category 'accessing') -----
- itemPaddings: someNumbersOrPointsOrRectangles
- 	
- 	itemPaddings := someNumbersOrPointsOrRectangles.!

Item was removed:
- PluggableListSpec subclass: #PluggableMultiSelectionListSpec
- 	instanceVariableNames: 'getSelectionList setSelectionList'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableMultiSelectionListSpec commentStamp: 'ar 2/12/2005 13:31' prior: 0!
- PluggableMultiSelectionListSpec specifies a list with multiple selection behavior.
- 
- Instance variables:
- 	getSelectionList	<Symbol>	The message to retrieve the multiple selections.
- 	setSelectionList	<Symbol>	The message to indicate multiple selections.!

Item was removed:
- ----- Method: PluggableMultiSelectionListSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableMultiSelectionList: self!

Item was removed:
- ----- Method: PluggableMultiSelectionListSpec>>getSelectionList (in category 'accessing') -----
- getSelectionList
- 	"Answer the message to retrieve the multiple selections"
- 	^getSelectionList!

Item was removed:
- ----- Method: PluggableMultiSelectionListSpec>>getSelectionList: (in category 'accessing') -----
- getSelectionList: aSymbol
- 	"Indicate the message to retrieve the multiple selections"
- 	getSelectionList := aSymbol!

Item was removed:
- ----- Method: PluggableMultiSelectionListSpec>>setSelectionList (in category 'accessing') -----
- setSelectionList
- 	"Answer the message to indicate multiple selections"
- 	^setSelectionList!

Item was removed:
- ----- Method: PluggableMultiSelectionListSpec>>setSelectionList: (in category 'accessing') -----
- setSelectionList: aSymbol
- 	"Indicate the message to indicate multiple selections"
- 	setSelectionList := aSymbol!

Item was removed:
- PluggableCompositeSpec subclass: #PluggablePanelSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggablePanelSpec commentStamp: 'ar 2/11/2005 15:01' prior: 0!
- A panel with a (possibly changing) set of child elements. Expects to see change/update notifications when the childrens change.!

Item was removed:
- ----- Method: PluggablePanelSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggablePanel: self.!

Item was removed:
- PluggableButtonSpec subclass: #PluggableRadioButtonSpec
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableRadioButtonSpec commentStamp: 'ar 2/12/2005 23:14' prior: 0!
- PluggableRadioButton is intended as a HINT for the builder that this widget will be used as radio button. Unless explicitly supported it will be automatically substituted by PluggableButton.!

Item was removed:
- ----- Method: PluggableRadioButtonSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableRadioButton: self!

Item was removed:
- PluggableCompositeSpec subclass: #PluggableScrollPaneSpec
- 	instanceVariableNames: 'morph morphClass borderWidth vScrollBarPolicy hScrollBarPolicy'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>borderWidth (in category 'accessing') -----
- borderWidth
- 
- 	^ borderWidth!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>borderWidth: (in category 'accessing') -----
- borderWidth: anObject
- 
- 	borderWidth := anObject!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 
- 	^ builder buildPluggableScrollPane: self!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy (in category 'accessing') -----
- hScrollBarPolicy
- 
- 	^ hScrollBarPolicy!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>hScrollBarPolicy: (in category 'accessing') -----
- hScrollBarPolicy: anObject
- 	"#always, #never, #whenNeeded"
- 
- 	hScrollBarPolicy := anObject!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>morph (in category 'accessing') -----
- morph
- 
- 	^ morph!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>morph: (in category 'accessing') -----
- morph: anObject
- 
- 	morph := anObject!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>morphClass (in category 'accessing') -----
- morphClass
- 
- 	^ morphClass!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>morphClass: (in category 'accessing') -----
- morphClass: anObject
- 
- 	morphClass := anObject!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy (in category 'accessing') -----
- vScrollBarPolicy
- 
- 	^ vScrollBarPolicy!

Item was removed:
- ----- Method: PluggableScrollPaneSpec>>vScrollBarPolicy: (in category 'accessing') -----
- vScrollBarPolicy: anObject
- 	"#always, #never, #whenNeeded"
- 	
- 	vScrollBarPolicy := anObject!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableSpacerSpec
- 	instanceVariableNames: 'extent'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!

Item was removed:
- ----- Method: PluggableSpacerSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableSpacer: self!

Item was removed:
- ----- Method: PluggableSpacerSpec>>extent (in category 'layout hints') -----
- extent
- 
- 	^ extent ifNil: [(TextStyle defaultFont widthOf: $x) asPoint]!

Item was removed:
- ----- Method: PluggableSpacerSpec>>extent: (in category 'layout hints') -----
- extent: aPoint
- 
- 	extent := aPoint.!

Item was removed:
- ----- Method: PluggableSpacerSpec>>fillSpaceHorizontally (in category 'convenience') -----
- fillSpaceHorizontally
- 
- 	self horizontalResizing: #spaceFill.!

Item was removed:
- ----- Method: PluggableSpacerSpec>>fillSpaceVertically (in category 'convenience') -----
- fillSpaceVertically
- 
- 	self verticalResizing: #spaceFill.!

Item was removed:
- ----- Method: PluggableSpacerSpec>>horizontalResizing (in category 'accessing') -----
- horizontalResizing
- 
- 	^ super horizontalResizing ifNil: [#rigid]!

Item was removed:
- ----- Method: PluggableSpacerSpec>>verticalResizing (in category 'accessing') -----
- verticalResizing
- 
- 	^ super verticalResizing ifNil: [#rigid]!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableTextSpec
- 	instanceVariableNames: 'getText setText selection menu askBeforeDiscardingEdits editText indicateUnacceptedChanges stylerClass font textStyle readOnly softLineWrap hardLineWrap textColor plainTextOnly'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableTextSpec commentStamp: 'ar 2/11/2005 21:58' prior: 0!
- A text editor.
- 
- Instance variables:
- 	getText	<Symbol>	The selector to retrieve the text.
- 	setText	<Symbol>	The selector to set the text.
- 	selection <Symbol>	The selector to retrieve the text selection.
- 	menu	<Symbol>	The selector to offer (to retrieve?) the context menu.
- 	color	 <Symbol>	The selector to retrieve the background color.
- 
- !

Item was removed:
- ----- Method: PluggableTextSpec>>askBeforeDiscardingEdits (in category 'accessing') -----
- askBeforeDiscardingEdits
- 	^askBeforeDiscardingEdits ifNil:[true]!

Item was removed:
- ----- Method: PluggableTextSpec>>askBeforeDiscardingEdits: (in category 'accessing') -----
- askBeforeDiscardingEdits: aBool
- 	askBeforeDiscardingEdits := aBool!

Item was removed:
- ----- Method: PluggableTextSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableText: self!

Item was removed:
- ----- Method: PluggableTextSpec>>editText (in category 'accessing') -----
- editText
- 	^ editText!

Item was removed:
- ----- Method: PluggableTextSpec>>editText: (in category 'accessing') -----
- editText: aSymbol
- 	"Answer the selector for getting informed about any modifications of the text."
- 	editText := aSymbol!

Item was removed:
- ----- Method: PluggableTextSpec>>font (in category 'accessing') -----
- font
- 	^ font!

Item was removed:
- ----- Method: PluggableTextSpec>>font: (in category 'accessing') -----
- font: aFontOrSymbol
- 	"Configure the font of the text field. You can provide a Symbol to let model's change their font dynamically."
- 	
- 	font := aFontOrSymbol.!

Item was removed:
- ----- Method: PluggableTextSpec>>getText (in category 'accessing') -----
- getText
- 	"Answer the selector for retrieving the text"
- 	^getText!

Item was removed:
- ----- Method: PluggableTextSpec>>getText: (in category 'accessing') -----
- getText: aSymbol
- 	"Answer the selector for retrieving the text"
- 	getText := aSymbol!

Item was removed:
- ----- Method: PluggableTextSpec>>hardLineWrap (in category 'accessing') -----
- hardLineWrap
- 
- 	^ hardLineWrap!

Item was removed:
- ----- Method: PluggableTextSpec>>hardLineWrap: (in category 'accessing') -----
- hardLineWrap: aBoolean
- 
- 	hardLineWrap := aBoolean.!

Item was removed:
- ----- Method: PluggableTextSpec>>indicateUnacceptedChanges (in category 'accessing') -----
- indicateUnacceptedChanges
- 	^ indicateUnacceptedChanges ifNil: [true]!

Item was removed:
- ----- Method: PluggableTextSpec>>indicateUnacceptedChanges: (in category 'accessing') -----
- indicateUnacceptedChanges: aBoolean
- 	indicateUnacceptedChanges := aBoolean.!

Item was removed:
- ----- Method: PluggableTextSpec>>menu (in category 'accessing') -----
- menu
- 	"Answer the selector for retrieving the text's menu"
- 	^menu!

Item was removed:
- ----- Method: PluggableTextSpec>>menu: (in category 'accessing') -----
- menu: aSymbol
- 	"Indicate the selector for retrieving the text's menu"
- 	menu := aSymbol!

Item was removed:
- ----- Method: PluggableTextSpec>>plainTextOnly (in category 'accessing') -----
- plainTextOnly
- 
- 	^ plainTextOnly ifNil: [false]!

Item was removed:
- ----- Method: PluggableTextSpec>>plainTextOnly: (in category 'accessing') -----
- plainTextOnly: aBoolean
- 
- 	plainTextOnly := aBoolean.!

Item was removed:
- ----- Method: PluggableTextSpec>>readOnly (in category 'accessing') -----
- readOnly
- 
- 	^ readOnly ifNil: [false]!

Item was removed:
- ----- Method: PluggableTextSpec>>readOnly: (in category 'accessing') -----
- readOnly: aBoolean
- 
- 	readOnly := aBoolean.!

Item was removed:
- ----- Method: PluggableTextSpec>>selection (in category 'accessing') -----
- selection
- 	"Answer the selector for retrieving the text selection"
- 	^selection!

Item was removed:
- ----- Method: PluggableTextSpec>>selection: (in category 'accessing') -----
- selection: aSymbol
- 	"Indicate the selector for retrieving the text selection"
- 	selection := aSymbol!

Item was removed:
- ----- Method: PluggableTextSpec>>setText (in category 'accessing') -----
- setText
- 	"Answer the selector for setting the text"
- 	^setText!

Item was removed:
- ----- Method: PluggableTextSpec>>setText: (in category 'accessing') -----
- setText: aSymbol
- 	"Answer the selector for setting the text"
- 	setText := aSymbol!

Item was removed:
- ----- Method: PluggableTextSpec>>softLineWrap (in category 'accessing') -----
- softLineWrap
- 
- 	^ softLineWrap!

Item was removed:
- ----- Method: PluggableTextSpec>>softLineWrap: (in category 'accessing') -----
- softLineWrap: aBoolean
- 
- 	softLineWrap := aBoolean.!

Item was removed:
- ----- Method: PluggableTextSpec>>stylerClass (in category 'accessing') -----
- stylerClass
- 	^ stylerClass!

Item was removed:
- ----- Method: PluggableTextSpec>>stylerClass: (in category 'accessing') -----
- stylerClass: aStylerClass
- 	stylerClass := aStylerClass.!

Item was removed:
- ----- Method: PluggableTextSpec>>textColor (in category 'accessing') -----
- textColor
- 	^ textColor!

Item was removed:
- ----- Method: PluggableTextSpec>>textColor: (in category 'accessing') -----
- textColor: aSymbol
- 	textColor := aSymbol.!

Item was removed:
- ----- Method: PluggableTextSpec>>textStyle (in category 'accessing') -----
- textStyle
- 	^ textStyle!

Item was removed:
- ----- Method: PluggableTextSpec>>textStyle: (in category 'accessing') -----
- textStyle: aTextStyleOrSymbol
- 	"Configure the text style (i.e., usually same font family at different sizes to be used with TextFontChange attribute) of the text field. You can provide a Symbol to let model's change their text style dynamically."
- 	
- 	textStyle := aTextStyleOrSymbol.!

Item was removed:
- PluggableWidgetSpec subclass: #PluggableTreeSpec
- 	instanceVariableNames: 'roots getSelectedPath setSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress doubleClick dropItem dropAccept autoDeselect dragItem dragType nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableTreeSpec commentStamp: 'pre 4/24/2018 10:20' 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.
- 	setSelectedPath	<Symbol> The message to set 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.!

Item was removed:
- ----- Method: PluggableTreeSpec>>autoDeselect (in category 'accessing - selection') -----
- autoDeselect
- 	"Answer whether this tree can be automatically deselected"
- 	^autoDeselect ifNil:[true]!

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

Item was removed:
- ----- Method: PluggableTreeSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableTree: self!

Item was removed:
- ----- Method: PluggableTreeSpec>>columns (in category 'accessing') -----
- columns
- 	^ columns!

Item was removed:
- ----- Method: PluggableTreeSpec>>columns: (in category 'accessing') -----
- columns: columnSpecs
- 	columns := columnSpecs.!

Item was removed:
- ----- Method: PluggableTreeSpec>>doubleClick (in category 'accessing') -----
- doubleClick
- 	"Answer the selector for reacting to a double click"
- 	^ doubleClick!

Item was removed:
- ----- Method: PluggableTreeSpec>>doubleClick: (in category 'accessing') -----
- doubleClick: selector
- 	"Set the selector for reacting to a double click"
- 	doubleClick := selector!

Item was removed:
- ----- Method: PluggableTreeSpec>>dragItem (in category 'accessing - drag and drop') -----
- dragItem
- 	^ dragItem.!

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

Item was removed:
- ----- Method: PluggableTreeSpec>>dragStarted (in category 'accessing - drag and drop') -----
- dragStarted
- 	^ dragStarted!

Item was removed:
- ----- Method: PluggableTreeSpec>>dragStarted: (in category 'accessing - drag and drop') -----
- dragStarted: symbol
- 	dragStarted := symbol.!

Item was removed:
- ----- Method: PluggableTreeSpec>>dragType (in category 'accessing - drag and drop') -----
- dragType
- 	"Answer the selector to determine the type that can be used configure the drop."
- 
- 	^ dragType!

Item was removed:
- ----- Method: PluggableTreeSpec>>dragType: (in category 'accessing - drag and drop') -----
- dragType: aSymbol
- 	"Inidicate the selector to determine the type that can be used configure the drop."
- 	
- 	dragType := aSymbol.!

Item was removed:
- ----- Method: PluggableTreeSpec>>dropAccept (in category 'accessing - drag and drop') -----
- dropAccept
- 	"Answer the selector for querying the receiver about accepting drops"
- 	^dropAccept!

Item was removed:
- ----- Method: PluggableTreeSpec>>dropAccept: (in category 'accessing - drag and drop') -----
- dropAccept: aSymbol
- 	"Set the selector for querying the receiver about accepting drops"
- 	dropAccept := aSymbol!

Item was removed:
- ----- Method: PluggableTreeSpec>>dropItem (in category 'accessing - drag and drop') -----
- dropItem
- 	"Answer the selector for invoking the tree's dragDrop handler"
- 	^dropItem!

Item was removed:
- ----- Method: PluggableTreeSpec>>dropItem: (in category 'accessing - drag and drop') -----
- dropItem: aSymbol
- 	"Indicate the selector for invoking the tree's dragDrop handler"
- 	dropItem := aSymbol!

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

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

Item was removed:
- ----- Method: PluggableTreeSpec>>getSelected (in category 'accessing - selection') -----
- getSelected
- 	^ getSelected!

Item was removed:
- ----- Method: PluggableTreeSpec>>getSelected: (in category 'accessing - selection') -----
- getSelected: aSymbol
- 	"Indicate a single node in the tree. Only works if that node is visible, too. Use #getSelectedPath otherwise."
- 	
- 	getSelected := aSymbol.!

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

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

Item was removed:
- ----- Method: PluggableTreeSpec>>hScrollBarPolicy (in category 'accessing') -----
- hScrollBarPolicy
- 
- 	^ hScrollBarPolicy!

Item was removed:
- ----- Method: PluggableTreeSpec>>hScrollBarPolicy: (in category 'accessing') -----
- hScrollBarPolicy: aSymbol
- 	"#always, #never, #whenNeeded"
- 
- 	hScrollBarPolicy := aSymbol.!

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

Item was removed:
- ----- Method: PluggableTreeSpec>>hasChildren: (in category 'accessing - hierarchy') -----
- hasChildren: aSymbol
- 	"Indicate the message to retrieve the existence children in this tree"
- 	hasChildren := aSymbol!

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

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

Item was removed:
- ----- Method: PluggableTreeSpec>>keyPress (in category 'accessing') -----
- keyPress
- 	"Answer the selector for invoking the tree's keyPress handler"
- 	^keyPress!

Item was removed:
- ----- Method: PluggableTreeSpec>>keyPress: (in category 'accessing') -----
- keyPress: aSymbol
- 	"Indicate the selector for invoking the tree's keyPress handler"
- 	keyPress := aSymbol!

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

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

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

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

Item was removed:
- ----- Method: PluggableTreeSpec>>nodeClass (in category 'accessing') -----
- nodeClass
- 	^ nodeClass!

Item was removed:
- ----- Method: PluggableTreeSpec>>nodeClass: (in category 'accessing') -----
- nodeClass: aListWrapperClass
- 	nodeClass := aListWrapperClass.!

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

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

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

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

Item was removed:
- ----- Method: PluggableTreeSpec>>setSelectedParent (in category 'accessing - selection') -----
- setSelectedParent
- 	^ setSelectedParent!

Item was removed:
- ----- Method: PluggableTreeSpec>>setSelectedParent: (in category 'accessing - selection') -----
- setSelectedParent: aSymbol
- 	setSelectedParent := aSymbol!

Item was removed:
- ----- Method: PluggableTreeSpec>>setSelectedPath (in category 'accessing - selection') -----
- setSelectedPath
- 
- 	^ setSelectedPath!

Item was removed:
- ----- Method: PluggableTreeSpec>>setSelectedPath: (in category 'accessing - selection') -----
- setSelectedPath: aSymbol
- 	
- 	setSelectedPath := aSymbol!

Item was removed:
- ----- Method: PluggableTreeSpec>>vScrollBarPolicy (in category 'accessing') -----
- vScrollBarPolicy
- 
- 	^ vScrollBarPolicy!

Item was removed:
- ----- Method: PluggableTreeSpec>>vScrollBarPolicy: (in category 'accessing') -----
- vScrollBarPolicy: aSymbol
- 	"#always, #never, #whenNeeded"
- 	
- 	vScrollBarPolicy := aSymbol.!

Item was removed:
- ToolBuilderSpec subclass: #PluggableWidgetSpec
- 	instanceVariableNames: 'model frame color minimumExtent margin padding horizontalResizing verticalResizing'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !PluggableWidgetSpec commentStamp: 'ar 2/9/2005 18:40' prior: 0!
- The abstract superclass for all widgets.
- 
- Instance variables:
- 	model	<Object>	The object the various requests should be directed to.
- 	frame	<Rectangle> The associated layout frame for this object (if any).
- !

Item was removed:
- ----- Method: PluggableWidgetSpec>>color (in category 'accessing') -----
- color
- 	"Answer the selector for retrieving the button's color"
- 	^color!

Item was removed:
- ----- Method: PluggableWidgetSpec>>color: (in category 'accessing') -----
- color: aSymbol
- 	"Indicate the selector for retrieving the button's color"
- 	color := aSymbol!

Item was removed:
- ----- Method: PluggableWidgetSpec>>frame (in category 'accessing') -----
- frame
- 	"Answer the receiver's layout frame"
- 	^frame!

Item was removed:
- ----- Method: PluggableWidgetSpec>>frame: (in category 'accessing') -----
- frame: aRectangle
- 	"Indicate the receiver's layout frame"
- 	frame := aRectangle!

Item was removed:
- ----- Method: PluggableWidgetSpec>>horizontalResizing (in category 'layout hints') -----
- horizontalResizing
- 
- 	^ horizontalResizing!

Item was removed:
- ----- Method: PluggableWidgetSpec>>horizontalResizing: (in category 'layout hints') -----
- horizontalResizing: aSymbol
- 	"#rigid, #spaceFill, #shrinkWrap"
- 
- 	horizontalResizing := aSymbol.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>margin (in category 'layout hints') -----
- margin
- 	"Space outside the widgets border.
- 	See: http://www.w3.org/wiki/The_CSS_layout_model_-_boxes_borders_margins_padding"
- 	
- 	^ margin!

Item was removed:
- ----- Method: PluggableWidgetSpec>>margin: (in category 'layout hints') -----
- margin: numberOrPointOrRectangle
- 
- 	margin := numberOrPointOrRectangle.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumExtent (in category 'layout hints') -----
- minimumExtent
- 
- 	^ minimumExtent ifNil: [-1 @ -1]!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumExtent: (in category 'layout hints') -----
- minimumExtent: aPoint
- 
- 	minimumExtent := aPoint.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumHeight (in category 'layout hints') -----
- minimumHeight
- 
- 	^ self minimumExtent y!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumHeight: (in category 'layout hints') -----
- minimumHeight: aNumber
- 
- 	self minimumExtent: self minimumExtent x @ aNumber.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumWidth (in category 'layout hints') -----
- minimumWidth
- 
- 	^ self minimumExtent x!

Item was removed:
- ----- Method: PluggableWidgetSpec>>minimumWidth: (in category 'layout hints') -----
- minimumWidth: aNumber
- 
- 	self minimumExtent: aNumber @ self minimumExtent y.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>model (in category 'accessing') -----
- model
- 	"Answer the model for which this widget should be built"
- 	^model!

Item was removed:
- ----- Method: PluggableWidgetSpec>>model: (in category 'accessing') -----
- model: aModel
- 	"Indicate the model for which this widget should be built"
- 	model := aModel.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>padding (in category 'layout hints') -----
- padding
- 	"Space inside the widget's border.
- 	See: http://www.w3.org/wiki/The_CSS_layout_model_-_boxes_borders_margins_padding"
- 	
- 	^ padding!

Item was removed:
- ----- Method: PluggableWidgetSpec>>padding: (in category 'layout hints') -----
- padding: numberOrPointOrRectangle
- 
- 	padding := numberOrPointOrRectangle.!

Item was removed:
- ----- Method: PluggableWidgetSpec>>verticalResizing (in category 'layout hints') -----
- verticalResizing
- 
- 	^ verticalResizing!

Item was removed:
- ----- Method: PluggableWidgetSpec>>verticalResizing: (in category 'layout hints') -----
- verticalResizing: aSymbol
- 	"#rigid, #spaceFill, #shrinkWrap"
- 
- 	verticalResizing := aSymbol.!

Item was removed:
- PluggableCompositeSpec subclass: #PluggableWindowSpec
- 	instanceVariableNames: 'label extent closeAction multiWindowStyle defaultFocus'
- 	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 removed:
- ----- Method: PluggableWindowSpec>>buildWith: (in category 'building') -----
- buildWith: builder
- 	^builder buildPluggableWindow: self.!

Item was removed:
- ----- Method: PluggableWindowSpec>>closeAction (in category 'accessing') -----
- closeAction
- 	"Answer the receiver's closeAction"
- 	^closeAction!

Item was removed:
- ----- Method: PluggableWindowSpec>>closeAction: (in category 'accessing') -----
- closeAction: aSymbol
- 	"Answer the receiver's closeAction"
- 	closeAction := aSymbol.!

Item was removed:
- ----- Method: PluggableWindowSpec>>defaultFocus (in category 'accessing') -----
- defaultFocus
- 	"The name of the widget that should be initially focused or nil."
- 	^ defaultFocus!

Item was removed:
- ----- Method: PluggableWindowSpec>>defaultFocus: (in category 'accessing') -----
- defaultFocus: anObject
- 	"The name of the widget that should be initially focused or nil."
- 	defaultFocus := anObject!

Item was removed:
- ----- Method: PluggableWindowSpec>>extent (in category 'accessing') -----
- extent
- 	"Answer the window's (initial) extent"
- 	^extent!

Item was removed:
- ----- Method: PluggableWindowSpec>>extent: (in category 'accessing') -----
- extent: aPoint
- 	"Indicate the window's (initial) extent"
- 	extent := aPoint!

Item was removed:
- ----- Method: PluggableWindowSpec>>label (in category 'accessing') -----
- label
- 	"Answer the selector for retrieving the window's label"
- 	^label!

Item was removed:
- ----- Method: PluggableWindowSpec>>label: (in category 'accessing') -----
- label: aString
- 	"Indicate the selector for retrieving the window's label"
- 	label := aString!

Item was removed:
- ----- Method: PluggableWindowSpec>>multiWindowStyle (in category 'accessing') -----
- multiWindowStyle
- 	"Answer the value of multiWindowStyle, a Symbol or nil"
- 	^multiWindowStyle!

Item was removed:
- ----- Method: PluggableWindowSpec>>multiWindowStyle: (in category 'accessing') -----
- multiWindowStyle: aSymbol
- 	"Set the value of multiWindowStyle, one of #labelButton or #tabbed"
- 
- 	multiWindowStyle := aSymbol!

Item was removed:
- Notification subclass: #ProgressInitiationException
- 	instanceVariableNames: 'workBlock maxVal minVal aPoint progressTitle'
- 	classVariableNames: 'PreferredProgressBarPosition'
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !ProgressInitiationException commentStamp: '<historical>' prior: 0!
- I provide a way to alter the behavior of the old-style progress notifier in String. See examples in:
- 
- ProgressInitiationException testWithout.
- ProgressInitiationException testWith.
- !

Item was removed:
- ----- Method: ProgressInitiationException class>>display:at:from:to:during: (in category 'signalling') -----
- display: aString at: aPoint from: minVal to: maxVal during: workBlock 
- 	^ self new
- 		display: aString
- 		at: (aPoint ifNil: [ self preferredProgressBarPoint ])
- 		from: minVal
- 		to: maxVal
- 		during: workBlock!

Item was removed:
- ----- Method: ProgressInitiationException class>>display:from:to:during: (in category 'signalling') -----
- display: aString from: minVal to: maxVal during: workBlock 
- 	^ self
- 		display: aString
- 		at: nil
- 		from: minVal
- 		to: maxVal
- 		during: workBlock!

Item was removed:
- ----- Method: ProgressInitiationException class>>preferredProgressBarPoint (in category 'accessing') -----
- preferredProgressBarPoint
- 	^ self preferredProgressBarPosition = #cursorPoint
- 		ifTrue: [ Sensor cursorPoint ]
- 		ifFalse: [ UIManager default screenBounds perform: self preferredProgressBarPosition ]!

Item was removed:
- ----- Method: ProgressInitiationException class>>preferredProgressBarPosition (in category 'accessing') -----
- preferredProgressBarPosition
- 	^ PreferredProgressBarPosition ifNil: [ #center ]!

Item was removed:
- ----- Method: ProgressInitiationException class>>preferredProgressBarPosition: (in category 'accessing') -----
- preferredProgressBarPosition: aSymbol 
- 	"Specify any of:  #center, #topCenter, #bottomCenter, #leftCenter, #rightCenter, #topLeft, #topRight, #bottomLeft or #bottomRight or #cursorPoint."
- 	^ PreferredProgressBarPosition!

Item was removed:
- ----- Method: ProgressInitiationException class>>testInnermost (in category 'examples and tests') -----
- testInnermost
- 
- 	"test the progress code WITHOUT special handling"
- 
- 	^'Now here''s some Real Progress'
- 		displayProgressFrom: 0 
- 		to: 10
- 		during: [ :bar |
- 			1 to: 10 do: [ :x | 
- 				bar value: x. (Delay forMilliseconds: 500) wait.
- 				x = 5 ifTrue: [1/0].	"just to make life interesting"
- 			].
- 			'done'
- 		].
- 
- !

Item was removed:
- ----- Method: ProgressInitiationException class>>testWith (in category 'examples and tests') -----
- testWith
- 
- 	"test progress code WITH special handling of progress notifications"
- 
- 	^[ self testWithAdditionalInfo ] 
- 		on: ProgressInitiationException
- 		do: [ :ex | 
- 			ex sendNotificationsTo: [ :min :max :curr |
- 				Transcript show: min printString,'  ',max printString,'  ',curr printString; cr
- 			].
- 		].
- !

Item was removed:
- ----- Method: ProgressInitiationException class>>testWithAdditionalInfo (in category 'examples and tests') -----
- testWithAdditionalInfo
- 
- 	^{'starting'. self testWithout. 'really!!'}!

Item was removed:
- ----- Method: ProgressInitiationException class>>testWithout (in category 'examples and tests') -----
- testWithout
- 
- 	"test the progress code WITHOUT special handling"
- 
- 	^[self testInnermost]
- 		on: ZeroDivide
- 		do: [ :ex | ex resume]
- 
- !

Item was removed:
- ----- Method: ProgressInitiationException>>defaultAction (in category 'handling') -----
- defaultAction
- 	self resume!

Item was removed:
- ----- Method: ProgressInitiationException>>defaultResumeValue (in category 'handling') -----
- defaultResumeValue
- 	^ UIManager default
- 		displayProgress: progressTitle
- 		at: aPoint
- 		from: minVal
- 		to: maxVal
- 		during: workBlock!

Item was removed:
- ----- Method: ProgressInitiationException>>display:at:from:to:during: (in category 'initialize-release') -----
- display: argString at: argPoint from: argMinVal to: argMaxVal during: argWorkBlock
- 
- 	progressTitle := argString.
- 	aPoint := argPoint.
- 	minVal := argMinVal.
- 	maxVal := argMaxVal.
- 	workBlock := argWorkBlock.
- 	^self signal!

Item was removed:
- ----- Method: ProgressInitiationException>>resumeSuppressingProgress (in category 'handling') -----
- resumeSuppressingProgress
- 	"Catch and suppress every ProgressInitiationException and ProgressNotification
- 	during the evaluation of workBlock"
- 
- 	^self resumeEvaluating:
- 		[self rearmHandlerDuring:
- 			[[workBlock value: [ :barVal | "do nothing"]]
- 				on: ProgressNotification do: [:e | e resume]]]!

Item was removed:
- ----- Method: ProgressInitiationException>>sendNotificationsTo: (in category 'handling') -----
- sendNotificationsTo: aNewBlock
- 	"Resume execution using aNewBlock as workBlock value.
- 	Note that the execution is resumed in signalContext (or outerContext).
- 	This is done so that inner exception handlers be active during workBlock execution.
- 	However, our own handlerContext should be deactivated, unless explicitely rearmed."
- 	| mustDeactivateHandler |
- 	mustDeactivateHandler := handlerContext notNil and: [handlerContext isHandlerActive not].
- 	mustDeactivateHandler
- 		ifTrue:
- 			["The handlerContext is de-activated during handleSignal:
- 			But it will be reactivated during unwinding when we will resumeEvaluating:
- 			That's unwanted, we don't generally want to rearm the handler during workBlock evaluation.
- 			Hence we have to deactivate it again inside the deferred block."
- 			self resumeEvaluating:
- 				[handlerContext deactivateHandler.
- 				[workBlock value: [ :barVal |
- 					aNewBlock value: minVal value: maxVal value: barVal]]
- 						ensure: [handlerContext reactivateHandler]]]
- 		ifFalse:
- 			["If the handler is active at this step, then it must have been rearmed
- 			with a #rearmHandlerDuring:
- 			It's thus intentional to keep the handler active during workBlock evaluation
- 			But the ensure: [self disarmHandler] will be evaluated during unwinding when we will resumeEvaluating:
- 			It is thus necessary to rearm again inside the evaluated block"
- 			self resumeEvaluating:
- 				[self rearmHandlerDuring:
- 					[workBlock value: [ :barVal |
- 						aNewBlock value: minVal value: maxVal value: barVal]]]]!

Item was removed:
- ----- Method: String>>displayProgressAt:from:to:during: (in category '*toolbuilder-kernel') -----
- displayProgressAt: aPoint from: minVal to: maxVal during: workBlock 
- 	"Display this string as a caption over a progress bar while workBlock is evaluated.
- 
- EXAMPLE (Select next 6 lines and Do It)
- 'Now here''s some Real Progress'
- 	displayProgressAt: Sensor cursorPoint
- 	from: 0 to: 10
- 	during: [:bar |
- 	1 to: 10 do: [:x | bar value: x.
- 			(Delay forMilliseconds: 500) wait]].
- 
- HOW IT WORKS (Try this in any other language :-)
- Since your code (the last 2 lines in the above example) is in a block,
- this method gets control to display its heading before, and clean up 
- the screen after, its execution.
- The key, though, is that the block is supplied with an argument,
- named 'bar' in the example, which will update the bar image every 
- it is sent the message value: x, where x is in the from:to: range.
- "
- 	^ProgressInitiationException 
- 		display: self
- 		at: aPoint 
- 		from: minVal 
- 		to: maxVal 
- 		during: workBlock!

Item was removed:
- ----- Method: String>>displayProgressFrom:to:during: (in category '*toolbuilder-kernel') -----
- displayProgressFrom: minVal to: maxVal during: workBlock 
- 	"Display this string as a caption over a progress bar while workBlock is evaluated.
- 
- EXAMPLE (Select next 6 lines and Do It)
- 'Now here''s some Real Progress'
- 	displayProgressFrom: 0 to: 10
- 	during: [:bar |
- 	1 to: 10 do: [:x | bar value: x.
- 			(Delay forMilliseconds: 500) wait]]."
- 	^ self
- 		displayProgressAt: nil
- 		from: minVal
- 		to: maxVal
- 		during: workBlock!

Item was removed:
- ----- Method: String>>displaySequentialProgress: (in category '*toolbuilder-kernel') -----
- displaySequentialProgress: aBlock 
- 	"
- 	'This takes some time...' displaySequentialProgress: [
- 		(Delay forMilliseconds: 500) wait.
- 		ProgressNotification signal: 0.1 extra: 'just starting'.
- 		(Delay forMilliseconds: 500) wait.
- 		ProgressNotification signal: 0.5.
- 		(Delay forMilliseconds: 500) wait.
- 		ProgressNotification signal: '1.0' extra: 'done'.
- 		(Delay forMilliseconds: 500) wait.
- 	]
- 	"
- 	ProgressInitiationException
- 		display: self
- 		from: 0 to: 1
- 		during: [:bar | aBlock
- 				on: ProgressNotification
- 				do: [:e | 
- 					bar value: e messageText asNumber.
- 					e extraParam: self, (e extraParam ifNil: ['']).
- 					e pass]].
- !

Item was removed:
- ----- Method: String>>edit (in category '*toolbuilder-kernel') -----
- edit
- 
- 	UIManager default edit: self.!

Item was removed:
- ----- Method: String>>editWithLabel: (in category '*toolbuilder-kernel') -----
- editWithLabel: label
- 
- 	UIManager default edit: self label: label!

Item was removed:
- ----- Method: Text>>edit (in category '*ToolBuilder-Kernel') -----
- edit
- 
- 	UIManager default edit: self.!

Item was removed:
- ----- Method: Text>>editWithLabel: (in category '*ToolBuilder-Kernel') -----
- editWithLabel: label
- 
- 	UIManager default edit: self label: label!

Item was removed:
- Object subclass: #ToolBuilder
- 	instanceVariableNames: 'parent'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !ToolBuilder commentStamp: '<historical>' prior: 0!
- I am a tool builder, that is an object which knows how to create concrete widgets from abstract specifications. Those specifications are used by tools which want to be able to function in diverse user interface paradigms, such as MVC, Morphic, Tweak, wxWidgets etc.
- 
- The following five specs must be supported by all implementations:
- 	* PluggableButton
- 	* PluggableList
- 	* PluggableText
- 	* PluggablePanel
- 	* PluggableWindow
- 
- The following specs are optional:
- 	* PluggableTree: If not supported, the tool builder must answer nil when asked for a pluggableTreeSpec. Substitution will require client support so clients must be aware that some tool builders may not support trees (MVC for example, or Seaside). See examples in FileListPlus or TestRunnerPlus.
- 	* PluggableMultiSelectionList: If multi-selection lists are not supported, tool builder will silently support regular single selection lists.
- 	* PluggableInputField: Intended as a HINT for the builder that this widget will be used as a single line input field. Unless explicitly supported it will be automatically substituted by PluggableText.
- 	* PluggableActionButton: Intended as a HINT for the builder that this widget will be used as push (action) button. Unless explicitly supported it will be automatically substituted by PluggableButton.
- 	* PluggableRadioButton: Intended as a HINT for the builder that this widget will be used as radio button. Unless explicitly supported it will be automatically substituted by PluggableButton.
- 	* PluggableCheckBox: Intended as a HINT for the builder that this widget will be used as check box. Unless explicitly supported it will be automatically substituted by PluggableButton.
- !

Item was removed:
- ----- Method: ToolBuilder class>>build: (in category 'instance creation') -----
- build: aClass
- 	^self default build: aClass!

Item was removed:
- ----- Method: ToolBuilder class>>default (in category 'accessing') -----
- default
- 	"Answer the default tool builder"
- 	^ Project uiManager toolBuilder
- !

Item was removed:
- ----- Method: ToolBuilder class>>findDefault (in category 'accessing') -----
- findDefault
- 	"Answer a default tool builder"
- 	| builderClass |
- 	"Note: The way the following is phrased ensures that you can always make 'more specific' builders merely by subclassing a tool builder and implementing a more specific way of reacting to #isActiveBuilder. For example, a BobsUIToolBuilder can subclass MorphicToolBuilder and (if enabled, say Preferences useBobsUITools) will be considered before the parent (generic MorphicToolBuilder)."
- 	builderClass := self allSubclasses 
- 		detect:[:any| any isActiveBuilder and:[
- 			any subclasses noneSatisfy:[:sub| sub isActiveBuilder]]] ifNone:[nil].
- 	builderClass ifNotNil: [^builderClass ].
- 	^self error: 'ToolBuilder not found'!

Item was removed:
- ----- Method: ToolBuilder class>>getBoundsForWindow: (in category 'services') -----
- getBoundsForWindow: window
- 	"Return the bounds for the given window."
- 
- 	self subclassResponsibility.!

Item was removed:
- ----- Method: ToolBuilder class>>isActiveBuilder (in category 'accessing') -----
- isActiveBuilder
- 	"Answer whether I am the currently active builder"
- 	^false!

Item was removed:
- ----- Method: ToolBuilder class>>open: (in category 'instance creation') -----
- open: aClass
- 	^self default open: aClass!

Item was removed:
- ----- Method: ToolBuilder class>>open:label: (in category 'instance creation') -----
- open: aClass label: aString
- 	^self default open: aClass label: aString!

Item was removed:
- ----- Method: ToolBuilder class>>setBoundsForWindow:to: (in category 'services') -----
- setBoundsForWindow: window to: rectangle
- 	"Set the bounds for the given window."
- 
- 	self subclassResponsibility.!

Item was removed:
- ----- Method: ToolBuilder>>build: (in category 'building') -----
- build: anObject
- 	"Build the given object using this tool builder"
- 	^anObject buildWith: self!

Item was removed:
- ----- Method: ToolBuilder>>buildAll:in: (in category 'building') -----
- buildAll: aList in: newParent
- 	"Build the given set of widgets in the new parent"
- 	| prior |
- 	aList ifNil:[^self].
- 	prior := parent.
- 	parent := newParent.
- 	aList do:[:each| each buildWith: self].
- 	parent := prior.
- !

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableActionButton: (in category 'widgets optional') -----
- buildPluggableActionButton: spec
- 	^self buildPluggableButton: spec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'widgets optional') -----
- buildPluggableAlternateMultiSelectionList: aSpec
- 	
- 	^ self buildPluggableList: aSpec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableButton: (in category 'widgets required') -----
- buildPluggableButton: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableCheckBox: (in category 'widgets optional') -----
- buildPluggableCheckBox: spec
- 	^self buildPluggableButton: spec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableCodePane: (in category 'widgets optional') -----
- buildPluggableCodePane: aSpec
- 	^self buildPluggableText: aSpec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableDialog: (in category 'widgets optional') -----
- buildPluggableDialog: spec
- 
- 	| windowSpec |
- 	windowSpec := self pluggableWindowSpec new.
- 	windowSpec children: (spec children ifNil: [OrderedCollection new]).
- 	
- 	"TODO: Convert the dialog's message into some element in the children."
- 		
- 	spec buttons ifNotNil: [:buttons | windowSpec children addAll: buttons].
- 	windowSpec
- 		model: spec model;
- 		extent: spec extent;
- 		label: spec title.
- 	^ self buildPluggableWindow: windowSpec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableDropDownList: (in category 'widgets optional') -----
- buildPluggableDropDownList: spec
- 	^self buildPluggableList: spec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableInputField: (in category 'widgets optional') -----
- buildPluggableInputField: aSpec
- 	^self buildPluggableText: aSpec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableList: (in category 'widgets required') -----
- buildPluggableList: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableMenu: (in category 'widgets required') -----
- buildPluggableMenu: menuSpec 
- 
- 	self subclassResponsibility.!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableMenuItem: (in category 'widgets required') -----
- buildPluggableMenuItem: menuSpec 
- 
- 	self subclassResponsibility.!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') -----
- buildPluggableMultiColumnList: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableMultiSelectionList: (in category 'widgets optional') -----
- buildPluggableMultiSelectionList: aSpec
- 	^self buildPluggableList: aSpec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggablePanel: (in category 'widgets required') -----
- buildPluggablePanel: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableRadioButton: (in category 'widgets optional') -----
- buildPluggableRadioButton: spec
- 	^self buildPluggableButton: spec!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableScrollPane: (in category 'widgets optional') -----
- buildPluggableScrollPane: spec
- 
- 	^ spec children
- 		ifNotNil: [self buildPluggablePanel: spec]
- 		ifNil: [spec morph ifNil: [spec morphClass new]]!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableSpacer: (in category 'widgets required') -----
- buildPluggableSpacer: aSpec
- 
- 	^ self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableText: (in category 'widgets required') -----
- buildPluggableText: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableTree: (in category 'widgets required') -----
- buildPluggableTree: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buildPluggableWindow: (in category 'widgets required') -----
- buildPluggableWindow: aSpec
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>buttonRowHeight (in category 'layout hints') -----
- buttonRowHeight
- 	"Answers the height in pixels a button rowtypically needs serve buttons of clickable size."
- 	
- 	^ (Preferences standardButtonFont height * 2.5) truncated!

Item was removed:
- ----- Method: ToolBuilder>>close: (in category 'opening') -----
- close: aWidget
- 	"Close a previously opened widget"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>dialogPadding (in category 'layout hints') -----
- dialogPadding
- 
- 	^ (4 "px" * RealEstateAgent scaleFactor) truncated!

Item was removed:
- ----- Method: ToolBuilder>>dialogSpacing (in category 'layout hints') -----
- dialogSpacing
- 
- 	^ (4 "px" * RealEstateAgent scaleFactor) truncated!

Item was removed:
- ----- Method: ToolBuilder>>helpFieldHeight (in category 'layout hints') -----
- helpFieldHeight
- 	
- 	^ self helpFieldHeightFor: 1!

Item was removed:
- ----- Method: ToolBuilder>>helpFieldHeightFor: (in category 'layout hints') -----
- helpFieldHeightFor: numLines
- 	"Answers the height in pixels a help field typically needs to be drawn without clipping using a ProportionalLayout and LayoutFrame."
- 	
- 	^ (Preferences standardBalloonHelpFont lineGrid * 3/2) truncated * numLines!

Item was removed:
- ----- Method: ToolBuilder>>initialize (in category 'initialize') -----
- initialize
- !

Item was removed:
- ----- Method: ToolBuilder>>inputFieldHeight (in category 'layout hints') -----
- inputFieldHeight
- 	
- 	^ self inputFieldHeightFor: 1!

Item was removed:
- ----- Method: ToolBuilder>>inputFieldHeightFor: (in category 'layout hints') -----
- inputFieldHeightFor: numLines
- 	"Answers the height in pixels an input field typically needs to be drawn without clipping using a ProportionalLayout and LayoutFrame."
- 	
- 	^ (TextStyle defaultFont lineGrid * 3/2) truncated * numLines!

Item was removed:
- ----- Method: ToolBuilder>>listHeight (in category 'layout hints') -----
- listHeight
- 	
- 	^ self listHeightFor: 1!

Item was removed:
- ----- Method: ToolBuilder>>listHeightFor: (in category 'layout hints') -----
- listHeightFor: numItems
- 	"Answers the height in pixels a list typically needs to be drawn without clipping using a ProportionalLayout and LayoutFrame."
- 	
- 	^ Preferences standardListFont lineGridForMorphs * numItems!

Item was removed:
- ----- Method: ToolBuilder>>open: (in category 'opening') -----
- open: anObject
- 	"Build and open the object. Answer the widget opened."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>open:label: (in category 'opening') -----
- open: anObject label: aString
- 	"Build an open the object, labeling it appropriately.  Answer the widget opened."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>openDebugger: (in category 'opening') -----
- openDebugger: aSpec
- 	"Build and open a debugger from the given spec.
- 	Answer the widget opened. Subclasses can override this
- 	method if opening a debugger has specific requirements
- 	different from opening other widgets."
-  
- 	^ self open: aSpec
- !

Item was removed:
- ----- Method: ToolBuilder>>openDebugger:label: (in category 'opening') -----
- openDebugger: aSpec label: aString
- 	"Build and open a debugger from the given spec, labeling it appropriately.
- 	Answer the widget opened. Subclasses can override this
- 	method if opening a debugger has specific requirements
- 	different from opening other widgets."
-  
- 	^self open: aSpec label: aString
- !

Item was removed:
- ----- Method: ToolBuilder>>openDebugger:label:closing: (in category 'opening') -----
- openDebugger: aSpec label: aString closing: topView
- 	"Build and open a debugger from the given spec, labeling it appropriately.
- 	Answer the widget opened. Subclasses can override this
- 	method if opening a debugger has specific requirements
- 	different from opening other widgets."
-  
- 	self close: topView.
- 	^ self open: aSpec label: aString
- !

Item was removed:
- ----- Method: ToolBuilder>>panelPadding (in category 'layout hints') -----
- panelPadding
- 
- 	^ 0!

Item was removed:
- ----- Method: ToolBuilder>>panelSpacing (in category 'layout hints') -----
- panelSpacing
- 
- 	^ (2 "px" * RealEstateAgent scaleFactor) truncated!

Item was removed:
- ----- Method: ToolBuilder>>parent (in category 'accessing') -----
- parent
- 	^parent!

Item was removed:
- ----- Method: ToolBuilder>>parent: (in category 'accessing') -----
- parent: aWidget
- 	parent := aWidget!

Item was removed:
- ----- Method: ToolBuilder>>pluggableActionButtonSpec (in category 'defaults') -----
- pluggableActionButtonSpec
- 	^PluggableActionButtonSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableAlternateMultiSelectionListSpec (in category 'defaults') -----
- pluggableAlternateMultiSelectionListSpec
- 	^ PluggableAlternateMultiSelectionListSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableButtonSpec (in category 'defaults') -----
- pluggableButtonSpec
- 	^PluggableButtonSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableCheckBoxSpec (in category 'defaults') -----
- pluggableCheckBoxSpec
- 	^PluggableCheckBoxSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableCodePaneSpec (in category 'defaults') -----
- pluggableCodePaneSpec
- 	^PluggableCodePaneSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableDialogSpec (in category 'defaults') -----
- pluggableDialogSpec
- 	^PluggableDialogSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableDropDownListSpec (in category 'defaults') -----
- pluggableDropDownListSpec
- 	^PluggableDropDownListSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableInputFieldSpec (in category 'defaults') -----
- pluggableInputFieldSpec
- 	^PluggableInputFieldSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableListSpec (in category 'defaults') -----
- pluggableListSpec
- 	^PluggableListSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableMenuSpec (in category 'defaults') -----
- pluggableMenuSpec
- 	^ PluggableMenuSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableMultiColumnListSpec (in category 'defaults') -----
- pluggableMultiColumnListSpec
- 	^PluggableMultiColumnListSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableMultiSelectionListSpec (in category 'defaults') -----
- pluggableMultiSelectionListSpec
- 	^PluggableMultiSelectionListSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggablePanelSpec (in category 'defaults') -----
- pluggablePanelSpec
- 	^PluggablePanelSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableRadioButtonSpec (in category 'defaults') -----
- pluggableRadioButtonSpec
- 	^PluggableRadioButtonSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableScrollPaneSpec (in category 'defaults') -----
- pluggableScrollPaneSpec
- 	^ PluggableScrollPaneSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableSpacerSpec (in category 'defaults') -----
- pluggableSpacerSpec
- 	^ PluggableSpacerSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableTextSpec (in category 'defaults') -----
- pluggableTextSpec
- 	^PluggableTextSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableTreeSpec (in category 'defaults') -----
- pluggableTreeSpec
- 	^PluggableTreeSpec!

Item was removed:
- ----- Method: ToolBuilder>>pluggableWindowSpec (in category 'defaults') -----
- pluggableWindowSpec
- 	^PluggableWindowSpec!

Item was removed:
- ----- Method: ToolBuilder>>runModal: (in category 'opening') -----
- runModal: aWidget
- 	"Run the (previously opened) widget modally, e.g., 
- 	do not return control to the sender before the user has responded."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: ToolBuilder>>widgetAt: (in category 'accessing') -----
- widgetAt: widgetID
- 	"Answer the widget with the given ID"
- 	^self widgetAt: widgetID ifAbsent:[nil]!

Item was removed:
- ----- Method: ToolBuilder>>widgetAt:ifAbsent: (in category 'accessing') -----
- widgetAt: widgetID ifAbsent: aBlock
- 	"Answer the widget with the given ID"
- 	^aBlock value!

Item was removed:
- ----- Method: ToolBuilder>>windowPadding (in category 'layout hints') -----
- windowPadding
- 
- 	^ (4 "px" * RealEstateAgent scaleFactor) truncated!

Item was removed:
- ----- Method: ToolBuilder>>windowSpacing (in category 'layout hints') -----
- windowSpacing
- 
- 	^ (4 "px" * RealEstateAgent scaleFactor) truncated!

Item was removed:
- Object subclass: #ToolBuilderSpec
- 	instanceVariableNames: 'name help'
- 	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 removed:
- ----- Method: ToolBuilderSpec>>buildWith: (in category 'building') -----
- buildWith: aBuilder
- 	^self subclassResponsibility!

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

Item was removed:
- ----- Method: ToolBuilderSpec>>help: (in category 'accessing') -----
- help: aSymbolOrStringOrText
- 	"Indicate the message to retrieve the help texts of this element. You can directly configure a static instance of String or Text as help."
- 	
- 	help := aSymbolOrStringOrText!

Item was removed:
- ----- Method: ToolBuilderSpec>>name (in category 'accessing') -----
- name
- 	^ name!

Item was removed:
- ----- Method: ToolBuilderSpec>>name: (in category 'accessing') -----
- name: anObject
- 	name := anObject!

Item was removed:
- Object subclass: #UIManager
- 	instanceVariableNames: 'builderClass'
- 	classVariableNames: 'OpenToolsAttachedToMouseCursor'
- 	poolDictionaries: ''
- 	category: 'ToolBuilder-Kernel'!
- 
- !UIManager commentStamp: 'dtl 5/2/2010 16:06' prior: 0!
- UIManager is a dispatcher for various user interface requests, such as menu and dialog interactions. An instance of UIManager is associated with each Project to implement the appropriate functions for Morphic, MVC or other user interfaces.!

Item was removed:
- ----- Method: UIManager class>>default (in category 'class initialization') -----
- default
- 	^ Project uiManager!

Item was removed:
- ----- Method: UIManager class>>getDefault (in category 'class initialization') -----
- getDefault
- 	"Ensure that a more specific manager can always be made by subclassing
- 	a tool builder and implementing a more specific way of reacting to
- 	#isActiveManager. For example, a BobsUIManager can subclass
- 	MorphicUIManager and (if enabled, say Preferences useBobsUI) will
- 	be considered before the parent (generic MorphicUIManager)."
- 
- 	^ (self allSubclasses
- 		detect: [:any | any isActiveManager
- 				and: [any subclasses
- 						noneSatisfy: [:sub | sub isActiveManager]]]
- 		ifNone: [])
- 		ifNotNil: [:mgrClass | mgrClass new]!

Item was removed:
- ----- Method: UIManager class>>isActiveManager (in category 'class initialization') -----
- isActiveManager
- 	"Answer whether I should act as the active ui manager"
- 	^false!

Item was removed:
- ----- Method: UIManager class>>openToolsAttachedToMouseCursor (in category 'preferences') -----
- openToolsAttachedToMouseCursor
- 
- 	<preference: 'Open Tools Attached to Mouse Cursor'
- 		categoryList: #(Tools mouse)
- 		description: 'If enabled, new tool windows will be attached to the mouse cursor to be positioned on screen with an additional click-drag. Only occurs if a mouse event triggered that tool opening to not interfere with keyboard-based interaction.'
- 		type: #Boolean>
- 	^ OpenToolsAttachedToMouseCursor ifNil: [false]!

Item was removed:
- ----- Method: UIManager class>>openToolsAttachedToMouseCursor: (in category 'preferences') -----
- openToolsAttachedToMouseCursor: aBoolean
- 
- 	OpenToolsAttachedToMouseCursor := aBoolean.!

Item was removed:
- ----- Method: UIManager>>askForProvidedAnswerTo:ifSupplied: (in category 'utilities') -----
- askForProvidedAnswerTo: queryString ifSupplied: supplyBlock
- 
- 	^ (ProvideAnswerNotification signal: queryString asString) ifNotNil: supplyBlock!

Item was removed:
- ----- Method: UIManager>>builderClass (in category 'builder') -----
- builderClass
- 	"Answer the kind of tool builder to use, possibly influenced by project preferences"
- 	^ builderClass ifNil: [ builderClass := ToolBuilder findDefault ]!

Item was removed:
- ----- Method: UIManager>>builderClass: (in category 'accessing') -----
- builderClass: aClass
- 	builderClass := aClass!

Item was removed:
- ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests - code') -----
- chooseClassOrTrait
- 	"Let the user choose a Class or Trait"
- 	
- 	^self chooseClassOrTraitFrom: Smalltalk globals!

Item was removed:
- ----- Method: UIManager>>chooseClassOrTrait: (in category 'ui requests - code') -----
- chooseClassOrTrait: label
- 	"Let the user choose a Class or Trait"
- 	
- 	^self chooseClassOrTrait: label from: Smalltalk environment!

Item was removed:
- ----- Method: UIManager>>chooseClassOrTrait:from: (in category 'ui requests - code') -----
- 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 removed:
- ----- Method: UIManager>>chooseClassOrTrait:from:withRecentList: (in category 'ui requests - code') -----
- chooseClassOrTrait: label from: environment withRecentList: ignored
- 	"Let the user choose a Class or Trait."
- 	
- 	| pattern |
- 	pattern := self request: label.
- 	^ self classOrTraitFrom: environment pattern: pattern label: label
- 	!

Item was removed:
- ----- Method: UIManager>>chooseClassOrTraitFrom: (in category 'ui requests - code') -----
- chooseClassOrTraitFrom: anEnvironment
- 	"Let the user choose a Class or Trait from the given environment"
- 	
- 	^self chooseClassOrTrait: 'Class name or fragment?' from: anEnvironment withRecentList: nil!

Item was removed:
- ----- Method: UIManager>>chooseClassOrTraitFrom:withRecentList: (in category 'ui requests - code') -----
- chooseClassOrTraitFrom: anEnvironment withRecentList: recentList
- 	"Let the user choose a Class or Trait from the given environment"
- 	
- 	^self chooseClassOrTrait: 'Class name or fragment?' from: anEnvironment withRecentList: recentList!

Item was removed:
- ----- Method: UIManager>>chooseDirectory (in category 'ui requests - files') -----
- chooseDirectory
- 	"Let the user choose a directory. Returns a proper directory."
- 	^self chooseDirectoryFrom: FileDirectory default!

Item was removed:
- ----- Method: UIManager>>chooseDirectory: (in category 'ui requests - files') -----
- chooseDirectory: label
- 	"Let the user choose a directory. Returns a proper directory."
- 	^self chooseDirectory: label from: FileDirectory default!

Item was removed:
- ----- Method: UIManager>>chooseDirectory:from: (in category 'ui requests - files') -----
- chooseDirectory: label from: dir
- 	"Let the user choose a directory. Returns a proper directory."
- 	"UIManager default chooseDirectory: 'Choose one' from: FileDirectory default"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseDirectoryFrom: (in category 'ui requests - files') -----
- chooseDirectoryFrom: dir
- 	"Let the user choose a directory. Returns a proper directory."
- 	^self chooseDirectory: nil from: dir!

Item was removed:
- ----- Method: UIManager>>chooseFileMatching: (in category 'ui requests - files') -----
- chooseFileMatching: patterns
- 	"Let the user choose a file matching the given patterns. Returns a file name."
- 	^self chooseFileMatching: patterns label: nil!

Item was removed:
- ----- Method: UIManager>>chooseFileMatching:label: (in category 'ui requests - files') -----
- chooseFileMatching: patterns label: labelString
- 	"Let the user choose a file matching the given patterns. Returns a file name."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseFileMatchingSuffixes: (in category 'ui requests - files') -----
- chooseFileMatchingSuffixes: suffixList
- 	"Let the user choose a file matching the given suffixes. Returns a file name."
- 	^self chooseFileMatchingSuffixes: suffixList label: nil!

Item was removed:
- ----- Method: UIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests - files') -----
- chooseFileMatchingSuffixes: suffixList label: labelString
- 	"Let the user choose a file matching the given suffixes. Returns a file name."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests - text') -----
- chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector
- 	"Open a font-chooser for the given model"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseFrom: (in category 'ui requests') -----
- chooseFrom: aList
- 	"Choose an item from the given list. Answer the index of the selected item."
- 	^self chooseFrom: aList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseFrom:lines: (in category 'ui requests') -----
- chooseFrom: aList lines: linesArray
- 	"Choose an item from the given list. Answer the index of the selected item."
- 	^self chooseFrom: aList lines: linesArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseFrom:lines:title: (in category 'ui requests') -----
- chooseFrom: aList lines: linesArray title: aString
- 	"Choose an item from the given list. Answer the index of the selected item."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseFrom:title: (in category 'ui requests') -----
- chooseFrom: aList title: aString
- 	"Choose an item from the given list. Answer the index of the selected item."
- 	^self chooseFrom: aList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseFrom:values: (in category 'ui requests') -----
- chooseFrom: labelList values: valueList
- 	"Choose an item from the given list. Answer the selected item."
- 	^self chooseFrom: labelList values: valueList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseFrom:values:lines: (in category 'ui requests') -----
- chooseFrom: labelList values: valueList lines: linesArray
- 	"Choose an item from the given list. Answer the selected item."
- 	^self chooseFrom: labelList values: valueList lines: linesArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseFrom:values:lines:title: (in category 'ui requests') -----
- chooseFrom: labelList values: valueList lines: linesArray title: aString
- 	"Choose an item from the given list. Answer the selected item."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>chooseFrom:values:title: (in category 'ui requests') -----
- chooseFrom: labelList values: valueList title: aString
- 	"Choose an item from the given list. Answer the selected item."
- 	^self chooseFrom: labelList values: valueList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseFromLabeledValues: (in category 'ui requests') -----
- chooseFromLabeledValues: aDictionary
- 	"Choose a key from the given dictionary. Answer the corresponding value."
- 	^self chooseFromLabeledValues: aDictionary title: ''!

Item was removed:
- ----- Method: UIManager>>chooseFromLabeledValues:title: (in category 'ui requests') -----
- chooseFromLabeledValues: aDictionary title: aString
- 	"Choose a key from the given dictionary. Answer the corresponding value."
- 	^self chooseFrom: aDictionary keys values: aDictionary values title: aString!

Item was removed:
- ----- Method: UIManager>>chooseFromOrAddTo:lines:title: (in category 'ui requests') -----
- chooseFromOrAddTo: aList lines: linesArray title: aString
- 
- 	| index |
- 	index := self
- 		chooseFrom: {'new...'}, aList
- 		lines: linesArray + 1
- 		title: aString.
- 	index = 0 ifTrue: [^ nil].
- 	index = 1 ifTrue:
- 		[^ self request: 'Please type new value' initialAnswer: ''].
- 	^ aList at: index - 1!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom: (in category 'ui requests') -----
- chooseMultipleFrom: aList
- 	"Choose one or more items from the given list. Answer the indices of the selected items."
- 	
- 	^ self chooseMultipleFrom: aList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:lines: (in category 'ui requests') -----
- chooseMultipleFrom: aList lines: linesArray
- 	"Choose one or more items from the given list. Answer the indices of the selected items."
- 	
- 	^ self chooseMultipleFrom: aList lines: linesArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:lines:title: (in category 'ui requests') -----
- chooseMultipleFrom: aList lines: linesArray title: aString
- 	"Choose one or more items from the given list. Answer the indices of the selected items."
- 	
- 	^ (self chooseFrom: aList lines: linesArray title: aString) in: [:result |
- 		result = 0 ifTrue: [#()] ifFalse: [{result}]]!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:title: (in category 'ui requests') -----
- chooseMultipleFrom: aList title: aString
- 	"Choose one or more items from the given list. Answer the indices of the selected items."
- 	
- 	^self chooseMultipleFrom: aList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:values: (in category 'ui requests') -----
- chooseMultipleFrom: labelList values: valueList
- 	"Choose one or more items from the given list. Answer the selected items."
- 	
- 	^ self chooseMultipleFrom: labelList values: valueList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:values:lines: (in category 'ui requests') -----
- chooseMultipleFrom: labelList values: valueList lines: linesArray
- 	"Choose one or more items from the given list. Answer the selected items."
- 	
- 	^ self chooseMultipleFrom: labelList values: valueList lines: linesArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:values:lines:title: (in category 'ui requests') -----
- chooseMultipleFrom: labelList values: valueList lines: linesArray title: aString
- 	"Choose one or more items from the given list. Answer the selected items."
- 
- 	^ (self chooseFrom: labelList values: valueList lines: linesArray title: aString)
- 		ifNil: [#()]
- 		ifNotNil: [:resultValue | {resultValue}]!

Item was removed:
- ----- Method: UIManager>>chooseMultipleFrom:values:title: (in category 'ui requests') -----
- chooseMultipleFrom: labelList values: valueList title: aString
- 	"Choose one or more items from the given list. Answer the selected items."
- 	
- 	^ self chooseMultipleFrom: labelList values: valueList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom: (in category 'ui requests') -----
- chooseOptionFrom: aList
- 	"Choose an option from the given list. Answer the index of the selected item."
- 	^self chooseOptionFrom: aList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:lines: (in category 'ui requests') -----
- chooseOptionFrom: aList lines: anArray
- 	"Choose an option from the given list. Answer the index of the selected item."
- 
- 	^self chooseOptionFrom: aList lines: anArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:lines:title: (in category 'ui requests') -----
- chooseOptionFrom: aList lines: linesArray title: aString
- 	"Choose an option from the given list. Answer the index of the selected item."
- 
- 	^ self chooseFrom: aList lines: linesArray title: aString!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:title: (in category 'ui requests') -----
- chooseOptionFrom: aList title: aString
- 	"Choose an option from the given list. Answer the index of the selected item."
- 
- 	^self chooseOptionFrom: aList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:values: (in category 'ui requests') -----
- chooseOptionFrom: labelList values: valueList
- 	"Choose an option from the given list. Answer the selected option from the valueList."
- 	^self chooseOptionFrom: labelList values: valueList lines: #()!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:values:lines: (in category 'ui requests') -----
- chooseOptionFrom: labelList values: valueList lines: linesArray
- 	"Choose an option from the given list. Answer the selected option from the valueList."
- 	^self chooseOptionFrom: labelList values: valueList lines: linesArray title: ''!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:values:lines:title: (in category 'ui requests') -----
- chooseOptionFrom: labelList values: valueList lines: linesArray title: aString
- 	"Choose an option from the given list. Answer the selected option from the valueList."
- 	^ self chooseFrom: labelList values: valueList lines: linesArray title: aString!

Item was removed:
- ----- Method: UIManager>>chooseOptionFrom:values:title: (in category 'ui requests') -----
- chooseOptionFrom: labelList values: valueList title: aString
- 	"Choose an option from the given list. Answer the selected option from the valueList."
- 	^self chooseOptionFrom: labelList values: valueList lines: #() title: aString!

Item was removed:
- ----- Method: UIManager>>chooseOptionFromLabeledValues: (in category 'ui requests') -----
- chooseOptionFromLabeledValues: aDictionary
- 	"Choose a key from the given dictionary. Answer the corresponding value."
- 	^self chooseOptionFromLabeledValues: aDictionary title: ''!

Item was removed:
- ----- Method: UIManager>>chooseOptionFromLabeledValues:title: (in category 'ui requests') -----
- chooseOptionFromLabeledValues: aDictionary title: aString
- 	"Choose a key from the given dictionary. Answer the corresponding value."
- 	^self chooseOptionFrom: aDictionary keys values: aDictionary values title: aString!

Item was removed:
- ----- Method: UIManager>>classFromPattern:withCaption: (in category 'system introspecting') -----
- classFromPattern: pattern withCaption: aCaption
- 	^self classFromPattern: pattern withCaption: aCaption in: Smalltalk environment
- "
- 	self classFromPattern: 'CharRecog' withCaption: ''
- 	self classFromPattern: 'rRecog' withCaption: ''
- 	self classFromPattern: 'znak' withCaption: ''
- 	self classFromPattern: 'orph' withCaption: ''
- 	self classFromPattern: 'TCompil' withCaption: ''
- "
- !

Item was removed:
- ----- Method: UIManager>>classFromPattern:withCaption:in: (in category 'system introspecting') -----
- classFromPattern: pattern withCaption: aCaption in: anEnvironment
- 	"If there is a class or trait whose name exactly given by pattern, return it.
- 	If there is only one class or trait in the system whose name matches pattern, return it.
- 	Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen.
- 	This method ignores separator characters in the pattern"
- 
- 	^self classOrTraitFrom: anEnvironment pattern: pattern label: aCaption
- "
- 	for examples, see #classFromPattern:withCaption:
- "
- !

Item was removed:
- ----- Method: UIManager>>classOrTraitFrom:pattern:label: (in category 'system introspecting') -----
- classOrTraitFrom: environment pattern: pattern label: label
- 	
- 	^ ((SystemNavigation for: environment) allClassesAndTraitsMatching: pattern)
- 		ifEmpty: [nil]
- 		ifNotEmpty: [:results |
- 			results size = 1
- 				ifTrue: [results first]
- 				ifFalse: [self
- 							chooseFrom: (results collect: [:each | 
- 								each isDeprecated
- 									ifTrue: [each name asText addAttributesForDeprecation]
- 									ifFalse: [each name]])
- 							values: results
- 							title: label]]!

Item was removed:
- ----- Method: UIManager>>confirm: (in category 'ui requests') -----
- confirm: queryString
- 	"Put up a yes/no menu with caption queryString. Answer true if the 
- 	response is yes, false if no. This is a modal question--the user must 
- 	respond yes or no."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>confirm:orCancel: (in category 'ui requests') -----
- confirm: aString orCancel: cancelBlock
- 	"Put up a yes/no/cancel menu with caption aString. Answer true if  
- 	the response is yes, false if no. If cancel is chosen, evaluate  
- 	cancelBlock. This is a modal question--the user must respond yes or no."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>confirm:orCancel:title: (in category 'ui requests') -----
- confirm: aString orCancel: cancelBlock title: titleString
- 	"Put up a yes/no/cancel menu with caption aString, and titleString to label the dialog.
- 	Answer true if  the response is yes, false if no. If cancel is chosen, evaluate cancelBlock.
- 	This is a modal question--the user must respond yes or no."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>confirm:title: (in category 'ui requests') -----
- confirm: queryString title: titleString
- 	"Put up a yes/no menu with caption queryString, and titleString to label the dialog.
- 	Answer true if the response is yes, false if no. This is a modal question--the user
- 	must respond yes or no."
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>confirm:title:trueChoice:falseChoice: (in category 'ui requests') -----
- confirm: queryString title: titleString trueChoice: trueChoice falseChoice: falseChoice
- 	"Put up a yes/no menu with caption queryString, and titleString to label the dialog.
- 	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
- 	is the false-choice. This is a modal question -- the user must respond one way or
- 	the other."
- 	^self subclassResponsibility!

Item was removed:
- ----- 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 removed:
- ----- Method: UIManager>>displayProgress:at:from:to:during: (in category 'ui requests - progress') -----
- 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 removed:
- ----- Method: UIManager>>edit: (in category 'ui requests - text') -----
- edit: aText
- 	"Open an editor on the given string/text"
- 	^self edit: aText label: nil!

Item was removed:
- ----- Method: UIManager>>edit:label: (in category 'ui requests - text') -----
- edit: aText label: labelString
- 	"Open an editor on the given string/text"
- 	^self edit: aText label: labelString accept: nil!

Item was removed:
- ----- Method: UIManager>>edit:label:accept: (in category 'ui requests - text') -----
- edit: aText label: labelString accept: anAction
- 	"Open an editor on the given string/text"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>edit:label:shouldStyle: (in category 'ui requests - text') -----
- edit: aText label: labelString shouldStyle: aBoolean
- 	"Open an editor on the given string/text"
- 	^self edit: aText label: labelString shouldStyle: aBoolean accept: nil!

Item was removed:
- ----- Method: UIManager>>edit:label:shouldStyle:accept: (in category 'ui requests - text') -----
- edit: aText label: labelString shouldStyle: aBoolean accept: anAction
- 	"Open an editor on the given string/text"
- 	^self edit: aText label: labelString accept: anAction!

Item was removed:
- ----- Method: UIManager>>inform: (in category 'ui requests') -----
- inform: aString
- 	"Display a message for the user to read and then dismiss"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>informUser:during: (in category 'ui requests - progress') -----
- 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 removed:
- ----- Method: UIManager>>informUserDuring: (in category 'ui requests - progress') -----
- 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 removed:
- ----- Method: UIManager>>multiLineRequest:centerAt:initialAnswer:answerHeight: (in category 'ui requests - text') -----
- 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 removed:
- ----- Method: UIManager>>openPluggableFileList:label:in: (in category 'ui project indirecting') -----
- openPluggableFileList: aPluggableFileList label: aString in: aWorld
- 	"PluggableFileList is being deprecated and this can go away soon"
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>openToolsAttachedToMouseCursor (in category 'accessing') -----
- openToolsAttachedToMouseCursor
- 	self flag: #todo. "mt: Let each instances of ui manager have its own setting."
- 	^ self class openToolsAttachedToMouseCursor!

Item was removed:
- ----- Method: UIManager>>openToolsAttachedToMouseCursor: (in category 'accessing') -----
- openToolsAttachedToMouseCursor: aBoolean
- 	self flag: #todo. "mt: Let each instances of ui manager have its own setting."
- 	self class openToolsAttachedToMouseCursor: aBoolean.!

Item was removed:
- ----- Method: UIManager>>request: (in category 'ui requests - text') -----
- 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 removed:
- ----- Method: UIManager>>request:initialAnswer: (in category 'ui requests - text') -----
- request: queryString initialAnswer: defaultAnswer 
- 	"Create an instance of me whose question is queryString with the given initial answer. Answer the  string the user accepts. Answer the empty string if the user cancels."
- 	
- 	^ self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>request:initialAnswer:centerAt: (in category 'ui requests - text') -----
- 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 request: queryString initialAnswer: defaultAnswer!

Item was removed:
- ----- Method: UIManager>>request:initialAnswer:onCancelReturn: (in category 'ui requests - text') -----
- request: queryString initialAnswer: defaultAnswer onCancelReturn: cancelResponse
- 	"Create an instance of me whose question is queryString with the given initial answer. Answer the string the user accepts. Answer cancelResponse if the user cancels."
- 
- 	^ self request: queryString initialAnswer: defaultAnswer!

Item was removed:
- ----- Method: UIManager>>requestPassword: (in category 'ui requests - text') -----
- 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 removed:
- ----- Method: UIManager>>saveFilenameRequest:initialAnswer: (in category 'ui requests - files') -----
- 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. Returns a file name."
- 
- 	^self subclassResponsibility!

Item was removed:
- ----- Method: UIManager>>screenBounds (in category 'accessing') -----
- screenBounds
- 	^ Display boundingBox!

Item was removed:
- ----- Method: UIManager>>startUpMenu:withCaption:icon:at:allowKeyboard: (in category 'ui project indirecting') -----
- startUpMenu: aMenu withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean
- 	"A menu needs to startup and depends on the current type of ui manager for what sort of startup to do. Very ugly, and really needs replacing with a much better menu system"
- 	
- 	^self subclassResponsibility
- 	!

Item was removed:
- ----- Method: UIManager>>toolBuilder (in category 'builder') -----
- toolBuilder
- 	^ self builderClass new!



More information about the Squeak-dev mailing list