hg/stx-libwidg2: comparison AssistantApplication.st

equal deleted inserted replaced

-:1addc5e0331e
+:3c92fe6d04a5
 along achain of pages as specified in the AssistantSpec
 see stx:doc/coding:DemoAssistant for a demo example.
 see ProjectBuilderAssistantApplication for a concrete example.
 "
+! !
+!AssistantApplication class methodsFor:'help'!
+flyByHelpSpec
+<resource: #help>
+^ super flyByHelpSpec addPairsFrom:#(
+#backButton
+'Navigate to the previous page %(previousPageInfo)'
+#nextButton
+'Navigate to the next page %(nextPageInfo)'
+)
 ! !
 !AssistantApplication class methodsFor:'image specs'!
 bulletIcon
 name: 'ToolBar1'
 layout: (LayoutFrame 0 0 0 0 0 1 40 0)
 menu: toolbarMenu
 textDefault: true
 )
-(VariableHorizontalPanelSpec
+(ViewSpec
-name: 'VariableHorizontalPanel1'
+name: 'Box1'
-layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
+layout: (LayoutFrame 0 0 40 0 0 1 -25 1)
 component:
 (SpecCollection
 collection: (
-(SequenceViewSpec
+(VariableHorizontalPanelSpec
-name: 'List1'
+name: 'VariableHorizontalPanel1'
-level: 0
+layout: (LayoutFrame 0 0 0 0 0 1 -40 1)
-enableChannel: false
+component:
-hasHorizontalScrollBar: true
+(SpecCollection
-hasVerticalScrollBar: true
+collection: (
-useIndex: true
+(SequenceViewSpec
-sequenceList: pageLabelsInList
+name: 'List1'
+level: 0
+enableChannel: false
+hasHorizontalScrollBar: true
+hasVerticalScrollBar: true
+useIndex: true
+sequenceList: pageLabelsInList
+)
+(SubCanvasSpec
+name: 'SubCanvas1'
+hasHorizontalScrollBar: false
+hasVerticalScrollBar: false
+miniScrollerHorizontal: false
+miniScrollerVertical: false
+specHolder: currentPageSpecHolder
+createNewBuilder: false
+)
+)
+)
+handles: (Any 0.5 1.0)
 )
-(SubCanvasSpec
+(HorizontalPanelViewSpec
-name: 'SubCanvas1'
+name: 'ButtonPanel1'
-hasHorizontalScrollBar: false
+layout: (LayoutFrame 0 0 -40 1 0 0.5 0 1)
-hasVerticalScrollBar: false
+horizontalLayout: centerMax
-miniScrollerHorizontal: false
+verticalLayout: center
-miniScrollerVertical: false
+horizontalSpace: 3
-specHolder: currentPageSpecHolder
+verticalSpace: 3
-createNewBuilder: false
+component:
+(SpecCollection
+collection: (
+(ActionButtonSpec
+label: 'Back'
+name: 'Button1'
+activeHelpKey: backButton
+visibilityChannel: backButtonVisible
+translateLabel: true
+labelChannel: backButtonLabelHolder
+model: goBackward
+enableChannel: backButtonEnabled
+extent: (Point 132 22)
+)
+(ActionButtonSpec
+label: 'Next'
+name: 'Button2'
+activeHelpKey: nextButton
+visibilityChannel: forwardButtonVisible
+translateLabel: true
+labelChannel: nextButtonLabelHolder
+model: goForward
+enableChannel: forwardButtonEnabled
+extent: (Point 132 22)
+)
+)
+)
 )
-)
+(HorizontalPanelViewSpec
+name: 'ButtonPanel2'
-)
+layout: (LayoutFrame 0 0.5 -40 1 0 1 0 1)
-handles: (Any 0.29962546816479 1.0)
+horizontalLayout: centerMax
-)
+verticalLayout: center
-(HorizontalPanelViewSpec
+horizontalSpace: 3
-name: 'ButtonPanel1'
+verticalSpace: 3
-layout: (LayoutFrame 0 0 -40 1 0 0.5 0 1)
+ignoreInvisibleComponents: false
-horizontalLayout: centerMax
+component:
-verticalLayout: center
+(SpecCollection
-horizontalSpace: 3
+collection: (
-verticalSpace: 3
+(ActionButtonSpec
-component:
+label: 'Finish'
-(SpecCollection
+name: 'Button7'
-collection: (
+visibilityChannel: finishButtonVisible
-(ActionButtonSpec
+translateLabel: true
-label: 'Back'
+resizeForLabel: true
-name: 'Button1'
+model: doFinish
-visibilityChannel: backButtonVisible
+enableChannel: finishButtonEnabled
-translateLabel: true
+extent: (Point 65 22)
-labelChannel: backButtonLabelHolder
+)
-model: goBackward
+(ActionButtonSpec
-enableChannel: backButtonEnabled
+label: 'Cancel'
-useDefaultExtent: true
+name: 'Button8'
-)
+translateLabel: true
-(ActionButtonSpec
+resizeForLabel: true
-label: 'Next'
+model: doCancel
-name: 'Button2'
+extent: (Point 65 22)
-visibilityChannel: forwardButtonVisible
+)
-translateLabel: true
+)
-labelChannel: nextButtonLabelHolder
-model: goForward
+)
-enableChannel: forwardButtonEnabled
-useDefaultExtent: true
 )
 )
 )
 )
-(HorizontalPanelViewSpec
+(LabelSpec
-name: 'ButtonPanel2'
+label: 'Label'
-layout: (LayoutFrame 0 0.5 -40 1 0 1 0 1)
+name: 'Label1'
-horizontalLayout: centerMax
+layout: (LayoutFrame 1 0 -25 1 -1 1 -1 1)
-verticalLayout: center
+level: -1
-horizontalSpace: 3
+translateLabel: true
-verticalSpace: 3
+labelChannel: infoHolder
-ignoreInvisibleComponents: false
+adjust: left
-component:
-(SpecCollection
-collection: (
-(ActionButtonSpec
-label: 'Finish'
-name: 'Button7'
-visibilityChannel: finishButtonVisible
-translateLabel: true
-resizeForLabel: true
-model: doFinish
-enableChannel: finishButtonEnabled
-useDefaultExtent: true
-)
-(ActionButtonSpec
-label: 'Cancel'
-name: 'Button8'
-translateLabel: true
-resizeForLabel: true
-model: doCancel
-useDefaultExtent: true
-)
-)
-)
 )
 )
 )
 )
 ].
 ].
 ^ newList
 ! !
