--- a/UIHelpTool.st Wed Feb 15 17:32:40 2006 +0100
+++ b/UIHelpTool.st Wed Feb 15 17:49:23 2006 +0100
@@ -160,7 +160,7 @@
!UIHelpTool class methodsFor:'interface specs'!
-windowSpec
+innerSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
@@ -168,16 +168,15 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
- UIHelpTool new openInterface:#windowSpec
- UIHelpTool open
+ UIPainter new openOnClass:UIHelpTool andSelector:#innerSpec
+ UIHelpTool new openInterface:#innerSpec
"
<resource: #canvas>
^
#(FullSpec
- name: windowSpec
+ name: innerSpec
window:
(WindowSpec
label: 'UIHelpTool'
@@ -275,7 +274,7 @@
)
!
-windowSpecForStandAlone
+windowSpec
"This resource specification was automatically generated
by the UIPainter of ST/X."
@@ -283,30 +282,31 @@
the UIPainter may not be able to read the specification."
"
- UIPainter new openOnClass:UIHelpTool andSelector:#windowSpecForStandAlone
- UIHelpTool new openInterface:#windowSpecForStandAlone
+ UIPainter new openOnClass:UIHelpTool andSelector:#windowSpec
+ UIHelpTool new openInterface:#windowSpec
+ UIHelpTool open
"
<resource: #canvas>
^
#(FullSpec
- name: windowSpecForStandAlone
+ name: windowSpec
window:
(WindowSpec
label: 'Help Tool'
name: 'Help Tool'
min: (Point 300 300)
- bounds: (Rectangle 14 46 512 475)
+ bounds: (Rectangle 0 0 498 429)
menu: menu
)
component:
(SpecCollection
collection: (
(UISubSpecification
- name: 'windowSpec'
+ name: 'innerSpec'
layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 -50 1.0)
- minorKey: windowSpec
+ minorKey: innerSpec
)
(UISubSpecification
name: 'windowSpecForCommit'
@@ -468,12 +468,14 @@
)
(MenuItem
label: '-'
+ isVisible: isStandAlone
)
(MenuItem
activeHelpKey: fileExit
label: 'Exit'
itemValue: closeRequest
translateLabel: true
+ isVisible: isStandAlone
)
)
nil
@@ -489,6 +491,7 @@
(MenuItem
label: 'History'
translateLabel: true
+ isVisible: isStandAlone
submenuChannel: menuHistory
)
(MenuItem
@@ -659,7 +662,7 @@
"returns the info label as value holder
"
masterApplication notNil ifTrue:[
- ^ masterApplication valueOfInfoLabel
+ ^ masterApplication infoLabelHolder
].
^ super valueOfInfoLabel
! !
@@ -984,7 +987,7 @@
openOnClass:aClass andSelector: aSelector
"opens the UIHelpTool on aClass and aSelector"
- self openInterface:#windowSpecForStandAlone.
+ self openInterface:#windowSpec "ForStandAlone".
builder window label:'Help Tool'.
self loadFromClass:aClass andSelector:aSelector