UIPainter.st
changeset 193 450d9e5c6f4a
parent 187 fa52e7ad5cb2
child 194 2b05bd327785
equal deleted inserted replaced
192:43da8d509ae6 193:450d9e5c6f4a
    85     ^ false
    85     ^ false
    86 
    86 
    87 
    87 
    88 ! !
    88 ! !
    89 
    89 
       
    90 !UIPainter class methodsFor:'help specs'!
       
    91 
       
    92 helpSpec
       
    93     "return a dictionary filled with helpKey -> helptext associations.
       
    94      These are used by the activeHelp tool.
       
    95     "
       
    96   ^ super helpSpec addPairsFrom:#(
       
    97 
       
    98 #alignSelectionCenterVer
       
    99 'align selection vertical'
       
   100 
       
   101 #alignSelectionLeft
       
   102 'align selected components to the left edge of the
       
   103 dominant component ( underlined )'
       
   104 
       
   105 #alignSelectionRight
       
   106 'align selected components to the right edge of the
       
   107 dominant component ( underlined )'
       
   108 
       
   109 #alignSelectionLeftAndRight
       
   110 'align selected components to the right and left edge
       
   111 of the dominant component ( underlined )'
       
   112 
       
   113 #alignSelectionTop
       
   114 'align selected components to the top edge of the
       
   115 dominant component ( underlined )'
       
   116 
       
   117 #alignSelectionBottom
       
   118 'align selected components to the bottom edge of the
       
   119 dominant component ( underlined )'
       
   120 
       
   121 #alignSelectionTopAndBottom
       
   122 'align selected components to the top and bottom edge
       
   123 of the dominant component ( underlined )'
       
   124 
       
   125 #alignSelectionCenterVer
       
   126 'align selected components horizontal to the center of
       
   127 the dominant component ( underlined )'
       
   128 
       
   129 #alignSelectionCenterHor
       
   130 'align selected components vertical to the center of
       
   131 the dominant component ( underlined )'
       
   132 
       
   133 )
       
   134 
       
   135 
       
   136 
       
   137 
       
   138 ! !
       
   139 
    90 !UIPainter class methodsFor:'icons'!
   140 !UIPainter class methodsFor:'icons'!
    91 
   141 
    92 iconAlignB
   142 iconAlignB
    93     ^ Image fromFile:'b_alignB.xbm'
   143     ^ Image fromFile:'b_alignB.xbm'
    94 
   144 
   134     ^ #(#Menu #(
   184     ^ #(#Menu #(
   135                 #(#MenuItem
   185                 #(#MenuItem
   136                         #'label:' 'align left'
   186                         #'label:' 'align left'
   137                         #'value:' #alignSelectionLeft
   187                         #'value:' #alignSelectionLeft
   138                         #'labelImage:' #( ResourceRetriever nil iconAlignL )
   188                         #'labelImage:' #( ResourceRetriever nil iconAlignL )
       
   189                         #'activeHelpKey:' #alignSelectionLeft
   139                  )
   190                  )
   140                 #(#MenuItem
   191                 #(#MenuItem
   141                         #'label:' 'align right'
   192                         #'label:' 'align right'
   142                         #'value:' #alignSelectionRight
   193                         #'value:' #alignSelectionRight
   143                         #'labelImage:' #( ResourceRetriever nil iconAlignR )
   194                         #'labelImage:' #( ResourceRetriever nil iconAlignR )
       
   195                         #'activeHelpKey:' #alignSelectionRight
   144                  )
   196                  )
   145                 #(#MenuItem
   197                 #(#MenuItem
   146                         #'label:' 'align left & right'
   198                         #'label:' 'align left & right'
   147                         #'value:' #alignSelectionLeftAndRight
   199                         #'value:' #alignSelectionLeftAndRight
   148                         #'labelImage:' #( ResourceRetriever nil iconAlignLR )
   200                         #'labelImage:' #( ResourceRetriever nil iconAlignLR )
       
   201                         #'activeHelpKey:' #alignSelectionLeftAndRight
   149                  )
   202                  )
   150                 #(#MenuItem
   203                 #(#MenuItem
   151                         #'label:' 'align top'
   204                         #'label:' 'align top'
   152                         #'value:' #alignSelectionTop
   205                         #'value:' #alignSelectionTop
   153                         #'labelImage:' #( ResourceRetriever nil iconAlignT )
   206                         #'labelImage:' #( ResourceRetriever nil iconAlignT )
       
   207                         #'activeHelpKey:' #alignSelectionTop
   154                  )
   208                  )
   155                 #(#MenuItem
   209                 #(#MenuItem
   156                         #'label:' 'align bottom'
   210                         #'label:' 'align bottom'
   157                         #'value:' #alignSelectionBottom
   211                         #'value:' #alignSelectionBottom
   158                         #'labelImage:' #( ResourceRetriever nil iconAlignB )
   212                         #'labelImage:' #( ResourceRetriever nil iconAlignB )
       
   213                         #'activeHelpKey:' #alignSelectionBottom
   159                  )
   214                  )
   160                 #(#MenuItem
   215                 #(#MenuItem
   161                         #'label:' 'align top & bottom'
   216                         #'label:' 'align top & bottom'
   162                         #'value:' #alignSelectionTopAndBottom
   217                         #'value:' #alignSelectionTopAndBottom
   163                         #'labelImage:' #( ResourceRetriever nil iconAlignTB )
   218                         #'labelImage:' #( ResourceRetriever nil iconAlignTB )
       
   219                         #'activeHelpKey:' #alignSelectionTopAndBottom
   164                  )
   220                  )
   165                 #(#MenuItem
   221                 #(#MenuItem
   166                         #'label:' 'align centered horizontal'
   222                         #'label:' 'align centered horizontal'
   167                         #'value:' #alignSelectionCenterHor
   223                         #'value:' #alignSelectionCenterHor
   168                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterH )
   224                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterH )
       
   225                         #'activeHelpKey:' #alignSelectionCenterHor
   169                  )
   226                  )
   170                 #(#MenuItem
   227                 #(#MenuItem
   171                         #'label:' 'align centered vertical'
   228                         #'label:' 'align centered vertical'
   172                         #'value:' #alignSelectionCenterVer
   229                         #'value:' #alignSelectionCenterVer
   173                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterV )
   230                         #'labelImage:' #( ResourceRetriever nil iconAlignCenterV )
       
   231                         #'activeHelpKey:' #alignSelectionCenterVer
   174                  )
   232                  )
   175                 )
   233                 )
   176                #( 3 3 )
   234                #( 3 3 )
   177                nil
   235                nil
   178         )
   236         )