--- a/UIPainter.st Mon Feb 02 17:15:25 1998 +0100
+++ b/UIPainter.st Mon Feb 02 17:16:37 1998 +0100
@@ -503,11 +503,11 @@
#'window:'
#(#WindowSpec
#'name:' 'Tree-View'
- #'layout:' #(#LayoutFrame 18 0 64 0 570 0 589 0)
+ #'layout:' #(#LayoutFrame 6 0 406 0 558 0 931 0)
#'label:' 'Tree-View'
#'min:' #(#Point 10 10)
#'max:' #(#Point 1160 870)
- #'bounds:' #(#Rectangle 18 64 571 590)
+ #'bounds:' #(#Rectangle 6 406 559 932)
#'menu:' #menu
#'usePreferredExtent:' false
)
@@ -552,51 +552,9 @@
#(#SpecCollection
#'collection:'
#(
- #(#NoteBookViewSpec
- #'name:' 'noteBook'
- #'layout:' #(#LayoutFrame 0 0.0 26 0.0 0 1.0 -30 1.0)
- #'enableChannel:' #enableChannel
- #'tabable:' true
- #'model:' #tabModel
- #'menu:' #tabList
- #'style:' #(#FontDescription #helvetica #medium #roman 10)
- #'canvas:' #noteBookView
- )
- #(#HorizontalPanelViewSpec
- #'name:' 'modifyPanel'
- #'layout:' #(#LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0)
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#ActionButtonSpec
- #'name:' 'cancelButton'
- #'activeHelpKey:' #cancel
- #'label:' 'Cancel'
- #'tabable:' true
- #'model:' #cancel
- #'enableChannel:' #modifiedChannel
- #'extent:' #(#Point 79 24)
- )
- #(#ActionButtonSpec
- #'name:' 'acceptButton'
- #'activeHelpKey:' #accept
- #'label:' 'OK'
- #'tabable:' true
- #'model:' #accept
- #'enableChannel:' #modifiedChannel
- #'extent:' #(#Point 79 24)
- )
- )
- )
- #'horizontalLayout:' #fitSpace
- #'verticalLayout:' #fitSpace
- #'horizontalSpace:' 3
- #'verticalSpace:' 3
- )
#(#HorizontalPanelViewSpec
#'name:' 'panelViewButtons'
- #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 24 0)
+ #'layout:' #(#LayoutFrame 0 0.0 0 0 0 1.0 25 0)
#'component:'
#(#SpecCollection
#'collection:'
@@ -638,14 +596,73 @@
#'direction:' #up
#'extent:' #(#Point 22 22)
)
+ #(#LabelSpec
+ #'name:' 'label1'
+ #'label:' ' '
+ #'extent:' #(#Point 14 22)
+ )
+ #(#CheckBoxSpec
+ #'name:' 'checkBox1'
+ #'model:' #galleryShown
+ #'label:' 'Gallery'
+ #'extent:' #(#Point 82 22)
+ )
+ #(#CheckBoxSpec
+ #'name:' 'checkBox2'
+ #'model:' #painterShown
+ #'label:' 'Canvas'
+ #'extent:' #(#Point 119 22)
+ )
)
)
#'level:' 1
#'horizontalLayout:' #left
- #'verticalLayout:' #fit
+ #'verticalLayout:' #top
#'horizontalSpace:' 4
#'verticalSpace:' 4
)
+ #(#NoteBookViewSpec
+ #'name:' 'noteBook'
+ #'layout:' #(#LayoutFrame 0 0.0 26 0.0 0 1.0 -30 1.0)
+ #'enableChannel:' #enableChannel
+ #'tabable:' true
+ #'model:' #tabModel
+ #'menu:' #tabList
+ #'style:' #(#FontDescription #helvetica #medium #roman 10)
+ #'canvas:' #noteBookView
+ )
+ #(#HorizontalPanelViewSpec
+ #'name:' 'modifyPanel'
+ #'layout:' #(#LayoutFrame 0 0.0 -30 1.0 0 1.0 0 1.0)
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#ActionButtonSpec
+ #'name:' 'cancelButton'
+ #'activeHelpKey:' #cancel
+ #'label:' 'Cancel'
+ #'tabable:' true
+ #'model:' #cancel
+ #'enableChannel:' #modifiedChannel
+ #'extent:' #(#Point 179 24)
+ )
+ #(#ActionButtonSpec
+ #'name:' 'acceptButton'
+ #'activeHelpKey:' #accept
+ #'label:' 'OK'
+ #'tabable:' true
+ #'model:' #accept
+ #'enableChannel:' #modifiedChannel
+ #'extent:' #(#Point 180 24)
+ )
+ )
+ )
+ #'horizontalLayout:' #fitSpace
+ #'verticalLayout:' #fitSpace
+ #'horizontalSpace:' 3
+ #'verticalSpace:' 3
+ )
)
)
#'borderWidth:' 1
@@ -699,7 +716,7 @@
#(
#(#MenuItem
#'label:' 'About'
- #'labelImage:' #(#ResourceRetriever nil #icon)
+ #'labelImage:' #(#ResourceRetriever nil #menuIcon)
#'submenuChannel:' #menuAbout
)
#(#MenuItem
@@ -850,19 +867,9 @@
)
#(#MenuItem
#'label:' 'Help'
+ #'startGroup:' #right
#'submenuChannel:' #menuHelp
)
- #(#MenuItem
- #'label:' ''
- )
- #(#MenuItem
- #'label:' 'Gallery'
- #'indication:' #galleryShown
- )
- #(#MenuItem
- #'label:' 'Canvas'
- #'indication:' #painterShown
- )
) nil
nil
)
@@ -1554,28 +1561,6 @@
! !
-!UIPainter methodsFor:'active help'!
-
-showHelp:aHelpText for:view
- "display active help texts in my own info area."
-
- |txt|
-
- aHelpText isNil ifTrue:[
- txt := nil
- ] ifFalse:[
- txt := self class
- convertString:(aHelpText asString)
- maxLineSize:(transcript width // transcript font width)
- skipLineFeed:true
- ].
- transcript hideCursor.
- transcript contents:txt.
- ^ true
-
- "Modified: / 29.10.1997 / 22:33:55 / cg"
-! !
-
!UIPainter methodsFor:'aspects'!
canMoveOrAlignSelection
@@ -1933,6 +1918,33 @@
! !
+!UIPainter methodsFor:'help'!
+
+openTutorial
+
+ self openTutorial: 'doc/online/english/tools/uipainter/TOP.html'
+!
+
+showHelp:aHelpText for:view
+ "display active help texts in my own info area."
+
+ |txt|
+
+ aHelpText isNil ifTrue:[
+ txt := nil
+ ] ifFalse:[
+ txt := self class
+ convertString:(aHelpText asString)
+ maxLineSize:(transcript width // transcript font width)
+ skipLineFeed:true
+ ].
+ transcript hideCursor.
+ transcript contents:txt.
+ ^ true
+
+ "Modified: / 29.10.1997 / 22:33:55 / cg"
+! !
+
!UIPainter methodsFor:'printing'!
show:aText
@@ -2336,7 +2348,8 @@
ActiveHelp startFor:self.
- "Modified: / 27.10.1997 / 00:01:12 / cg"
+ self valueOfHavingTutorial value: true
+
!
openNewWindowCanvas