ImageEditor.st
changeset 737 ed5b109a0f91
parent 732 9320f2f0ae6e
child 756 52a76ec8828d
equal deleted inserted replaced
736:6db5efc5df90 737:ed5b109a0f91
    33 "
    33 "
    34 !
    34 !
    35 
    35 
    36 documentation
    36 documentation
    37 "
    37 "
    38     By the Image Editor you are able to create, design, modify or just inspect images.
    38     Image Editor allows you to create, design, modify or just inspect images.
    39 
    39 
    40     [start with:]
    40     [start with:]
    41         ImageEditor open
    41         ImageEditor open
    42         ImageEditor openOnClass:ImageEditor andSelector:#newImageIcon
    42         ImageEditor openOnClass:ImageEditor andSelector:#newImageIcon
    43 
    43 
   154 ! !
   154 ! !
   155 
   155 
   156 !ImageEditor class methodsFor:'help specs'!
   156 !ImageEditor class methodsFor:'help specs'!
   157 
   157 
   158 helpSpec
   158 helpSpec
   159     "return a dictionary filled with helpKey -> helptext associations.
   159     "This resource specification was automatically generated
   160      These are used by the activeHelp tool."
   160      by the UIHelpTool of ST/X."
       
   161 
       
   162     "Do not manually edit this!! If it is corrupted,
       
   163      the UIHelpTool may not be able to read the specification."
   161 
   164 
   162     "
   165     "
   163     UIHelpTool openOnClass:ImageEditor    
   166      UIHelpTool openOnClass:ImageEditor    
   164     "
   167     "
   165 
   168 
   166   ^ super helpSpec addPairsFrom:#(
   169     <resource: #help>
       
   170 
       
   171     ^super helpSpec addPairsFrom:#(
   167 
   172 
   168 #colorMap
   173 #colorMap
   169 'Increases or reduces size of color map of the image.'
   174 'Increases or reduces size of color map of the image.'
   170 
   175 
   171 #colorMapTable
   176 #colorMapTable
   247 'Shows preview of the image.'
   252 'Shows preview of the image.'
   248 
   253 
   249 )
   254 )
   250 ! !
   255 ! !
   251 
   256 
       
   257 !ImageEditor class methodsFor:'image specs'!
       
   258 
       
   259 leftMouseKeyIcon
       
   260     "This resource specification was automatically generated
       
   261      by the ImageEditor of ST/X."
       
   262 
       
   263     "Do not manually edit this!! If it is corrupted,
       
   264      the ImageEditor may not be able to read the specification."
       
   265 
       
   266     "
       
   267      ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon
       
   268     "
       
   269 
       
   270     <resource: #image>
       
   271 
       
   272     ^Icon
       
   273         constantNamed:#'ImageEditor leftMouseKeyIcon'
       
   274         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]!
       
   275 
       
   276 rightMouseKeyIcon
       
   277     "This resource specification was automatically generated
       
   278      by the ImageEditor of ST/X."
       
   279 
       
   280     "Do not manually edit this!! If it is corrupted,
       
   281      the ImageEditor may not be able to read the specification."
       
   282 
       
   283     "
       
   284      ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon
       
   285     "
       
   286 
       
   287     <resource: #image>
       
   288 
       
   289     ^Icon
       
   290         constantNamed:#'ImageEditor rightMouseKeyIcon'
       
   291         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]! !
       
   292 
   252 !ImageEditor class methodsFor:'interface specs'!
   293 !ImageEditor class methodsFor:'interface specs'!
   253 
   294 
   254 windowSpec
   295 windowSpec
   255     "this window spec was automatically generated by the ST/X UIPainter"
   296     "This resource specification was automatically generated
   256 
   297      by the UIPainter of ST/X."
   257     "do not manually edit this - the painter/builder may not be able to
   298 
   258      handle the specification if its corrupted."
   299     "Do not manually edit this!! If it is corrupted,
       
   300      the UIPainter may not be able to read the specification."
   259 
   301 
   260     "
   302     "
   261      UIPainter new openOnClass:ImageEditor andSelector:#windowSpec
   303      UIPainter new openOnClass:ImageEditor andSelector:#windowSpec
   262      ImageEditor new openInterface:#windowSpec
   304      ImageEditor new openInterface:#windowSpec
       
   305      ImageEditor open
   263     "
   306     "
   264     "ImageEditor open"
       
   265 
   307 
   266     <resource: #canvas>
   308     <resource: #canvas>
   267 
   309 
   268     ^
   310     ^
   269      
   311      
   270        #(#FullSpec
   312        #(#FullSpec
   271           #window: 
   313           #window: 
   272            #(#WindowSpec
   314            #(#WindowSpec
   273               #name: 'Image Editor'
   315               #name: 'Image Editor'
   274               #layout: #(#LayoutFrame 153 0 246 0 652 0 591 0)
   316               #layout: #(#LayoutFrame 392 0 309 0 891 0 654 0)
   275               #label: 'Image Editor'
   317               #label: 'Image Editor'
   276               #min: #(#Point 400 320)
   318               #min: #(#Point 400 320)
   277               #max: #(#Point 1152 900)
   319               #max: #(#Point 1152 900)
   278               #bounds: #(#Rectangle 153 246 653 592)
   320               #bounds: #(#Rectangle 392 309 892 655)
   279               #menu: #menu
   321               #menu: #menu
   280               #usePreferredExtent: false
   322               #usePreferredExtent: false
   281           )
   323           )
   282           #component: 
   324           #component: 
   283            #(#SpecCollection
   325            #(#SpecCollection
   445           )
   487           )
   446       )
   488       )
   447 !
   489 !
   448 
   490 
   449 windowSpecForNewImage
   491 windowSpecForNewImage
   450     "this window spec was automatically generated by the ST/X UIPainter"
   492     "This resource specification was automatically generated
   451 
   493      by the UIPainter of ST/X."
   452     "do not manually edit this - the painter/builder may not be able to
   494 
   453      handle the specification if its corrupted."
   495     "Do not manually edit this!! If it is corrupted,
       
   496      the UIPainter may not be able to read the specification."
   454 
   497 
   455     "
   498     "
   456      UIPainter new openOnClass:ImageEditor andSelector:#windowSpecForNewImage
   499      UIPainter new openOnClass:ImageEditor andSelector:#windowSpecForNewImage
   457      ImageEditor new openInterface:#windowSpecForNewImage
   500      ImageEditor new openInterface:#windowSpecForNewImage
   458     "
   501     "
   463      
   506      
   464        #(#FullSpec
   507        #(#FullSpec
   465           #window: 
   508           #window: 
   466            #(#WindowSpec
   509            #(#WindowSpec
   467               #name: 'New Image'
   510               #name: 'New Image'
   468               #layout: #(#LayoutFrame 328 0 326 0 628 0 430 0)
   511               #layout: #(#LayoutFrame 240 0 278 0 540 0 382 0)
   469               #label: 'New Image'
   512               #label: 'New Image'
   470               #min: #(#Point 10 10)
   513               #min: #(#Point 10 10)
   471               #max: #(#Point 1152 900)
   514               #max: #(#Point 1152 900)
   472               #bounds: #(#Rectangle 328 326 629 431)
   515               #bounds: #(#Rectangle 240 278 541 383)
   473               #usePreferredExtent: false
   516               #usePreferredExtent: false
   474           )
   517           )
   475           #component: 
   518           #component: 
   476            #(#SpecCollection
   519            #(#SpecCollection
   477               #collection: 
   520               #collection: 
   478                #(
   521                #(
   479                  #(#ViewSpec
   522                  #(#ViewSpec
   480                     #name: 'View'
   523                     #name: 'View'
   481                     #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -37 1.0)
   524                     #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 -35 1.0)
   482                     #component: 
   525                     #component: 
   483                      #(#SpecCollection
   526                      #(#SpecCollection
   484                         #collection: 
   527                         #collection: 
   485                          #(
   528                          #(
   486                            #(#FramedBoxSpec
   529                            #(#FramedBoxSpec
   487                               #name: 'framedBox1'
   530                               #name: 'framedBox1'
   488                               #layout: #(#LayoutFrame 1 0.0 1 0.0 0 0.4 60 0)
   531                               #layout: #(#LayoutFrame 1 0.0 7 0.0 0 0.4 66 0)
   489                               #component: 
   532                               #component: 
   490                                #(#SpecCollection
   533                                #(#SpecCollection
   491                                   #collection: 
   534                                   #collection: 
   492                                    #(
   535                                    #(
   493                                      #(#ComboBoxSpec
   536                                      #(#ComboBoxSpec
   503                               #labelPosition: #topLeft
   546                               #labelPosition: #topLeft
   504                               #style: #(#FontDescription #helvetica #medium #roman 12)
   547                               #style: #(#FontDescription #helvetica #medium #roman 12)
   505                           )
   548                           )
   506                            #(#FramedBoxSpec
   549                            #(#FramedBoxSpec
   507                               #name: 'framedBox2'
   550                               #name: 'framedBox2'
   508                               #layout: #(#LayoutFrame 0 0.4 1 0.0 -1 1.0 60 0)
   551                               #layout: #(#LayoutFrame 0 0.4 7 0.0 -1 1.0 66 0)
   509                               #component: 
   552                               #component: 
   510                                #(#SpecCollection
   553                                #(#SpecCollection
   511                                   #collection: 
   554                                   #collection: 
   512                                    #(
   555                                    #(
   513                                      #(#ComboListSpec
   556                                      #(#ComboListSpec
   527                     )
   570                     )
   528                     #level: 1
   571                     #level: 1
   529                 )
   572                 )
   530                  #(#UISubSpecification
   573                  #(#UISubSpecification
   531                     #name: 'UISubSpecification1'
   574                     #name: 'UISubSpecification1'
   532                     #layout: #(#LayoutFrame 0 0.0 -30 1 0 1.0 -6 1.0)
   575                     #layout: #(#LayoutFrame 2 0.0 -26 1 -2 1.0 -2 1.0)
   533                     #majorKey: #ToolApplicationModel
   576                     #majorKey: #ToolApplicationModel
   534                     #minorKey: #windowSpecForCommitWithoutChannels
   577                     #minorKey: #windowSpecForCommitWithoutChannels
   535                 )
   578                 )
   536               )
   579               )
   537           )
   580           )
   539 ! !
   582 ! !
   540 
   583 
   541 !ImageEditor class methodsFor:'menu specs'!
   584 !ImageEditor class methodsFor:'menu specs'!
   542 
   585 
   543 menu
   586 menu
   544     "this window spec was automatically generated by the ST/X MenuEditor"
   587     "This resource specification was automatically generated
   545 
   588      by the MenuEditor of ST/X."
   546     "do not manually edit this - the builder may not be able to
   589 
   547      handle the specification if its corrupted."
   590     "Do not manually edit this!! If it is corrupted,
       
   591      the MenuEditor may not be able to read the specification."
   548 
   592 
   549     "
   593     "
   550      MenuEditor new openOnClass:ImageEditor andSelector:#menu
   594      MenuEditor new openOnClass:ImageEditor andSelector:#menu
   551      (Menu new fromLiteralArrayEncoding:(ImageEditor menu)) startUp
   595      (Menu new fromLiteralArrayEncoding:(ImageEditor menu)) startUp
   552     "
   596     "
   775                 #label: 'History'
   819                 #label: 'History'
   776                 #activeHelpKey: #history
   820                 #activeHelpKey: #history
   777                 #submenuChannel: #menuHistory
   821                 #submenuChannel: #menuHistory
   778             )
   822             )
   779              #(#MenuItem
   823              #(#MenuItem
       
   824                 #label: 'Settings'
       
   825                 #submenu: 
       
   826                  #(#Menu
       
   827                     
       
   828                      #(
       
   829                        #(#MenuItem
       
   830                           #label: 'Fonts'
       
   831                           #submenuChannel: #menuFont
       
   832                       )
       
   833                     ) nil
       
   834                     nil
       
   835                 )
       
   836             )
       
   837              #(#MenuItem
   780                 #label: 'Help'
   838                 #label: 'Help'
   781                 #startGroup: #right
   839                 #startGroup: #right
   782                 #activeHelpKey: #help
   840                 #activeHelpKey: #help
   783                 #submenuChannel: #menuHelp
   841                 #submenuChannel: #menuHelp
   784             )
   842             )
   786           nil
   844           nil
   787       )
   845       )
   788 !
   846 !
   789 
   847 
   790 menuMouseButtonColors
   848 menuMouseButtonColors
   791     "this window spec was automatically generated by the ST/X MenuEditor"
   849     "This resource specification was automatically generated
   792 
   850      by the MenuEditor of ST/X."
   793     "do not manually edit this - the builder may not be able to
   851 
   794      handle the specification if its corrupted."
   852     "Do not manually edit this!! If it is corrupted,
       
   853      the MenuEditor may not be able to read the specification."
   795 
   854 
   796     "
   855     "
   797      MenuEditor new openOnClass:ImageEditor andSelector:#menuMouseButtonColors
   856      MenuEditor new openOnClass:ImageEditor andSelector:#menuMouseButtonColors
   798      (Menu new fromLiteralArrayEncoding:(ImageEditor menuMouseButtonColors)) startUp
   857      (Menu new fromLiteralArrayEncoding:(ImageEditor menuMouseButtonColors)) startUp
   799     "
   858     "
   825           nil
   884           nil
   826       )
   885       )
   827 !
   886 !
   828 
   887 
   829 menuToolbar
   888 menuToolbar
   830     "this window spec was automatically generated by the ST/X MenuEditor"
   889     "This resource specification was automatically generated
   831 
   890      by the MenuEditor of ST/X."
   832     "do not manually edit this - the builder may not be able to
   891 
   833      handle the specification if its corrupted."
   892     "Do not manually edit this!! If it is corrupted,
       
   893      the MenuEditor may not be able to read the specification."
   834 
   894 
   835     "
   895     "
   836      MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar
   896      MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar
   837      (Menu new fromLiteralArrayEncoding:(ImageEditor menuToolbar)) startUp
   897      (Menu new fromLiteralArrayEncoding:(ImageEditor menuToolbar)) startUp
   838     "
   898     "
   922             )
   982             )
   923           ) nil
   983           ) nil
   924           nil
   984           nil
   925       )
   985       )
   926 ! !
   986 ! !
   927 
       
   928 !ImageEditor class methodsFor:'resources'!
       
   929 
       
   930 leftMouseKeyIcon
       
   931     "Generated by the Image Editor"
       
   932     "
       
   933     ImageEditor openOnClass:self andSelector:#leftMouseKeyIcon
       
   934     "
       
   935 
       
   936     <resource: #image>
       
   937 
       
   938     ^Icon
       
   939         constantNamed:#'ImageEditor leftMouseKeyIcon'
       
   940         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]!
       
   941 
       
   942 rightMouseKeyIcon
       
   943     "Generated by the Image Editor"
       
   944     "
       
   945     ImageEditor openOnClass:self andSelector:#rightMouseKeyIcon
       
   946     "
       
   947 
       
   948     <resource: #image>
       
   949 
       
   950     ^Icon
       
   951         constantNamed:#'ImageEditor rightMouseKeyIcon'
       
   952         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]! !
       
   953 
   987 
   954 !ImageEditor methodsFor:'accessing'!
   988 !ImageEditor methodsFor:'accessing'!
   955 
   989 
   956 image
   990 image
   957 
   991