ImageEditor.st
changeset 3530 e26aace861c6
parent 3526 d27e02006468
child 3535 e8ad4febf6f4
equal deleted inserted replaced
3529:54d629e6e42c 3530:e26aace861c6
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 1997-1998 by eXept Software AG
     4  COPYRIGHT (c) 1997-1998 by eXept Software AG
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
    44 documentation
    46 documentation
    45 "
    47 "
    46     Image Editor allows you to create, design, modify or just inspect images.
    48     Image Editor allows you to create, design, modify or just inspect images.
    47     It is also used subclasses as a tool to post-process captured screen images and
    49     It is also used subclasses as a tool to post-process captured screen images and
    48     bitmaps in expecco.
    50     bitmaps in expecco.
       
    51 
       
    52     The actual drawing functionality is found in ImageEditView;
       
    53     the code here (an appModel) provides nice menus, previews, colormap manipulation etc.
    49 
    54 
    50     [start with:]
    55     [start with:]
    51         ImageEditor open
    56         ImageEditor open
    52         ImageEditor openOnClass:Icon andSelector:#startIcon
    57         ImageEditor openOnClass:Icon andSelector:#startIcon
    53         (Image fromFile:'../../goodies/bitmaps/gifImages/garfield.gif') edit
    58         (Image fromFile:'../../goodies/bitmaps/gifImages/garfield.gif') edit
  5691     resourceClass notNil ifTrue:[
  5696     resourceClass notNil ifTrue:[
  5692         resourceSelector := imageEditView resourceSelector.
  5697         resourceSelector := imageEditView resourceSelector.
  5693         resourceSelector notNil ifTrue:[
  5698         resourceSelector notNil ifTrue:[
  5694             ^ resources 
  5699             ^ resources 
  5695                     string:(self modified 
  5700                     string:(self modified 
  5696                             ifTrue:['Image (modified) from: %1 » %2']
  5701                             ifTrue:['Image (modified) from: %1 » %2']
  5697                             ifFalse:['Image from: %1 » %2'])
  5702                             ifFalse:['Image from: %1 » %2'])
  5698                     with:resourceClass name
  5703                     with:resourceClass name
  5699                     with:resourceSelector
  5704                     with:resourceSelector
  5700         ].
  5705         ].
  5701     ].
  5706     ].
  5702     
  5707