ImageView.st
changeset 5760 d689b29b69cc
parent 5751 1382b5b74d06
child 5777 14cf639d3fce
equal deleted inserted replaced
5759:08dbdd438639 5760:d689b29b69cc
   126         (
   126         (
   127          (MenuItem
   127          (MenuItem
   128             label: 'Size to Fit'
   128             label: 'Size to Fit'
   129             choice: adjustHolder
   129             choice: adjustHolder
   130             choiceValue: fitBig
   130             choiceValue: fitBig
       
   131             isVisible: fitBigMenuItemVisible
   131           )
   132           )
   132          (MenuItem
   133          (MenuItem
   133             label: 'Size to Fit (smooth)'
   134             label: 'Size to Fit (smooth)'
   134             choice: adjustHolder
   135             choice: adjustHolder
   135             choiceValue: smoothFitBig
   136             choiceValue: smoothFitBig
       
   137             isVisible: smoothFitBigMenuItemVisible
   136           )
   138           )
   137          (MenuItem
   139          (MenuItem
   138             label: 'Original Size'
   140             label: 'Original Size'
   139             choice: adjustHolder
   141             choice: adjustHolder
   140             choiceValue: topLeft
   142             choiceValue: topLeft
   143             label: 'Magnify'
   145             label: 'Magnify'
   144             submenu: 
   146             submenu: 
   145            (Menu
   147            (Menu
   146               (
   148               (
   147                (MenuItem
   149                (MenuItem
       
   150                   label: '* 0.5'
       
   151                   itemValue: magnifyBy:
       
   152                   argument: 0.5
       
   153                 )
       
   154                (MenuItem
       
   155                   label: '* 0.75'
       
   156                   itemValue: magnifyBy:
       
   157                   argument: 0.75
       
   158                 )
       
   159                (MenuItem
       
   160                   label: '* 1'
       
   161                   itemValue: magnifyBy:
       
   162                   argument: 1
       
   163                 )
       
   164                (MenuItem
   148                   label: '* 2'
   165                   label: '* 2'
   149                   itemValue: magnifyBy:
   166                   itemValue: magnifyBy:
   150                   argument: 2
   167                   argument: 2
   151                 )
   168                 )
   152                (MenuItem
   169                (MenuItem
   154                   itemValue: magnifyBy:
   171                   itemValue: magnifyBy:
   155                   argument: 4
   172                   argument: 4
   156                 )
   173                 )
   157                (MenuItem
   174                (MenuItem
   158                   label: '-'
   175                   label: '-'
       
   176                   isVisible: smoothingMenuItemVisible
   159                 )
   177                 )
   160                (MenuItem
   178                (MenuItem
   161                   label: 'Smoothing'
   179                   label: 'Smoothing'
   162                   indication: forceSmoothingHolder
   180                   indication: forceSmoothingHolder
       
   181                   isVisible: smoothingMenuItemVisible
   163                 )
   182                 )
   164                )
   183                )
   165               nil
   184               nil
   166               nil
   185               nil
   167             )
   186             )
   979 
   998 
   980     "Created: / 16-02-2017 / 19:01:41 / cg"
   999     "Created: / 16-02-2017 / 19:01:41 / cg"
   981     "Modified: / 19-02-2017 / 23:01:14 / cg"
  1000     "Modified: / 19-02-2017 / 23:01:14 / cg"
   982 !
  1001 !
   983 
  1002 
       
  1003 fitBigMenuItemVisible
       
  1004     ^ true
       
  1005 !
       
  1006 
   984 magnifyBy:scale
  1007 magnifyBy:scale
   985     self adjustHolder value:#Mag.
  1008     self adjustHolder value:#Mag.
   986     self adjust:#topLeft.
  1009     self adjust:#topLeft.
   987     self magnificationFactor:scale.
  1010     self magnificationFactor:scale.
   988 
  1011 
  1012     ].
  1035     ].
  1013 !
  1036 !
  1014 
  1037 
  1015 saveImageAs:filename
  1038 saveImageAs:filename
  1016     PNGReader save:image onFile:filename
  1039     PNGReader save:image onFile:filename
       
  1040 !
       
  1041 
       
  1042 smoothFitBigMenuItemVisible
       
  1043     ^ true
       
  1044 !
       
  1045 
       
  1046 smoothingMenuItemVisible
       
  1047     ^ true
  1017 ! !
  1048 ! !
  1018 
  1049 
  1019 !ImageView methodsFor:'queries'!
  1050 !ImageView methodsFor:'queries'!
  1020 
  1051 
  1021 heightOfContents
  1052 heightOfContents