--- a/ImageEditor.st Fri Mar 20 19:06:06 1998 +0100
+++ b/ImageEditor.st Fri Mar 20 19:08:02 1998 +0100
@@ -35,7 +35,7 @@
documentation
"
- By the Image Editor you are able to create, design, modify or just inspect images.
+ Image Editor allows you to create, design, modify or just inspect images.
[start with:]
ImageEditor open
@@ -156,14 +156,19 @@
!ImageEditor class methodsFor:'help specs'!
helpSpec
- "return a dictionary filled with helpKey -> helptext associations.
- These are used by the activeHelp tool."
+ "This resource specification was automatically generated
+ by the UIHelpTool of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:ImageEditor
+ UIHelpTool openOnClass:ImageEditor
"
- ^ super helpSpec addPairsFrom:#(
+ <resource: #help>
+
+ ^super helpSpec addPairsFrom:#(
#colorMap
'Increases or reduces size of color map of the image.'
@@ -249,19 +254,56 @@
)
! !
+!ImageEditor class methodsFor:'image specs'!
+
+leftMouseKeyIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'ImageEditor leftMouseKeyIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@JEE@@B!!QP@@(TT@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]!
+
+rightMouseKeyIcon
+ "This resource specification was automatically generated
+ by the ImageEditor of ST/X."
+
+ "Do not manually edit this!! If it is corrupted,
+ the ImageEditor may not be able to read the specification."
+
+ "
+ ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon
+ "
+
+ <resource: #image>
+
+ ^Icon
+ constantNamed:#'ImageEditor rightMouseKeyIcon'
+ ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@EEJ@@AQR @@TT(@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]! !
+
!ImageEditor class methodsFor:'interface specs'!
windowSpec
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:ImageEditor andSelector:#windowSpec
ImageEditor new openInterface:#windowSpec
+ ImageEditor open
"
- "ImageEditor open"
<resource: #canvas>
@@ -271,11 +313,11 @@
#window:
#(#WindowSpec
#name: 'Image Editor'
- #layout: #(#LayoutFrame 153 0 246 0 652 0 591 0)
+ #layout: #(#LayoutFrame 392 0 309 0 891 0 654 0)
#label: 'Image Editor'
#min: #(#Point 400 320)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 153 246 653 592)
+ #bounds: #(#Rectangle 392 309 892 655)
#menu: #menu
#usePreferredExtent: false
)
@@ -447,10 +489,11 @@
!
windowSpecForNewImage
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:ImageEditor andSelector:#windowSpecForNewImage
@@ -465,11 +508,11 @@
#window:
#(#WindowSpec
#name: 'New Image'
- #layout: #(#LayoutFrame 328 0 326 0 628 0 430 0)
+ #layout: #(#LayoutFrame 240 0 278 0 540 0 382 0)
#label: 'New Image'
#min: #(#Point 10 10)
#max: #(#Point 1152 900)
- #bounds: #(#Rectangle 328 326 629 431)
+ #bounds: #(#Rectangle 240 278 541 383)
#usePreferredExtent: false
)
#component:
@@ -478,14 +521,14 @@
#(
#(#ViewSpec
#name: 'View'
- #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -37 1.0)
+ #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -35 1.0)
#component:
#(#SpecCollection
#collection:
#(
#(#FramedBoxSpec
#name: 'framedBox1'
- #layout: #(#LayoutFrame 1 0.0 1 0.0 0 0.4 60 0)
+ #layout: #(#LayoutFrame 1 0.0 7 0.0 0 0.4 66 0)
#component:
#(#SpecCollection
#collection:
@@ -505,7 +548,7 @@
)
#(#FramedBoxSpec
#name: 'framedBox2'
- #layout: #(#LayoutFrame 0 0.4 1 0.0 -1 1.0 60 0)
+ #layout: #(#LayoutFrame 0 0.4 7 0.0 -1 1.0 66 0)
#component:
#(#SpecCollection
#collection:
@@ -529,7 +572,7 @@
)
#(#UISubSpecification
#name: 'UISubSpecification1'
- #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 -6 1.0)
+ #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
#majorKey: #ToolApplicationModel
#minorKey: #windowSpecForCommitWithoutChannels
)
@@ -541,10 +584,11 @@
!ImageEditor class methodsFor:'menu specs'!
menu
- "this window spec was automatically generated by the ST/X MenuEditor"
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
- "do not manually edit this - the builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:ImageEditor andSelector:#menu
@@ -777,6 +821,20 @@
#submenuChannel: #menuHistory
)
#(#MenuItem
+ #label: 'Settings'
+ #submenu:
+ #(#Menu
+
+ #(
+ #(#MenuItem
+ #label: 'Fonts'
+ #submenuChannel: #menuFont
+ )
+ ) nil
+ nil
+ )
+ )
+ #(#MenuItem
#label: 'Help'
#startGroup: #right
#activeHelpKey: #help
@@ -788,10 +846,11 @@
!
menuMouseButtonColors
- "this window spec was automatically generated by the ST/X MenuEditor"
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
- "do not manually edit this - the builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:ImageEditor andSelector:#menuMouseButtonColors
@@ -827,10 +886,11 @@
!
menuToolbar
- "this window spec was automatically generated by the ST/X MenuEditor"
+ "This resource specification was automatically generated
+ by the MenuEditor of ST/X."
- "do not manually edit this - the builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the MenuEditor may not be able to read the specification."
"
MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar
@@ -925,32 +985,6 @@
)
! !
-!ImageEditor class methodsFor:'resources'!
-
-leftMouseKeyIcon
- "Generated by the Image Editor"
- "
- ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon
- "
-
- <resource: #image>
-
- ^Icon
- constantNamed:#'ImageEditor leftMouseKeyIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@JEE@@B!!QP@@(TT@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]!
-
-rightMouseKeyIcon
- "Generated by the Image Editor"
- "
- ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon
- "
-
- <resource: #image>
-
- ^Icon
- constantNamed:#'ImageEditor rightMouseKeyIcon'
- ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@EEJ@@AQR @@TT(@@@@@@@AUUP@@UUT@@EUU@@AUUP@@UUT@@EUU@@@UU@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@?0G? _>A?8G? _>A?8G? _>A?8G? O<@_ @@@b') ; yourself); yourself]! !
-
!ImageEditor methodsFor:'accessing'!
image