ImageEditor.st
changeset 2424 12831cc181ba
parent 2423 0c5ac1daf0e4
child 2438 bbe9cdf5dac4
equal deleted inserted replaced
2423:0c5ac1daf0e4 2424:12831cc181ba
  2140             activeHelpKey: edit3DProjection
  2140             activeHelpKey: edit3DProjection
  2141             label: '3D Projection...'
  2141             label: '3D Projection...'
  2142             itemValue: do3DProjection
  2142             itemValue: do3DProjection
  2143             translateLabel: true
  2143             translateLabel: true
  2144           )
  2144           )
  2145 
       
  2146          (MenuItem
  2145          (MenuItem
  2147             label: 'Flip'
  2146             label: 'Flip'
  2148             translateLabel: true
  2147             translateLabel: true
  2149             submenu: 
  2148             submenu: 
  2150            (Menu
  2149            (Menu
  2258          (MenuItem
  2257          (MenuItem
  2259             label: 'Text...'
  2258             label: 'Text...'
  2260             itemValue: doInsertTextFromUser
  2259             itemValue: doInsertTextFromUser
  2261             translateLabel: true
  2260             translateLabel: true
  2262           )
  2261           )
       
  2262 
  2263          )
  2263          )
  2264         nil
  2264         nil
  2265         nil
  2265         nil
  2266       )
  2266       )
  2267 
       
  2268     "Modified: / 11-11-2007 / 12:19:32 / cg"
       
  2269 !
  2267 !
  2270 
  2268 
  2271 menuFile
  2269 menuFile
  2272     "This resource specification was automatically generated
  2270     "This resource specification was automatically generated
  2273      by the MenuEditor of ST/X."
  2271      by the MenuEditor of ST/X."
  5204 !
  5202 !
  5205 
  5203 
  5206 doInsertTextFromUser
  5204 doInsertTextFromUser
  5207     |text tempForm tempImage maskImage font w h|
  5205     |text tempForm tempImage maskImage font w h|
  5208 
  5206 
  5209     text := Dialog request:'Text to be inserted:'.
  5207     text := Dialog request:'Text to be inserted (placed as bitmap into clipboard for paste):'.
       
  5208     text isEmptyOrNil ifTrue:[^ self ].
  5210 
  5209 
  5211     font := Font family:'arial' size:20.
  5210     font := Font family:'arial' size:20.
  5212     font := font onDevice:Screen current.
  5211     font := font onDevice:Screen current.
  5213     w := font widthOf:text.
  5212     w := font widthOf:text.
  5214     h := font heightOf:text.
  5213     h := font heightOf:text.