+!AssistantApplication methodsFor:'help'!
+flyByHelpTextForKey:aKey
+<resource: #help>
+|text bindings nextSpec prevSpec|
+text := super flyByHelpTextForKey:aKey.
+nextSpec := self nextEnabledPageSpec.
+prevSpec := self previousEnabledPageSpec.
+bindings := Dictionary new.
+bindings
+at:#'previousPageInfo'
+put:(prevSpec notNil ifTrue:[ '"',prevSpec pageTitle,'"' ] ifFalse:['']).
+bindings
+at:#'nextPageInfo'
+put:(nextSpec notNil ifTrue:[ '"',nextSpec pageTitle,'"' ] ifFalse:['']).
+^ self resources string:text withArgs:bindings.
+! !
 !AssistantApplication methodsFor:'initialization & release'!
 postBuildWith:aBuilder
 |maxCanvasExtent|
 ! !
 !AssistantApplication class methodsFor:'documentation'!
 version_CVS
-^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.6 2009-10-20 22:23:27 cg Exp $'
+^ '$Header: /cvs/stx/stx/libwidg2/AssistantApplication.st,v 1.7 2009-10-21 13:32:50 cg Exp $'
 ! !

changeset 3809	3c92fe6d04a5
parent 3808	1addc5e0331e
child 3810	0df3ba9c453a