--- a/UIHelpTool.st Fri Aug 29 20:31:23 2003 +0200
+++ b/UIHelpTool.st Thu Sep 04 20:59:42 2003 +0200
@@ -174,102 +174,101 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpec
- #window:
- #(#WindowSpec
- #label: 'UIHelpTool'
- #name: 'UIHelpTool'
- #min: #(#Point 10 10)
- #max: #(#Point 1024 768)
- #bounds: #(#Rectangle 30 292 491 585)
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableVerticalPanelSpec
- #name: 'PanelVrt'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #component:
- #(#SpecCollection
- #collection: #(
- #(#VariableHorizontalPanelSpec
- #name: 'PanelHrz'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#HierarchicalListViewSpec
- #name: 'keyItemModel'
- #model: #keyItemModel
- #menu: #keyItemMenu
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: false
- #listModel: #keyItemListHolder
- #useIndex: false
- #highlightMode: #label
- #showLines: false
- #showIndicators: false
- #showLeftIndicators: false
- #useDefaultIcons: false
- #autoScrollHorizontal: false
- )
- #(#ViewSpec
- #name: 'classItemList'
- #component:
- #(#SpecCollection
- #collection: #(
- #(#InputFieldSpec
- #name: 'editModel'
- #layout: #(#LayoutFrame 0 0.0 2 0 -1 1.0 25 0)
- #activeHelpKey: #currentHelpTexts
- #model: #editModel
- #immediateAccept: true
- #acceptOnReturn: false
- #acceptOnTab: false
- #acceptOnLostFocus: false
- #acceptOnPointerLeave: false
- )
- #(#SelectionInListModelViewSpec
- #name: 'classItemModel'
- #layout: #(#LayoutFrame 0 0.0 27 0.0 0 1.0 0 1.0)
- #model: #classItemModel
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #autoHideScrollBars: false
- #listModel: #classItemListHolder
- #useIndex: false
- #highlightMode: #label
- )
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'UIHelpTool'
+ name: 'UIHelpTool'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 475 339)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (VariableVerticalPanelSpec
+ name: 'PanelVrt'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ component:
+ (SpecCollection
+ collection: (
+ (VariableHorizontalPanelSpec
+ name: 'PanelHrz'
+ component:
+ (SpecCollection
+ collection: (
+ (HierarchicalListViewSpec
+ name: 'keyItemModel'
+ model: keyItemModel
+ menu: keyItemMenu
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: false
+ listModel: keyItemListHolder
+ useIndex: false
+ highlightMode: label
+ showLines: false
+ showIndicators: false
+ showLeftIndicators: false
+ useDefaultIcons: false
+ autoScrollHorizontal: false
+ )
+ (ViewSpec
+ name: 'classItemList'
+ component:
+ (SpecCollection
+ collection: (
+ (InputFieldSpec
+ name: 'editModel'
+ layout: (LayoutFrame 0 0.0 2 0 -1 1.0 25 0)
+ activeHelpKey: currentHelpTexts
+ model: editModel
+ immediateAccept: true
+ acceptOnReturn: false
+ acceptOnTab: false
+ acceptOnLostFocus: false
+ acceptOnPointerLeave: false
+ )
+ (SelectionInListModelViewSpec
+ name: 'classItemModel'
+ layout: (LayoutFrame 0 0.0 27 0.0 0 1.0 0 1.0)
+ model: classItemModel
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: true
+ autoHideScrollBars: false
+ listModel: classItemListHolder
+ useIndex: false
+ highlightMode: label
+ )
+ )
- )
- )
- )
+ )
+ )
+ )
- )
- #handles: #(#Any 0.607375 1.0)
- )
- #(#ArbitraryComponentSpec
- #name: 'helpTextView'
- #hasHorizontalScrollBar: true
- #hasVerticalScrollBar: true
- #miniScrollerHorizontal: true
- #miniScrollerVertical: true
- #hasBorder: false
- #component: #helpTextView
- )
- )
+ )
+ handles: (Any 0.607375 1.0)
+ )
+ (ArbitraryComponentSpec
+ name: 'helpTextView'
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: true
+ hasBorder: false
+ component: helpTextView
+ )
+ )
- )
- #handles: #(#Any 0.679181 1.0)
- )
- )
+ )
+ handles: (Any 0.679181 1.0)
+ )
+ )
- )
+ )
)
!
@@ -288,40 +287,39 @@
<resource: #canvas>
^
- #(#FullSpec
- #name: #windowSpecForStandAlone
- #window:
- #(#WindowSpec
- #label: 'Help Tool'
- #name: 'Help Tool'
- #min: #(#Point 300 300)
- #max: #(#Point 1152 900)
- #bounds: #(#Rectangle 11 332 509 761)
- #menu: #menu
- )
- #component:
- #(#SpecCollection
- #collection: #(
- #(#UISubSpecification
- #name: 'windowSpec'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
- #minorKey: #windowSpec
- )
- #(#UISubSpecification
- #name: 'windowSpecForCommit'
- #layout: #(#LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForCommit
- )
- #(#UISubSpecification
- #name: 'windowSpecForInfoBar'
- #layout: #(#LayoutFrame 0 0 -24 1 0 1 0 1)
- #majorKey: #ToolApplicationModel
- #minorKey: #windowSpecForInfoBar
- )
- )
+ #(FullSpec
+ name: windowSpecForStandAlone
+ window:
+ (WindowSpec
+ label: 'Help Tool'
+ name: 'Help Tool'
+ min: (Point 300 300)
+ bounds: (Rectangle 14 46 512 475)
+ menu: menu
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (UISubSpecification
+ name: 'windowSpec'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
+ minorKey: windowSpec
+ )
+ (UISubSpecification
+ name: 'windowSpecForCommit'
+ layout: (LayoutFrame 0 0.0 -50 1.0 0 1.0 -24 1.0)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForCommit
+ )
+ (UISubSpecification
+ name: 'windowSpecForInfoBar'
+ layout: (LayoutFrame 0 0 -24 1 0 1 0 1)
+ majorKey: ToolApplicationModel
+ minorKey: windowSpecForInfoBar
+ )
+ )
- )
+ )
)
! !