UIPainterView.st
changeset 115 e4200c506aad
parent 111 c6699a14d3d9
child 119 39acd704ad51
equal deleted inserted replaced
114:93cd25c62a68 115:e4200c506aad
    75 menu
    75 menu
    76 
    76 
    77   ^ #(#Menu #(
    77   ^ #(#Menu #(
    78         #(#MenuItem
    78         #(#MenuItem
    79                 #'label:' 'copy'
    79                 #'label:' 'copy'
    80                 #'nameKey:' #copySelection
    80                 #'value:' #copySelection
    81                 #'shortcutKeyCharacter:' #Copy
    81                 #'shortcutKeyCharacter:' #Copy
    82          )
    82          )
    83         #(#MenuItem
    83         #(#MenuItem
    84                 #'label:' 'cut'
    84                 #'label:' 'cut'
    85                 #'nameKey:' #deleteSelection
    85                 #'value:' #deleteSelection
    86                 #'shortcutKeyCharacter:' #Cut
    86                 #'shortcutKeyCharacter:' #Cut
    87          )
    87          )
    88         #(#MenuItem
    88         #(#MenuItem
    89                 #'label:' 'paste'
    89                 #'label:'   'paste'
    90                 #'nameKey:' #paste
    90                 #'nameKey:' #paste
       
    91                 #'value:'   #paste
    91                 #'submenu:'
    92                 #'submenu:'
    92                         #(#Menu #(
    93                         #(#Menu #(
    93                                 #(#MenuItem
    94                                 #(#MenuItem
    94                                         #'label:' 'paste'
    95                                         #'label:' 'paste'
    95                                         #'nameKey:' #pasteBuffer
    96                                         #'value:' #pasteBuffer
    96                                         #'shortcutKeyCharacter:' #Paste
    97                                         #'shortcutKeyCharacter:' #Paste
    97                                  )
    98                                  )
    98                                 #(#MenuItem
    99                                 #(#MenuItem
    99                                         #'label:' 'keep layout'
   100                                         #'label:' 'keep layout'
   100                                         #'nameKey:' #pasteWithLayout
   101                                         #'value:' #pasteWithLayout
   101                                  )
   102                                  )
   102                                 )
   103                                 )
   103                                 nil 
   104                                 nil 
   104                                 nil
   105                                 nil
   105                          )
   106                          )
   106           )
   107           )
   107          #(#MenuItem
   108          #(#MenuItem
   108                 #'label:' 'undo'
   109                 #'label:'   'undo'
   109                 #'nameKey:' #undoLast)
   110                 #'nameKey:' #undo
       
   111                 #'value:'   #undoLast)
   110          #(#MenuItem
   112          #(#MenuItem
   111                 #'label:' 'arrange'
   113                 #'label:' 'arrange'
   112                 #'nameKey:' #arrange
   114                 #'value:' #arrange
   113                 #'submenu:'
   115                 #'submenu:'
   114                         #(#Menu #(
   116                         #(#Menu #(
   115                                 #(#MenuItem
   117                                 #(#MenuItem
   116                                         #'label:' 'to front'
   118                                         #'label:' 'to front'
   117                                         #'nameKey:' #raiseSelection
   119                                         #'value:' #raiseSelection
   118                                  )
   120                                  )
   119                                 #(#MenuItem
   121                                 #(#MenuItem
   120                                         #'label:' 'to back'
   122                                         #'label:' 'to back'
   121                                         #'nameKey:' #lowerSelection
   123                                         #'value:' #lowerSelection
   122                                  )
   124                                  )
   123                                 )
   125                                 )
   124                                 nil
   126                                 nil
   125                                 nil
   127                                 nil
   126                           )
   128                           )
   127           )
   129           )
   128          #(#MenuItem
   130          #(#MenuItem
   129                 #'label:' 'dimension'
   131                 #'label:' 'dimension'
   130                 #'nameKey:' #dimension
   132                 #'value:' #dimension
   131                 #'submenu:'
   133                 #'submenu:'
   132                         #(#Menu #(
   134                         #(#Menu #(
   133                                 #(#MenuItem
   135                                 #(#MenuItem
   134                                         #'label:' 'default extent'
   136                                         #'label:' 'default extent'
   135                                         #'nameKey:' #setToDefaultExtent
   137                                         #'value:' #setToDefaultExtent
   136                                  )
   138                                  )
   137                                 #(#MenuItem
   139                                 #(#MenuItem
   138                                         #'label:' 'default width'
   140                                         #'label:' 'default width'
   139                                         #'nameKey:' #setToDefaultWidth
   141                                         #'value:' #setToDefaultWidth
   140                                  )
   142                                  )
   141                                 #(#MenuItem
   143                                 #(#MenuItem
   142                                         #'label:' 'default height'
   144                                         #'label:' 'default height'
   143                                         #'nameKey:' #setToDefaultHeight
   145                                         #'value:' #setToDefaultHeight
   144                                  )
   146                                  )
   145                                 #(#MenuItem
   147                                 #(#MenuItem
   146                                         #'label:' 'copy extent'
   148                                         #'label:' 'copy extent'
   147                                         #'nameKey:' #copyExtent
   149                                         #'value:' #copyExtent
   148                                  )
   150                                  )
   149                                 #(#MenuItem
   151                                 #(#MenuItem
   150                                         #'label:' 'paste extent'
   152                                         #'label:' 'paste extent'
   151                                         #'nameKey:' #pasteExtent
   153                                         #'value:' #pasteExtent
   152                                  )
   154                                  )
   153                                 #(#MenuItem
   155                                 #(#MenuItem
   154                                         #'label:' 'paste width'
   156                                         #'label:' 'paste width'
   155                                         #'nameKey:' #pasteWidth
   157                                         #'value:' #pasteWidth
   156                                  )
   158                                  )
   157                                 #(#MenuItem
   159                                 #(#MenuItem
   158                                         #'label:' 'paste height'
   160                                         #'label:' 'paste height'
   159                                         #'nameKey:' #pasteHeight
   161                                         #'value:' #pasteHeight
   160                                  )
   162                                  )
   161                                 #(#MenuItem
   163                                 #(#MenuItem
   162                                         #'label:' 'copy  layout'
   164                                         #'label:' 'copy  layout'
   163                                         #'nameKey:' #copyLayout
   165                                         #'value:' #copyLayout
   164                                  )
   166                                  )
   165                                 #(#MenuItem
   167                                 #(#MenuItem
   166                                         #'label:' 'paste layout'
   168                                         #'label:' 'paste layout'
   167                                         #'nameKey:' #pasteLayout
   169                                         #'value:' #pasteLayout
   168                                  )
   170                                  )
   169                                 )
   171                                 )
   170                                 #(3 1 3) 
   172                                 #(3 1 3) 
   171                                 nil
   173                                 nil
   172                         )
   174                         )
   173          )
   175          )
   174         #(#MenuItem
   176         #(#MenuItem
   175                 #'label:' 'align'
   177                 #'label:' 'align'
   176                 #'nameKey:' #align
   178                 #'value:' #align
   177                 #'submenu:'
   179                 #'submenu:'
   178                         #(#Menu #(
   180                         #(#Menu #(
   179                                 #(#MenuItem
   181                                 #(#MenuItem
   180                                         #'label:' 'align left'
   182                                         #'label:' 'align left'
   181                                         #'nameKey:' #alignSelectionLeft
   183                                         #'value:' #alignSelectionLeft
   182                                  )
   184                                  )
   183                                 #(#MenuItem
   185                                 #(#MenuItem
   184                                         #'label:' 'align right'
   186                                         #'label:' 'align right'
   185                                         #'nameKey:' #alignSelectionRight
   187                                         #'value:' #alignSelectionRight
   186                                  )
   188                                  )
   187                                 #(#MenuItem
   189                                 #(#MenuItem
   188                                         #'label:' 'align left & right'
   190                                         #'label:' 'align left & right'
   189                                         #'nameKey:' #alignSelectionLeftAndRight
   191                                         #'value:' #alignSelectionLeftAndRight
   190                                  )
   192                                  )
   191                                 #(#MenuItem
   193                                 #(#MenuItem
   192                                         #'label:' 'align top'
   194                                         #'label:' 'align top'
   193                                         #'nameKey:' #alignSelectionTop
   195                                         #'value:' #alignSelectionTop
   194                                  )
   196                                  )
   195                                 #(#MenuItem
   197                                 #(#MenuItem
   196                                         #'label:' 'align bottom' #'nameKey:'
   198                                         #'label:' 'align bottom' #'value:'
   197                                         #alignSelectionBottom
   199                                         #alignSelectionBottom
   198                                  )
   200                                  )
   199                                 #(#MenuItem
   201                                 #(#MenuItem
   200                                         #'label:' 'align centered vertical'
   202                                         #'label:' 'align centered vertical'
   201                                         #'nameKey:' #alignSelectionCenterHor
   203                                         #'value:' #alignSelectionCenterHor
   202                                  )
   204                                  )
   203                                 #(#MenuItem
   205                                 #(#MenuItem
   204                                         #'label:' 'align centered horizontal'
   206                                         #'label:' 'align centered horizontal'
   205                                         #'nameKey:' #alignSelectionCenterVer
   207                                         #'value:' #alignSelectionCenterVer
   206                                  )
   208                                  )
   207                                 #(#MenuItem
   209                                 #(#MenuItem
   208                                         #'label:' 'spread horizontal'
   210                                         #'label:' 'spread horizontal'
   209                                         #'nameKey:' #spreadSelectionHor
   211                                         #'value:' #spreadSelectionHor
   210                                  )
   212                                  )
   211                                 #(#MenuItem
   213                                 #(#MenuItem
   212                                         #'label:' 'spread vertical'
   214                                         #'label:' 'spread vertical'
   213                                         #'nameKey:' #spreadSelectionVer
   215                                         #'value:' #spreadSelectionVer
   214                                  )
   216                                  )
   215                                 #(#MenuItem
   217                                 #(#MenuItem
   216                                         #'label:' 'center horizontal in frame'
   218                                         #'label:' 'center horizontal in frame'
   217                                         #'nameKey:' #centerSelectionHor
   219                                         #'value:' #centerSelectionHor
   218                                  )
   220                                  )
   219                                 #(#MenuItem
   221                                 #(#MenuItem
   220                                         #'label:' 'center vertical in frame'
   222                                         #'label:' 'center vertical in frame'
   221                                         #'nameKey:' #centerSelectionVer
   223                                         #'value:' #centerSelectionVer
   222                                  )
   224                                  )
   223                                 )
   225                                 )
   224                                #(7 2)
   226                                #(7 2)
   225                                nil
   227                                nil
   226                         )
   228                         )
  1005         can := self canPaste:(self getSelection).
  1007         can := self canPaste:(self getSelection).
  1006         selection isNil ifTrue:[can]
  1008         selection isNil ifTrue:[can]
  1007                        ifFalse:[(can and:[self canPasteInto:selection])]
  1009                        ifFalse:[(can and:[self canPasteInto:selection])]
  1008     ].
  1010     ].
  1009 
  1011 
  1010     menu enabledAt:#undoLast put:(undoHistory notEmpty).
  1012     menu enabledAt:#undo put:(undoHistory notEmpty).
  1011   ^ menu
  1013   ^ menu
  1012 
  1014 
  1013 
  1015 
  1014 
  1016 
  1015 !
  1017 !
  1871     propertyList := OrderedCollection new.
  1873     propertyList := OrderedCollection new.
  1872     self selection:#().
  1874     self selection:#().
  1873     disabledChanged := false.
  1875     disabledChanged := false.
  1874     painter := aPainter.
  1876     painter := aPainter.
  1875     self addDependent:painter.
  1877     self addDependent:painter.
  1876 
       
  1877 
  1878 
  1878 ! !
  1879 ! !
  1879 
  1880 
  1880 !UIPainterView::ListHolder methodsFor:'private'!
  1881 !UIPainterView::ListHolder methodsFor:'private'!
  1881 
  1882