--- a/AssistantApplication.st Thu Jan 23 17:11:43 2014 +0100
+++ b/AssistantApplication.st Fri Jan 24 13:48:43 2014 +0100
@@ -132,187 +132,187 @@
<resource: #canvas>
^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Assistant'
- name: 'Assistant'
- bounds: (Rectangle 0 0 534 440)
- menu: mainMenu
- icon: defaultIcon
- )
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box1'
- layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
- component:
- (SpecCollection
- collection: (
- (VariableHorizontalPanelSpec
- name: 'MainHorizontalPanel'
- layout: (LayoutFrame 0 0 0 0 0 1 -40 1)
- component:
- (SpecCollection
- collection: (
- (ViewSpec
- name: 'Box2'
- component:
- (SpecCollection
- collection: (
- (VariableVerticalPanelSpec
- name: 'VariableVerticalPanel1'
- layout: (LayoutFrame 0 0 0 0 0 1 0 1)
- component:
- (SpecCollection
- collection: (
- (SequenceViewSpec
- name: 'PagesLabelList'
- level: 0
- enableChannel: false
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- useIndex: true
- sequenceList: pageLabelsInList
- )
- (HTMLViewSpec
- name: 'HTMLBrowser1'
- level: 0
- hasHorizontalScrollBar: true
- hasVerticalScrollBar: true
- miniScrollerHorizontal: true
- miniScrollerVertical: false
- htmlText: pageInfoHolder
- )
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Assistant'
+ name: 'Assistant'
+ bounds: (Rectangle 0 0 806 608)
+ menu: mainMenu
+ icon: defaultIcon
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box1'
+ layout: (LayoutFrame 0 0 0 0 0 1 -25 1)
+ component:
+ (SpecCollection
+ collection: (
+ (VariableHorizontalPanelSpec
+ name: 'MainHorizontalPanel'
+ layout: (LayoutFrame 0 0 0 0 0 1 -40 1)
+ component:
+ (SpecCollection
+ collection: (
+ (ViewSpec
+ name: 'Box2'
+ component:
+ (SpecCollection
+ collection: (
+ (VariableVerticalPanelSpec
+ name: 'VariableVerticalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 0 1)
+ component:
+ (SpecCollection
+ collection: (
+ (SequenceViewSpec
+ name: 'PagesLabelList'
+ level: 0
+ enableChannel: false
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ useIndex: true
+ sequenceList: pageLabelsInList
)
-
- )
- handles: (Any 0.5 1.0)
- )
+ (HTMLViewSpec
+ name: 'HTMLBrowser1'
+ level: 0
+ hasHorizontalScrollBar: true
+ hasVerticalScrollBar: true
+ miniScrollerHorizontal: true
+ miniScrollerVertical: false
+ htmlText: pageInfoHolder
+ )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
)
-
- )
- )
- (SubCanvasSpec
- name: 'SubCanvas1'
- hasHorizontalScrollBar: false
- hasVerticalScrollBar: false
- miniScrollerHorizontal: false
- miniScrollerVertical: false
- specHolder: currentPageSpecHolder
- createNewBuilder: false
- )
+ )
+
+ )
+ )
+ (SubCanvasSpec
+ name: 'SubCanvas1'
+ hasHorizontalScrollBar: false
+ hasVerticalScrollBar: false
+ miniScrollerHorizontal: false
+ miniScrollerVertical: false
+ specHolder: currentPageSpecHolder
+ createNewBuilder: false
)
-
- )
- handles: (Any 0.5 1.0)
- )
- (HorizontalPanelViewSpec
- name: 'TwoPanelsPanel'
- layout: (LayoutFrame 0 0 -40 1 0 1 0 1)
- horizontalLayout: fit
- verticalLayout: fit
- horizontalSpace: 3
- verticalSpace: 3
- reverseOrderIfOKAtLeft: true
- component:
- (SpecCollection
- collection: (
- (HorizontalPanelViewSpec
- name: 'ButtonPanel2'
- horizontalLayout: rightSpaceMax
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- ignoreInvisibleComponents: false
- reverseOrderIfOKAtLeft: true
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Cancel'
- name: 'Button8'
- visibilityChannel: cancelButtonVisible
- translateLabel: true
- resizeForLabel: true
- model: doCancel
- extent: (Point 80 22)
- )
- (ActionButtonSpec
- label: 'Finish'
- name: 'Button7'
- visibilityChannel: finishButtonVisible
- translateLabel: true
- resizeForLabel: true
- model: doFinish
- enableChannel: finishButtonEnabled
- extent: (Point 80 22)
- )
+ )
+
+ )
+ handles: (Any 0.5 1.0)
+ )
+ (HorizontalPanelViewSpec
+ name: 'TwoPanelsPanel'
+ layout: (LayoutFrame 0 0 -40 1 0 1 0 1)
+ horizontalLayout: fit
+ verticalLayout: fit
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel2'
+ horizontalLayout: rightSpaceMax
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ ignoreInvisibleComponents: false
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button8'
+ visibilityChannel: cancelButtonVisible
+ translateLabel: true
+ resizeForLabel: true
+ model: doCancel
+ extent: (Point 80 22)
+ )
+ (ActionButtonSpec
+ label: 'Finish'
+ name: 'Button7'
+ visibilityChannel: finishButtonVisible
+ translateLabel: true
+ resizeForLabel: true
+ model: doFinish
+ enableChannel: finishButtonEnabled
+ extent: (Point 80 22)
)
-
- )
- extent: (Point 265 40)
- )
- (HorizontalPanelViewSpec
- name: 'ButtonPanel1'
- horizontalLayout: centerMax
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Back'
- name: 'Button1'
- activeHelpKey: backButton
- visibilityChannel: backButtonVisible
- translateLabel: true
- labelChannel: backButtonLabelHolder
- model: goBackward
- enableChannel: backButtonEnabled
- useDefaultExtent: true
- )
- (ActionButtonSpec
- label: 'Next'
- name: 'Button2'
- activeHelpKey: nextButton
- visibilityChannel: forwardButtonVisible
- translateLabel: true
- labelChannel: nextButtonLabelHolder
- model: goForward
- enableChannel: forwardButtonEnabled
- useDefaultExtent: true
- )
+ )
+
+ )
+ extent: (Point 401 40)
+ )
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel1'
+ horizontalLayout: centerMax
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Back'
+ name: 'Button1'
+ activeHelpKey: backButton
+ visibilityChannel: backButtonVisible
+ translateLabel: true
+ labelChannel: backButtonLabelHolder
+ model: goBackward
+ enableChannel: backButtonEnabled
+ useDefaultExtent: true
)
-
- )
- extent: (Point 266 40)
- )
+ (ActionButtonSpec
+ label: 'Next'
+ name: 'Button2'
+ activeHelpKey: nextButton
+ visibilityChannel: forwardButtonVisible
+ translateLabel: true
+ labelChannel: nextButtonLabelHolder
+ model: goForward
+ enableChannel: forwardButtonEnabled
+ useDefaultExtent: true
+ )
+ )
+
+ )
+ extent: (Point 402 40)
)
-
- )
- )
+ )
+
+ )
)
-
- )
- )
- (LabelSpec
- label: 'Label'
- name: 'Label1'
- layout: (LayoutFrame 1 0 -25 1 -1 1 -1 1)
- level: -1
- translateLabel: true
- labelChannel: infoHolder
- adjust: left
- )
+ )
+
+ )
)
-
- )
- )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label1'
+ layout: (LayoutFrame 1 0 -25 1 -1 1 -1 1)
+ level: -1
+ translateLabel: true
+ labelChannel: infoHolder
+ adjust: left
+ )
+ )
+
+ )
+ )
! !
!AssistantApplication class methodsFor:'menu specs'!
@@ -857,10 +857,10 @@
!AssistantApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.26 2013-09-24 20:21:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.27 2014-01-24 12:48:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.26 2013-09-24 20:21:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.27 2014-01-24 12:48:43 cg Exp $'
! !