# HG changeset patch # User tz # Date 890417282 -3600 # Node ID ed5b109a0f917607ce917a972d25207e488b0244 # Parent 6db5efc5df90dff216e5bc1326fc49322082beea user can define own fonts diff -r 6db5efc5df90 -r ed5b109a0f91 ImageEditor.st --- 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:#( + + + ^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 + " + + + + ^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 + " + + + + ^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" @@ -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 - " - - - - ^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 - " - - - - ^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