UIPainter.st
changeset 518 435dcb241555
parent 513 a0d00fecb49a
child 527 6dc446339dc2
equal deleted inserted replaced
517:91ff807d8a23 518:435dcb241555
  1186                 #'value:' #doStartApplication
  1186                 #'value:' #doStartApplication
  1187                 #'activeHelpKey:' #testStartApplication
  1187                 #'activeHelpKey:' #testStartApplication
  1188                 #'labelImage:' #(#ResourceRetriever nil #startIcon)
  1188                 #'labelImage:' #(#ResourceRetriever nil #startIcon)
  1189             )
  1189             )
  1190              #(#MenuItem
  1190              #(#MenuItem
  1191                 #'label:' '-'
  1191                 #'label:' ''
  1192             )
  1192             )
  1193              #(#MenuItem
  1193              #(#MenuItem
  1194                 #'label:' 'New'
  1194                 #'label:' 'New'
  1195                 #'isButton:' true
  1195                 #'isButton:' true
  1196                 #'value:' #doNew
  1196                 #'value:' #doNew
  1210                 #'value:' #doInstallSpec
  1210                 #'value:' #doInstallSpec
  1211                 #'activeHelpKey:' #fileSave
  1211                 #'activeHelpKey:' #fileSave
  1212                 #'labelImage:' #(#ResourceRetriever nil #saveIcon)
  1212                 #'labelImage:' #(#ResourceRetriever nil #saveIcon)
  1213             )
  1213             )
  1214              #(#MenuItem
  1214              #(#MenuItem
  1215                 #'label:' '-'
  1215                 #'label:' ''
  1216             )
  1216             )
  1217              #(#MenuItem
  1217              #(#MenuItem
  1218                 #'label:' 'Move Up'
  1218                 #'label:' 'Move Up'
  1219                 #'isButton:' true
  1219                 #'isButton:' true
  1220                 #'value:' #doStepUp
  1220                 #'value:' #doStepUp
  1245                 #'activeHelpKey:' #moveSelectionLeft
  1245                 #'activeHelpKey:' #moveSelectionLeft
  1246                 #'enabled:' #canMoveSelectionOutOfContainer
  1246                 #'enabled:' #canMoveSelectionOutOfContainer
  1247                 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
  1247                 #'labelImage:' #(#ResourceRetriever nil #leftDownIcon)
  1248             )
  1248             )
  1249              #(#MenuItem
  1249              #(#MenuItem
  1250                 #'label:' '-'
  1250                 #'label:' ''
  1251             )
  1251             )
  1252              #(#MenuItem
  1252              #(#MenuItem
  1253                 #'label:' 'Align left'
  1253                 #'label:' 'Align left'
  1254                 #'isButton:' true
  1254                 #'isButton:' true
  1255                 #'value:' #alignSelectionLeft
  1255                 #'value:' #alignSelectionLeft
  1290                 #'value:' #alignSelectionTopAndBottom
  1290                 #'value:' #alignSelectionTopAndBottom
  1291                 #'activeHelpKey:' #alignSelectionTopAndBottom
  1291                 #'activeHelpKey:' #alignSelectionTopAndBottom
  1292                 #'labelImage:' #(#ResourceRetriever nil #iconAlignTB)
  1292                 #'labelImage:' #(#ResourceRetriever nil #iconAlignTB)
  1293             )
  1293             )
  1294              #(#MenuItem
  1294              #(#MenuItem
  1295                 #'label:' '-'
  1295                 #'label:' ''
  1296             )
  1296             )
  1297              #(#MenuItem
  1297              #(#MenuItem
  1298                 #'label:' 'Align centered horizontal'
  1298                 #'label:' 'Align centered horizontal'
  1299                 #'isButton:' true
  1299                 #'isButton:' true
  1300                 #'value:' #alignSelectionCenterHor
  1300                 #'value:' #alignSelectionCenterHor
  2584     self loadFromMessage: 
  2584     self loadFromMessage: 
  2585         (ResourceSelectionBrowser
  2585         (ResourceSelectionBrowser
  2586             request: 'Load Interface From Class'
  2586             request: 'Load Interface From Class'
  2587             onSuperclass: aSuperclassOrSymbol
  2587             onSuperclass: aSuperclassOrSymbol
  2588             andClass: specClass
  2588             andClass: specClass
  2589             andSelector: nil
  2589             andSelector: specSelector
  2590             withResourceTypes: #(canvas))
  2590             withResourceTypes: #(canvas))
  2591 !
  2591 !
  2592 
  2592 
  2593 loadFromMessage: aMessage
  2593 loadFromMessage: aMessage
  2594 
  2594