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

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.100.mcz

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

Name: ToolBuilder-Kernel-mt.100
Author: mt
Time: 31 July 2016, 11:11:03.29749 am
UUID: 8ae8d06d-141f-d846-9c73-f7fa561bb78a
Ancestors: ToolBuilder-Kernel-mt.99

*** Widget Refactorings and UI Themes (Part 5 of 11) ***

Some fixes and refactorings for dialogs including added support for UI theming.

=============== Diff against ToolBuilder-Kernel-mt.99 ===============

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

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

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

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

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

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

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

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

Item was added:
+ ----- Method: PluggableDialogSpec>>horizontalResizing (in category 'as yet unclassified') -----
+ horizontalResizing
+ ^ #rigid!

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

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

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

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

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

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

Item was added:
+ ----- Method: PluggableDialogSpec>>verticalResizing (in category 'as yet unclassified') -----
+ verticalResizing
+ ^ #rigid!

Item was changed:
  PluggableCompositeSpec subclass: #PluggableWindowSpec
+ instanceVariableNames: 'label extent closeAction multiWindowStyle'
- instanceVariableNames: 'label extent closeAction isDialog multiWindowStyle'
  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>>isDialog (in category 'accessing') -----
- isDialog
-
- ^isDialog ifNil: [false]
- !

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

Item was added:
+ ----- 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 added:
+ ----- Method: ToolBuilder>>pluggableDialogSpec (in category 'defaults') -----
+ pluggableDialogSpec
+ ^PluggableDialogSpec!