--- a/UIPainter.st Fri Jan 23 15:26:35 1998 +0100
+++ b/UIPainter.st Fri Jan 23 15:42:29 1998 +0100
@@ -116,112 +116,108 @@
UIHelpTool openOnClass:UIPainter
"
- <resource: #help>
-
^ super helpSpec addPairsFrom:#(
-#moveSelectionLeft
-'move selected widgets left while pressing the button'
-
-#setToDefaultWidth
-'set selected widgets to their default width'
-
-#pasteBuffer
-'paste widgets at current mouse position'
-
-#moveSelectionUp
-'move selected widgets up while pressing the button'
+#accept
+'write back changes'
+
+#alignSelectionBottom
+'align selected widgets to the bottom edge of the dominant widget'
+
+#alignSelectionCenterHor
+'align selected widgets vertical to the center of the dominant widget'
+
+#alignSelectionCenterVer
+'align selected widgets horizontal to the center of the dominant widget'
+
+#alignSelectionLeft
+'align selected widgets to the left edge of the dominant widget'
+
+#alignSelectionLeftAndRight
+'align selected widgets to the right and left edge of the dominant widget'
+
+#alignSelectionRight
+'align selected widgets to the right edge of the dominant widget'
+
+#alignSelectionTop
+'align selected widgets to the top edge of the dominant widget'
+
+#alignSelectionTopAndBottom
+'align selected widgets to the top and bottom edge of the dominant widget'
+
+#cancel
+'reread specification and layout'
+
+#centerSelectionHor
+'center widgets horizontal to their top widget'
+
+#centerSelectionVer
+'center vertical horizontal in contained view'
+
+#copyExtent
+'copy extent of the selected widget'
+
+#copyLayout
+'copy layout of the selected widget'
#galleryShown
'show or hide gallery view'
-#moveSelectionDown
-'move selected widgets down while pressing the button'
-
-#spreadSelectionVer
-'vertical spacing between selected widgets is made the same'
+#menuAlignment
+'provides a set of alignment operation on the current selected widgets'
#menuChangeHierarchy
'change hierarchy of the selected widget'
-#copyExtent
-'copy extent of the selected widget'
+#moveSelectionDown
+'move selected widgets down while pressing the button'
+
+#moveSelectionLeft
+'move selected widgets left while pressing the button'
#moveSelectionRight
'move selected widgets right while pressing the button'
-#cancel
-'reread specification and layout'
-
-#pasteWithLayout
-'paste widgets without changing their layouts'
-
-#alignSelectionRight
-'align selected widgets to the right edge of the dominant widget'
-
-#alignSelectionLeftAndRight
-'align selected widgets to the right and left edge of the dominant widget'
-
-#pasteWidth
-'change width of all selected widgets to the last copied extent width'
-
-#alignSelectionTopAndBottom
-'align selected widgets to the top and bottom edge of the dominant widget'
-
-#copyLayout
-'copy layout of the selected widget'
+#moveSelectionUp
+'move selected widgets up while pressing the button'
#painterShown
'show or hide painter view'
+#pasteBuffer
+'paste widgets at current mouse position'
+
#pasteExtent
'change extent of all selected widgets to the last copied extent'
#pasteHeight
'change height of all selected widgets to the last copied extent height'
-#accept
-'write back changes'
-
-#centerSelectionVer
-'center vertical horizontal in contained view'
-
-#centerSelectionHor
-'center widgets horizontal to their top widget'
-
-#menuAlignment
-'provides a set of alignment operation on the current selected widgets'
-
-#alignSelectionCenterVer
-'align selected widgets horizontal to the center of the dominant widget'
-
#pasteLayout
'change layout of all selected widgets to the last copied layout'
-#alignSelectionLeft
-'align selected widgets to the left edge of the dominant widget'
+#pasteWidth
+'change width of all selected widgets to the last copied extent width'
+
+#pasteWithLayout
+'paste widgets without changing their layouts'
+
+#setToDefaultExtent
+'set selected widgets to their default extent'
+
+#setToDefaultHeight
+'set selected widgets to their default height'
+
+#setToDefaultWidth
+'set selected widgets to their default width'
#spreadSelectionHor
'horizontal spacing between selected widgets is made the same'
-#alignSelectionBottom
-'align selected widgets to the bottom edge of the dominant widget'
-
-#setToDefaultExtent
-'set selected widgets to their default extent'
-
-#alignSelectionCenterHor
-'align selected widgets vertical to the center of the dominant widget'
-
-#alignSelectionTop
-'align selected widgets to the top edge of the dominant widget'
-
-#setToDefaultHeight
-'set selected widgets to their default height'
+#spreadSelectionVer
+'vertical spacing between selected widgets is made the same'
)
-
- "Modified: / 29.10.1997 / 03:19:58 / cg"
! !
!UIPainter class methodsFor:'helpers'!
@@ -706,20 +702,15 @@
#'label:' '-'
)
#(#MenuItem
- #'label:' 'Define Class And Selector...'
- #'value:' #defineClassAndSelector
+ #'label:' 'Save'
+ #'value:' #doInstallSpec
)
#(#MenuItem
#'label:' '-'
)
#(#MenuItem
- #'label:' 'Save Window Spec'
- #'value:' #doInstallSpec
- )
- #(#MenuItem
- #'label:' 'Save Help Spec'
- #'value:' #doInstallHelp
- #'enabled:' #hasSpecClass
+ #'label:' 'Define Class And Selector...'
+ #'value:' #defineClassAndSelector
)
#(#MenuItem
#'label:' '-'
@@ -782,6 +773,13 @@
#(
#(#MenuItem
+ #'label:' 'Start Application'
+ #'value:' #doStartApplication
+ )
+ #(#MenuItem
+ #'label:' '-'
+ )
+ #(#MenuItem
#'label:' 'Geometry Test Mode'
#'indication:' #'testMode:'
)
@@ -1234,13 +1232,13 @@
"ImageEditor openOnClass:self andSelector:#iconAlignCenterH"
<resource: #image>
- ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 84 0 0 0 5 80 84 170 170 170 165 80 85 85 89 85 85 80 85 85 42 21 85 90 85 84 170 133 85 88 85 82 170 161 85 80 85 74 170 168 85 80 85 69 85 85 85 80 85 85 85 85 85 88 84 0 0 0 5 80 84 170 170 170 165 80 85 85 89 85 85 88 85 85 42 21 85 80 85 84 170 133 85 80 85 82 170 161 85 80 85 74 170 168 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 88]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9977 blue:49.9977); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 0 31 255 192 31 255 224 15 255 224 0 248 0 1 252 0 3 254 0 7 255 0 7 255 0 0 0 0 31 255 192 31 255 224 15 255 224 0 248 0 1 252 0 3 254 0 7 255 0 3 255 0 0 0 0 0 0 0]) ; yourself); yourself!
+ ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 90 170 170 170 170 80 90 170 170 170 170 80 85 85 77 85 85 80 85 85 63 85 85 80 85 84 255 213 85 92 85 83 255 245 85 87 85 79 255 253 85 80 85 69 85 85 85 80 85 85 85 85 85 80 90 170 170 170 170 80 90 170 170 170 170 80 85 85 77 85 85 80 85 85 63 85 85 80 85 84 255 213 85 80 85 83 255 245 85 80 85 79 255 253 85 87 85 69 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80]) ; colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color red:0.0 green:0.0 blue:49.9977)); at:4 put:((Color grey:49.9977)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 2 63 255 240 63 255 240 0 112 0 0 248 0 1 252 0 3 254 0 7 255 0 7 255 0 0 0 0 63 255 240 63 255 243 0 112 0 0 248 0 1 252 0 3 254 0 7 255 0 7 255 0 0 0 0 0 0 0]) ; yourself); yourself!
iconAlignCenterV
"ImageEditor openOnClass:self andSelector:#iconAlignCenterV"
<resource: #image>
- ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 85 85 85 80 85 84 21 85 5 80 85 84 149 85 37 80 80 84 148 21 37 80 82 20 148 133 37 80 82 132 148 161 37 80 82 160 148 168 37 82 82 168 148 170 37 80 82 170 148 170 165 80 82 169 148 170 101 80 82 164 148 169 37 80 82 148 148 165 37 80 82 84 148 149 37 80 85 84 149 85 37 88 85 84 149 85 37 80 85 84 149 85 37 80 85 85 85 85 85 80 85 85 85 85 85 88 85 85 85 85 85 80 85 85 85 85 85 80]) ; colorMap:((OrderedCollection new add:(Color white); add:(Color black); add:(Color red:0.0 green:49.9992 blue:49.9992); add:(Color red:100.0 green:0.0 blue:0.0); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 0 1 1 128 192 1 192 224 49 216 224 57 220 224 61 222 224 63 223 224 63 223 224 63 223 224 63 223 224 63 223 224 61 222 224 57 220 224 17 200 227 1 192 224 1 192 224 0 192 96 0 0 0 0 0 3 0 0 0]) ; yourself); yourself!
+ ^(Depth2Image new) width: 22; height: 22; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(#[85 85 85 85 85 80 85 85 85 85 85 80 85 85 165 85 105 80 85 85 165 85 105 80 85 85 165 85 105 80 80 85 164 21 105 80 83 213 164 245 105 80 83 245 164 253 105 80 83 253 164 255 105 87 83 255 164 255 233 80 83 255 164 255 233 95 83 253 164 255 105 80 83 245 164 253 105 80 83 213 164 245 105 80 83 85 164 213 105 87 85 85 165 85 105 80 85 85 165 85 105 80 85 85 165 85 105 95 85 85 165 85 105 87 85 85 165 85 105 80 85 85 85 85 85 80 85 85 85 85 85 81]) ; colorMap:(((Array new:4) at:1 put:((Color white)); at:2 put:((Color black)); at:3 put:((Color red:0.0 green:0.0 blue:49.9977)); at:4 put:((Color grey:49.9977)); yourself)); mask:((Depth1Image new) width: 22; height: 22; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(#[0 0 0 0 0 0 0 192 97 0 192 96 0 192 96 48 216 96 56 220 96 60 222 96 62 223 96 63 223 224 63 223 224 63 223 224 62 223 96 60 222 96 56 220 96 16 200 99 0 192 96 0 192 96 0 192 96 0 192 96 0 0 3 0 0 0]) ; yourself); yourself!
iconAlignL
"ImageEditor openOnClass:self andSelector:#iconAlignL"
@@ -2240,12 +2238,6 @@
!
-doInstallHelp
- "install help text
- "
- self helpTool installHelpSpecInto:specClass
-!
-
doInstallHooks
"install application hooks
"
@@ -2302,7 +2294,7 @@
painter resetModification.
(ReadStream on:code) fileIn.
- "Modified: / 26.10.1997 / 15:47:48 / cg"
+ self helpTool installHelpSpecInto:specClass
!
doNew
@@ -2374,12 +2366,12 @@
].
(specClass isNil or:[specSelector size < 2]) ifTrue:[
- infoMessage := 'No class or selector defined!!'.
+ infoMessage := 'No class and selector defined!!'.
] ifFalse:[
cls := self resolveName:specClass.
cls isNil ifTrue:[
- infoMessage := 'Class not existant!!'.
+ infoMessage := 'Class does not exist!!'.
] ifFalse:[
(cls respondsTo:specSelector) ifFalse:[
infoMessage := ('No method for: #'