--- a/AssistantApplication.st Wed Oct 21 00:23:27 2009 +0200
+++ b/AssistantApplication.st Wed Oct 21 15:32:50 2009 +0200
@@ -24,6 +24,22 @@
"
! !
+!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
@@ -122,101 +138,122 @@
menu: toolbarMenu
textDefault: true
)
- (VariableHorizontalPanelSpec
- name: 'VariableHorizontalPanel1'
- layout: (LayoutFrame 0 0 40 0 0 1 -40 1)
+ (ViewSpec
+ name: 'Box1'
+ layout: (LayoutFrame 0 0 40 0 0 1 -25 1)
component:
(SpecCollection
collection: (
- (SequenceViewSpec
- 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
+ (VariableHorizontalPanelSpec
+ name: 'VariableHorizontalPanel1'
+ layout: (LayoutFrame 0 0 0 0 0 1 -40 1)
+ component:
+ (SpecCollection
+ collection: (
+ (SequenceViewSpec
+ 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)
)
- )
-
- )
- handles: (Any 0.29962546816479 1.0)
- )
- (HorizontalPanelViewSpec
- name: 'ButtonPanel1'
- layout: (LayoutFrame 0 0 -40 1 0 0.5 0 1)
- horizontalLayout: centerMax
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'Back'
- name: 'Button1'
- visibilityChannel: backButtonVisible
- translateLabel: true
- labelChannel: backButtonLabelHolder
- model: goBackward
- enableChannel: backButtonEnabled
- useDefaultExtent: true
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel1'
+ layout: (LayoutFrame 0 0 -40 1 0 0.5 0 1)
+ 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
+ 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)
+ )
+ )
+
+ )
)
- (ActionButtonSpec
- label: 'Next'
- name: 'Button2'
- visibilityChannel: forwardButtonVisible
- translateLabel: true
- labelChannel: nextButtonLabelHolder
- model: goForward
- enableChannel: forwardButtonEnabled
- useDefaultExtent: true
+ (HorizontalPanelViewSpec
+ name: 'ButtonPanel2'
+ layout: (LayoutFrame 0 0.5 -40 1 0 1 0 1)
+ horizontalLayout: centerMax
+ verticalLayout: center
+ horizontalSpace: 3
+ verticalSpace: 3
+ ignoreInvisibleComponents: false
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'Finish'
+ name: 'Button7'
+ visibilityChannel: finishButtonVisible
+ translateLabel: true
+ resizeForLabel: true
+ model: doFinish
+ enableChannel: finishButtonEnabled
+ extent: (Point 65 22)
+ )
+ (ActionButtonSpec
+ label: 'Cancel'
+ name: 'Button8'
+ translateLabel: true
+ resizeForLabel: true
+ model: doCancel
+ extent: (Point 65 22)
+ )
+ )
+
+ )
)
)
)
)
- (HorizontalPanelViewSpec
- name: 'ButtonPanel2'
- layout: (LayoutFrame 0 0.5 -40 1 0 1 0 1)
- horizontalLayout: centerMax
- verticalLayout: center
- horizontalSpace: 3
- verticalSpace: 3
- ignoreInvisibleComponents: false
- 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
- )
- )
-
- )
+ (LabelSpec
+ label: 'Label'
+ name: 'Label1'
+ layout: (LayoutFrame 1 0 -25 1 -1 1 -1 1)
+ level: -1
+ translateLabel: true
+ labelChannel: infoHolder
+ adjust: left
)
)
@@ -524,6 +561,29 @@
^ 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
@@ -687,5 +747,5 @@
!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 $'
! !