MenuEditor.st
changeset 371 7017eaabd9ed
parent 359 6193ef5b6e74
child 381 1d1b1483270c
equal deleted inserted replaced
370:c90e57ac04a5 371:7017eaabd9ed
   104 
   104 
   105 sourceCategory
   105 sourceCategory
   106     "returns the catagory where to instal the menu
   106     "returns the catagory where to instal the menu
   107     "
   107     "
   108     ^ 'accessing menu'
   108     ^ 'accessing menu'
       
   109 ! !
       
   110 
       
   111 !MenuEditor class methodsFor:'help specs'!
       
   112 
       
   113 helpSpec
       
   114     "return a dictionary filled with helpKey -> helptext associations.
       
   115      These are used by the activeHelp tool."
       
   116 
       
   117     "
       
   118     UIHelpTool openOnClass:MenuEditor    
       
   119     "
       
   120 
       
   121   ^ super helpSpec addPairsFrom:#(
       
   122 
       
   123 #accessCharaterPos
       
   124 'the index of the access character position into the textual label (optional).'
       
   125 
       
   126 #argument
       
   127 'an argument passed to the value method, if the value selector is a one- or two-arg selector (i.e. ends with '':''). The argument is passed as a string.'
       
   128 
       
   129 #enbled
       
   130 'This enabled field specifies the name of the aspect (-method or binding) in your application, which returns a valueHolder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false.\ The value, true or false, specifies whether  the respective field can be selected, a value of true, or not, a value of false.'
       
   131 
       
   132 #icon
       
   133 'selector which returns the bitmap to be displayed.'
       
   134 
       
   135 #iconAndLabel
       
   136 'boolean flag to specify that both the bitmap and textual label shall be shown.'
       
   137 
       
   138 #indication
       
   139 'This indication field specifies the name of the aspect (-method or binding) in your application, a valueHolder holding a boolean, a block which evaluates to either true or false, a selector which returns either true or false or simply true or false.\ The value, true or false, specifies whether the shown indicator is switched on or off.'
       
   140 
       
   141 #label
       
   142 'the label of the item. If the ''retriever/icon'' is set, and returns a bitmap image, the bitmap is used as the displayed label. Dependent on the state of the ''Icon & Label'' flag, both the bitmap and the label are shown.'
       
   143 
       
   144 #menuSelector
       
   145 'the name of the selector under which the generated menu should be installed and is accessable.'
       
   146 
       
   147 #nameKey
       
   148 'a unique identifier of the item (optional)'
       
   149 
       
   150 #retriever
       
   151 'the name of the class, which implements the bitmap  selector. This selector is specified by ''icon''. If no class is given, the current application should implement the specified bitmap selector.'
       
   152 
       
   153 #seperatorList
       
   154 'the list of valid separators'
       
   155 
       
   156 #shortcutKey
       
   157 'the key to be pressed, to select the menu item from the keyboard (accelerator key).'
       
   158 
       
   159 #submenuChannel
       
   160 'a value holder, which provides the submenu (Menu) to be opened if the item is selected. Useful if the items submenu is to be changed dynamically.'
       
   161 
       
   162 #value
       
   163 'An action which can be either a block or a selector.\ Depending on the number of arguments to the action, the action will be called with the respective arguments. There can either zero, one or two arguments. The first argument to the action is  the argument derived from the argument field and the second argument the selected item.'
       
   164 
       
   165 )
   109 ! !
   166 ! !
   110 
   167 
   111 !MenuEditor class methodsFor:'icons'!
   168 !MenuEditor class methodsFor:'icons'!
   112 
   169 
   113 iconCreateItem
   170 iconCreateItem
   827      
   884      
   828        #(#FullSpec
   885        #(#FullSpec
   829           #'window:' 
   886           #'window:' 
   830            #(#WindowSpec
   887            #(#WindowSpec
   831               #'name:' 'unnamed canvas'
   888               #'name:' 'unnamed canvas'
   832               #'layout:' #(#LayoutFrame 199 0 167 0 465 0 485 0)
   889               #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
   833               #'label:' 'unnamed canvas'
   890               #'label:' 'unnamed canvas'
   834               #'min:' #(#Point 10 10)
   891               #'min:' #(#Point 10 10)
   835               #'max:' #(#Point 1160 870)
   892               #'max:' #(#Point 1160 870)
   836               #'bounds:' #(#Rectangle 199 167 466 486)
   893               #'bounds:' #(#Rectangle 219 193 486 512)
       
   894               #'usePreferredExtent:' false
   837           )
   895           )
   838           #'component:' 
   896           #'component:' 
   839            #(#SpecCollection
   897            #(#SpecCollection
   840               #'collection:' 
   898               #'collection:' 
   841                #(
   899                #(
   845                     #'label:' 'NameKey:'
   903                     #'label:' 'NameKey:'
   846                     #'adjust:' #right
   904                     #'adjust:' #right
   847                     #'resizeForLabel:' true
   905                     #'resizeForLabel:' true
   848                 )
   906                 )
   849                  #(#InputFieldSpec
   907                  #(#InputFieldSpec
   850                     #'name:' 'itemNameKey'
   908                     #'name:' 'nameKeyField'
   851                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
   909                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
       
   910                     #'activeHelpKey:' #nameKey
   852                     #'tabable:' true
   911                     #'tabable:' true
   853                     #'model:' #nameKey
   912                     #'model:' #nameKey
   854                     #'type:' #symbolOrNil
   913                     #'type:' #symbolOrNil
   855                 )
   914                 )
   856                  #(#LabelSpec
   915                  #(#LabelSpec
   859                     #'label:' 'Label'
   918                     #'label:' 'Label'
   860                     #'adjust:' #right
   919                     #'adjust:' #right
   861                     #'resizeForLabel:' true
   920                     #'resizeForLabel:' true
   862                 )
   921                 )
   863                  #(#InputFieldSpec
   922                  #(#InputFieldSpec
   864                     #'name:' 'itemLabel'
   923                     #'name:' 'labelField'
   865                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
   924                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
       
   925                     #'activeHelpKey:' #label
   866                     #'tabable:' true
   926                     #'tabable:' true
   867                     #'model:' #label
   927                     #'model:' #label
   868                 )
   928                 )
   869                  #(#LabelSpec
   929                  #(#LabelSpec
   870                     #'name:' 'valueLabel'
   930                     #'name:' 'valueLabel'
   872                     #'label:' 'Value:'
   932                     #'label:' 'Value:'
   873                     #'adjust:' #right
   933                     #'adjust:' #right
   874                     #'resizeForLabel:' true
   934                     #'resizeForLabel:' true
   875                 )
   935                 )
   876                  #(#InputFieldSpec
   936                  #(#InputFieldSpec
   877                     #'name:' 'itemValue'
   937                     #'name:' 'valueField'
   878                     #'layout:' #(#LayoutFrame 91 0 83 0 0 1.0 105 0)
   938                     #'layout:' #(#LayoutFrame 91 0 83 0 0 1.0 105 0)
       
   939                     #'activeHelpKey:' #value
   879                     #'tabable:' true
   940                     #'tabable:' true
   880                     #'model:' #value
   941                     #'model:' #value
   881                     #'type:' #symbolOrNil
   942                     #'type:' #symbolOrNil
       
   943                 )
       
   944                  #(#LabelSpec
       
   945                     #'name:' 'argumentLabel'
       
   946                     #'layout:' #(#AlignmentOrigin 87 0 120 0 1 0.5)
       
   947                     #'label:' 'Argument:'
       
   948                     #'adjust:' #right
       
   949                     #'resizeForLabel:' true
       
   950                 )
       
   951                  #(#InputFieldSpec
       
   952                     #'name:' 'argumentField'
       
   953                     #'layout:' #(#LayoutFrame 91 0 109 0 0 1.0 131 0)
       
   954                     #'activeHelpKey:' #argument
       
   955                     #'tabable:' true
       
   956                     #'model:' #argument
       
   957                     #'type:' #string
   882                 )
   958                 )
   883                  #(#LabelSpec
   959                  #(#LabelSpec
   884                     #'name:' 'indicationLabel'
   960                     #'name:' 'indicationLabel'
   885                     #'layout:' #(#AlignmentOrigin 87 0 160 0 1 0.5)
   961                     #'layout:' #(#AlignmentOrigin 87 0 160 0 1 0.5)
   886                     #'label:' 'Indication:'
   962                     #'label:' 'Indication:'
   887                     #'adjust:' #right
   963                     #'adjust:' #right
   888                     #'resizeForLabel:' true
   964                     #'resizeForLabel:' true
   889                 )
   965                 )
   890                  #(#InputFieldSpec
   966                  #(#InputFieldSpec
   891                     #'name:' 'indicationValue'
   967                     #'name:' 'indicationField'
   892                     #'layout:' #(#LayoutFrame 91 0 149 0 0 1.0 171 0)
   968                     #'layout:' #(#LayoutFrame 91 0 149 0 0 1.0 171 0)
       
   969                     #'activeHelpKey:' #indication
   893                     #'tabable:' true
   970                     #'tabable:' true
   894                     #'model:' #indication
   971                     #'model:' #indication
   895                     #'type:' #symbolOrNil
   972                     #'type:' #symbolOrNil
   896                 )
       
   897                  #(#LabelSpec
       
   898                     #'name:' 'argumentLabel'
       
   899                     #'layout:' #(#AlignmentOrigin 87 0 120 0 1 0.5)
       
   900                     #'label:' 'Argument:'
       
   901                     #'adjust:' #right
       
   902                     #'resizeForLabel:' true
       
   903                 )
       
   904                  #(#InputFieldSpec
       
   905                     #'name:' 'inputField1'
       
   906                     #'layout:' #(#LayoutFrame 91 0 109 0 0 1.0 131 0)
       
   907                     #'tabable:' true
       
   908                     #'model:' #argument
       
   909                     #'type:' #string
       
   910                 )
   973                 )
   911               )
   974               )
   912           )
   975           )
   913       )
   976       )
   914 !
   977 !
   929     ^
   992     ^
   930      
   993      
   931        #(#FullSpec
   994        #(#FullSpec
   932           #'window:' 
   995           #'window:' 
   933            #(#WindowSpec
   996            #(#WindowSpec
   934               #'name:' 'BasicsLinkSpec'
   997               #'name:' 'unnamed canvas'
   935               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
   998               #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
   936               #'label:' 'unnamed canvas'
   999               #'label:' 'unnamed canvas'
   937               #'bounds:' #(#Rectangle 0 0 267 319)
  1000               #'min:' #(#Point 10 10)
       
  1001               #'max:' #(#Point 1280 1024)
       
  1002               #'bounds:' #(#Rectangle 219 193 486 512)
       
  1003               #'usePreferredExtent:' false
       
  1004           )
       
  1005           #'component:' 
       
  1006            #(#SpecCollection
       
  1007               #'collection:' 
       
  1008                #(
       
  1009                  #(#LabelSpec
       
  1010                     #'name:' 'nameKeyLabel'
       
  1011                     #'layout:' #(#AlignmentOrigin 87 0 26 0 1 0.5)
       
  1012                     #'activeHelpKey:' #nameKey
       
  1013                     #'label:' 'NameKey:'
       
  1014                     #'adjust:' #right
       
  1015                     #'resizeForLabel:' true
       
  1016                 )
       
  1017                  #(#InputFieldSpec
       
  1018                     #'name:' 'nameKeyField'
       
  1019                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
       
  1020                     #'activeHelpKey:' #nameKey
       
  1021                     #'tabable:' true
       
  1022                     #'model:' #nameKey
       
  1023                     #'type:' #symbolOrNil
       
  1024                 )
       
  1025                  #(#LabelSpec
       
  1026                     #'name:' 'labelLabel'
       
  1027                     #'layout:' #(#AlignmentOrigin 87 0 53 0 1 0.5)
       
  1028                     #'label:' 'Label'
       
  1029                     #'resizeForLabel:' true
       
  1030                 )
       
  1031                  #(#InputFieldSpec
       
  1032                     #'name:' 'labelField'
       
  1033                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
       
  1034                     #'activeHelpKey:' #label
       
  1035                     #'tabable:' true
       
  1036                     #'model:' #label
       
  1037                 )
       
  1038                  #(#InputFieldSpec
       
  1039                     #'name:' 'menuField'
       
  1040                     #'layout:' #(#LayoutFrame 91 0 69 0 0 1.0 91 0)
       
  1041                     #'activeHelpKey:' #submenuChannel
       
  1042                     #'tabable:' true
       
  1043                     #'model:' #submenuChannel
       
  1044                     #'type:' #symbolOrNil
       
  1045                 )
       
  1046                  #(#LabelSpec
       
  1047                     #'name:' 'menuLabel'
       
  1048                     #'layout:' #(#AlignmentOrigin 87 0 80 0 1 0.5)
       
  1049                     #'label:' 'Menu:'
       
  1050                     #'resizeForLabel:' true
       
  1051                 )
       
  1052               )
       
  1053           )
       
  1054       )
       
  1055 !
       
  1056 
       
  1057 basicsMenuSpec
       
  1058     "this window spec was automatically generated by the ST/X UIPainter"
       
  1059 
       
  1060     "do not manually edit this - the painter/builder may not be able to
       
  1061      handle the specification if its corrupted."
       
  1062 
       
  1063     "
       
  1064      UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
       
  1065      MenuEditor new openInterface:#basicsMenuSpec
       
  1066     "
       
  1067 
       
  1068     <resource: #canvas>
       
  1069 
       
  1070     ^
       
  1071      
       
  1072        #(#FullSpec
       
  1073           #'window:' 
       
  1074            #(#WindowSpec
       
  1075               #'name:' 'unnamed canvas'
       
  1076               #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
       
  1077               #'label:' 'unnamed canvas'
       
  1078               #'min:' #(#Point 10 10)
       
  1079               #'max:' #(#Point 1280 1024)
       
  1080               #'bounds:' #(#Rectangle 219 193 486 512)
       
  1081               #'usePreferredExtent:' false
   938           )
  1082           )
   939           #'component:' 
  1083           #'component:' 
   940            #(#SpecCollection
  1084            #(#SpecCollection
   941               #'collection:' 
  1085               #'collection:' 
   942                #(
  1086                #(
   946                     #'label:' 'NameKey:'
  1090                     #'label:' 'NameKey:'
   947                     #'adjust:' #right
  1091                     #'adjust:' #right
   948                     #'resizeForLabel:' true
  1092                     #'resizeForLabel:' true
   949                 )
  1093                 )
   950                  #(#InputFieldSpec
  1094                  #(#InputFieldSpec
   951                     #'name:' 'itemNameKey'
  1095                     #'name:' 'nameKeyField'
   952                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
  1096                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
   953                     #'tabable:' true
  1097                     #'activeHelpKey:' #nameKey
   954                     #'model:' #nameKey
       
   955                     #'type:' #symbolOrNil
       
   956                 )
       
   957                  #(#LabelSpec
       
   958                     #'name:' 'labelLabel'
       
   959                     #'layout:' #(#AlignmentOrigin 87 0 53 0 1 0.5)
       
   960                     #'label:' 'Label'
       
   961                     #'resizeForLabel:' true
       
   962                 )
       
   963                  #(#InputFieldSpec
       
   964                     #'name:' 'itemLabel'
       
   965                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
       
   966                     #'tabable:' true
       
   967                     #'model:' #label
       
   968                 )
       
   969                  #(#InputFieldSpec
       
   970                     #'name:' 'submenuChannel'
       
   971                     #'layout:' #(#LayoutFrame 91 0 69 0 0 1.0 91 0)
       
   972                     #'tabable:' true
       
   973                     #'model:' #submenuChannel
       
   974                     #'type:' #symbolOrNil
       
   975                 )
       
   976                  #(#LabelSpec
       
   977                     #'name:' 'menuLabel'
       
   978                     #'layout:' #(#AlignmentOrigin 87 0 80 0 1 0.5)
       
   979                     #'label:' 'Menu:'
       
   980                     #'resizeForLabel:' true
       
   981                 )
       
   982               )
       
   983           )
       
   984       )
       
   985 
       
   986     "Modified: 28.7.1997 / 15:38:29 / cg"
       
   987 !
       
   988 
       
   989 basicsMenuSpec
       
   990     "this window spec was automatically generated by the ST/X UIPainter"
       
   991 
       
   992     "do not manually edit this - the painter/builder may not be able to
       
   993      handle the specification if its corrupted."
       
   994 
       
   995     "
       
   996      UIPainter new openOnClass:MenuEditor andSelector:#basicsMenuSpec
       
   997      MenuEditor new openInterface:#basicsMenuSpec
       
   998     "
       
   999 
       
  1000     <resource: #canvas>
       
  1001 
       
  1002     ^
       
  1003      
       
  1004        #(#FullSpec
       
  1005           #'window:' 
       
  1006            #(#WindowSpec
       
  1007               #'name:' 'BasicsMenuSpec'
       
  1008               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
       
  1009               #'label:' 'unnamed canvas'
       
  1010               #'bounds:' #(#Rectangle 0 0 267 319)
       
  1011           )
       
  1012           #'component:' 
       
  1013            #(#SpecCollection
       
  1014               #'collection:' 
       
  1015                #(
       
  1016                  #(#LabelSpec
       
  1017                     #'name:' 'nameKeyLabel'
       
  1018                     #'layout:' #(#AlignmentOrigin 87 0 26 0 1 0.5)
       
  1019                     #'label:' 'NameKey:'
       
  1020                     #'adjust:' #right
       
  1021                     #'resizeForLabel:' true
       
  1022                 )
       
  1023                  #(#InputFieldSpec
       
  1024                     #'name:' 'itemNameKey'
       
  1025                     #'layout:' #(#LayoutFrame 91 0 15 0 0 1.0 37 0)
       
  1026                     #'tabable:' true
  1098                     #'tabable:' true
  1027                     #'model:' #nameKey
  1099                     #'model:' #nameKey
  1028                     #'type:' #symbolOrNil
  1100                     #'type:' #symbolOrNil
  1029                 )
  1101                 )
  1030                  #(#LabelSpec
  1102                  #(#LabelSpec
  1033                     #'label:' 'Label'
  1105                     #'label:' 'Label'
  1034                     #'adjust:' #right
  1106                     #'adjust:' #right
  1035                     #'resizeForLabel:' true
  1107                     #'resizeForLabel:' true
  1036                 )
  1108                 )
  1037                  #(#InputFieldSpec
  1109                  #(#InputFieldSpec
  1038                     #'name:' 'itemLabel'
  1110                     #'name:' 'labelField'
  1039                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
  1111                     #'layout:' #(#LayoutFrame 91 0 42 0 0 1.0 64 0)
       
  1112                     #'activeHelpKey:' #label
  1040                     #'tabable:' true
  1113                     #'tabable:' true
  1041                     #'model:' #label
  1114                     #'model:' #label
  1042                 )
  1115                 )
  1043               )
  1116               )
  1044           )
  1117           )
  1045       )
  1118       )
  1046 
       
  1047     "Modified: 28.7.1997 / 15:38:59 / cg"
       
  1048 !
  1119 !
  1049 
  1120 
  1050 basicsRootSpec
  1121 basicsRootSpec
  1051     "this window spec was automatically generated by the ST/X UIPainter"
  1122     "this window spec was automatically generated by the ST/X UIPainter"
  1052 
  1123 
  1063     ^
  1134     ^
  1064      
  1135      
  1065        #(#FullSpec
  1136        #(#FullSpec
  1066           #'window:' 
  1137           #'window:' 
  1067            #(#WindowSpec
  1138            #(#WindowSpec
  1068               #'name:' 'BasicsRootSpec'
  1139               #'name:' 'unnamed canvas'
  1069               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
  1140               #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
  1070               #'label:' 'unnamed canvas'
  1141               #'label:' 'unnamed canvas'
  1071               #'bounds:' #(#Rectangle 0 0 267 319)
  1142               #'min:' #(#Point 10 10)
       
  1143               #'max:' #(#Point 1280 1024)
       
  1144               #'bounds:' #(#Rectangle 219 193 486 512)
       
  1145               #'usePreferredExtent:' false
  1072           )
  1146           )
  1073           #'component:' 
  1147           #'component:' 
  1074            #(#SpecCollection
  1148            #(#SpecCollection
  1075               #'collection:' 
  1149               #'collection:' 
  1076                #(
  1150                #(
  1080                     #'label:' 'Selector:'
  1154                     #'label:' 'Selector:'
  1081                     #'adjust:' #right
  1155                     #'adjust:' #right
  1082                     #'resizeForLabel:' true
  1156                     #'resizeForLabel:' true
  1083                 )
  1157                 )
  1084                  #(#InputFieldSpec
  1158                  #(#InputFieldSpec
  1085                     #'name:' 'selector'
  1159                     #'name:' 'selectorField'
  1086                     #'layout:' #(#LayoutFrame 82 0 42 0 0 1.0 64 0)
  1160                     #'layout:' #(#LayoutFrame 82 0 42 0 0 1.0 64 0)
       
  1161                     #'activeHelpKey:' #menuSelector
  1087                     #'tabable:' true
  1162                     #'tabable:' true
  1088                     #'model:' #label
  1163                     #'model:' #label
  1089                 )
  1164                 )
  1090               )
  1165               )
  1091           )
  1166           )
  1092       )
  1167       )
  1093 
       
  1094     "Modified: 28.7.1997 / 15:39:17 / cg"
       
  1095 !
  1168 !
  1096 
  1169 
  1097 basicsSeparatorSpec
  1170 basicsSeparatorSpec
  1098     "this window spec was automatically generated by the ST/X UIPainter"
  1171     "this window spec was automatically generated by the ST/X UIPainter"
  1099 
  1172 
  1111      
  1184      
  1112        #(#FullSpec
  1185        #(#FullSpec
  1113           #'window:' 
  1186           #'window:' 
  1114            #(#WindowSpec
  1187            #(#WindowSpec
  1115               #'name:' 'unnamed canvas'
  1188               #'name:' 'unnamed canvas'
  1116               #'layout:' #(#LayoutFrame 634 0 529 0 900 0 847 0)
  1189               #'layout:' #(#LayoutFrame 219 0 193 0 485 0 511 0)
  1117               #'label:' 'unnamed canvas'
  1190               #'label:' 'unnamed canvas'
  1118               #'min:' #(#Point 10 10)
  1191               #'min:' #(#Point 10 10)
  1119               #'max:' #(#Point 1160 870)
  1192               #'max:' #(#Point 1160 870)
  1120               #'bounds:' #(#Rectangle 634 529 901 848)
  1193               #'bounds:' #(#Rectangle 219 193 486 512)
       
  1194               #'usePreferredExtent:' false
  1121           )
  1195           )
  1122           #'component:' 
  1196           #'component:' 
  1123            #(#SpecCollection
  1197            #(#SpecCollection
  1124               #'collection:' 
  1198               #'collection:' 
  1125                #(
  1199                #(
  1131                     #'resizeForLabel:' true
  1205                     #'resizeForLabel:' true
  1132                 )
  1206                 )
  1133                  #(#ComboListSpec
  1207                  #(#ComboListSpec
  1134                     #'name:' 'seperatorList'
  1208                     #'name:' 'seperatorList'
  1135                     #'layout:' #(#LayoutFrame 132 0 11 0 0 1.0 33 0)
  1209                     #'layout:' #(#LayoutFrame 132 0 11 0 0 1.0 33 0)
       
  1210                     #'activeHelpKey:' #seperatorList
  1136                     #'model:' #seperatorSelection
  1211                     #'model:' #seperatorSelection
  1137                     #'useIndex:' true
  1212                     #'useIndex:' true
  1138                 )
  1213                 )
  1139               )
  1214               )
  1140           )
  1215           )
  1157     ^
  1232     ^
  1158      
  1233      
  1159        #(#FullSpec
  1234        #(#FullSpec
  1160           #'window:' 
  1235           #'window:' 
  1161            #(#WindowSpec
  1236            #(#WindowSpec
  1162               #'name:' 'DetailsEditSpec'
  1237               #'name:' 'unnamed canvas'
  1163               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
  1238               #'layout:' #(#LayoutFrame 219 0 193 0 477 0 480 0)
  1164               #'label:' 'unnamed canvas'
  1239               #'label:' 'unnamed canvas'
  1165               #'bounds:' #(#Rectangle 0 0 259 288)
  1240               #'min:' #(#Point 10 10)
       
  1241               #'max:' #(#Point 1280 1024)
       
  1242               #'bounds:' #(#Rectangle 219 193 478 481)
       
  1243               #'usePreferredExtent:' false
  1166           )
  1244           )
  1167           #'component:' 
  1245           #'component:' 
  1168            #(#SpecCollection
  1246            #(#SpecCollection
  1169               #'collection:' 
  1247               #'collection:' 
  1170                #(
  1248                #(
  1171                  #(#LabelSpec
  1249                  #(#LabelSpec
       
  1250                     #'name:' 'shortcutKeyLabel'
       
  1251                     #'layout:' #(#AlignmentOrigin 87 0 33 0 1 0.5)
       
  1252                     #'label:' 'Accelerator:'
       
  1253                     #'adjust:' #right
       
  1254                     #'resizeForLabel:' true
       
  1255                 )
       
  1256                  #(#InputFieldSpec
       
  1257                     #'name:' 'shortcutKeyField'
       
  1258                     #'layout:' #(#LayoutFrame 91 0 22 0 0 1.0 44 0)
       
  1259                     #'activeHelpKey:' #shortcutKey
       
  1260                     #'tabable:' true
       
  1261                     #'model:' #shortcutKey
       
  1262                     #'type:' #symbolOrNil
       
  1263                 )
       
  1264                  #(#LabelSpec
  1172                     #'name:' 'enabledLabel'
  1265                     #'name:' 'enabledLabel'
  1173                     #'layout:' #(#AlignmentOrigin 87 0 59 0 1 0.5)
  1266                     #'layout:' #(#AlignmentOrigin 87 0 59 0 1 0.5)
  1174                     #'label:' 'Enabled:'
  1267                     #'label:' 'Enabled:'
  1175                     #'adjust:' #right
  1268                     #'adjust:' #right
  1176                     #'resizeForLabel:' true
  1269                     #'resizeForLabel:' true
  1177                 )
  1270                 )
  1178                  #(#InputFieldSpec
  1271                  #(#InputFieldSpec
  1179                     #'name:' 'enabled'
  1272                     #'name:' 'enabledField'
  1180                     #'layout:' #(#LayoutFrame 91 0 48 0 0 1.0 70 0)
  1273                     #'layout:' #(#LayoutFrame 91 0 48 0 0 1.0 70 0)
       
  1274                     #'activeHelpKey:' #enbled
  1181                     #'tabable:' true
  1275                     #'tabable:' true
  1182                     #'model:' #enabled
  1276                     #'model:' #enabled
  1183                     #'type:' #symbolOrNil
  1277                     #'type:' #symbolOrNil
  1184                 )
  1278                 )
  1185                  #(#LabelSpec
  1279                  #(#LabelSpec
  1186                     #'name:' 'shortcutKeyLabel'
  1280                     #'name:' 'accessCharLabel'
  1187                     #'layout:' #(#AlignmentOrigin 87 0 33 0 1 0.5)
       
  1188                     #'label:' 'Accelerator:'
       
  1189                     #'adjust:' #right
       
  1190                     #'resizeForLabel:' true
       
  1191                 )
       
  1192                  #(#InputFieldSpec
       
  1193                     #'name:' 'accelerator'
       
  1194                     #'layout:' #(#LayoutFrame 91 0 22 0 0 1.0 44 0)
       
  1195                     #'tabable:' true
       
  1196                     #'model:' #shortcutKey
       
  1197                     #'type:' #symbolOrNil
       
  1198                 )
       
  1199                  #(#LabelSpec
       
  1200                     #'name:' 'accessCharPosLabel'
       
  1201                     #'layout:' #(#AlignmentOrigin 211 0 127 0 1 0.5)
  1281                     #'layout:' #(#AlignmentOrigin 211 0 127 0 1 0.5)
  1202                     #'label:' 'Access Character Position:'
  1282                     #'label:' 'Access Character Position:'
  1203                     #'adjust:' #right
  1283                     #'adjust:' #right
  1204                     #'resizeForLabel:' true
  1284                     #'resizeForLabel:' true
  1205                 )
  1285                 )
  1206                  #(#InputFieldSpec
  1286                  #(#InputFieldSpec
  1207                     #'name:' 'accessCharaterPos'
  1287                     #'name:' 'accessCharField'
  1208                     #'layout:' #(#LayoutFrame 215 0 116 0 0 1.0 138 0)
  1288                     #'layout:' #(#LayoutFrame 215 0 116 0 0 1.0 138 0)
       
  1289                     #'activeHelpKey:' #accessCharaterPos
  1209                     #'tabable:' true
  1290                     #'tabable:' true
  1210                     #'model:' #accessCharaterPos
  1291                     #'model:' #accessCharaterPos
  1211                     #'type:' #numberOrNil
  1292                     #'type:' #numberOrNil
  1212                 )
  1293                 )
  1213               )
  1294               )
  1214           )
  1295           )
  1215       )
  1296       )
  1216 
       
  1217     "Modified: 28.7.1997 / 15:43:19 / cg"
       
  1218 !
  1297 !
  1219 
  1298 
  1220 miscEditSpec
  1299 miscEditSpec
  1221     "this window spec was automatically generated by the ST/X UIPainter"
  1300     "this window spec was automatically generated by the ST/X UIPainter"
  1222 
  1301 
  1233     ^
  1312     ^
  1234      
  1313      
  1235        #(#FullSpec
  1314        #(#FullSpec
  1236           #'window:' 
  1315           #'window:' 
  1237            #(#WindowSpec
  1316            #(#WindowSpec
  1238               #'name:' 'MiscEditSpec'
  1317               #'name:' 'unnamed canvas'
  1239               #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
  1318               #'layout:' #(#LayoutFrame 219 0 193 0 463 0 334 0)
  1240               #'label:' 'unnamed canvas'
  1319               #'label:' 'unnamed canvas'
  1241               #'bounds:' #(#Rectangle 0 0 245 142)
  1320               #'min:' #(#Point 10 10)
       
  1321               #'max:' #(#Point 1280 1024)
       
  1322               #'bounds:' #(#Rectangle 219 193 464 335)
       
  1323               #'usePreferredExtent:' false
  1242           )
  1324           )
  1243           #'component:' 
  1325           #'component:' 
  1244            #(#SpecCollection
  1326            #(#SpecCollection
  1245               #'collection:' 
  1327               #'collection:' 
  1246                #(
  1328                #(
  1250                     #'label:' 'Retriever:'
  1332                     #'label:' 'Retriever:'
  1251                     #'adjust:' #right
  1333                     #'adjust:' #right
  1252                     #'resizeForLabel:' true
  1334                     #'resizeForLabel:' true
  1253                 )
  1335                 )
  1254                  #(#InputFieldSpec
  1336                  #(#InputFieldSpec
  1255                     #'name:' 'retriever'
  1337                     #'name:' 'retrieverField'
  1256                     #'layout:' #(#LayoutFrame 81 0 15 0 0 1.0 37 0)
  1338                     #'layout:' #(#LayoutFrame 81 0 15 0 0 1.0 37 0)
       
  1339                     #'activeHelpKey:' #retriever
  1257                     #'tabable:' true
  1340                     #'tabable:' true
  1258                     #'model:' #retriever
  1341                     #'model:' #retriever
  1259                     #'type:' #symbolOrNil
  1342                     #'type:' #symbolOrNil
  1260                 )
  1343                 )
  1261                  #(#LabelSpec
  1344                  #(#LabelSpec
  1264                     #'label:' 'Icon:'
  1347                     #'label:' 'Icon:'
  1265                     #'adjust:' #right
  1348                     #'adjust:' #right
  1266                     #'resizeForLabel:' true
  1349                     #'resizeForLabel:' true
  1267                 )
  1350                 )
  1268                  #(#InputFieldSpec
  1351                  #(#InputFieldSpec
  1269                     #'name:' 'icon'
  1352                     #'name:' 'iconField'
  1270                     #'layout:' #(#LayoutFrame 81 0 39 0 0 1.0 61 0)
  1353                     #'layout:' #(#LayoutFrame 81 0 39 0 0 1.0 61 0)
       
  1354                     #'activeHelpKey:' #icon
  1271                     #'tabable:' true
  1355                     #'tabable:' true
  1272                     #'model:' #icon
  1356                     #'model:' #icon
  1273                     #'type:' #symbolOrNil
  1357                     #'type:' #symbolOrNil
  1274                 )
  1358                 )
  1275                  #(#CheckBoxSpec
  1359                  #(#CheckBoxSpec
  1276                     #'name:' 'iconAndLabel'
  1360                     #'name:' 'iconAndLabel'
  1277                     #'layout:' #(#LayoutOrigin 15 0 85 0)
  1361                     #'layout:' #(#LayoutOrigin 15 0 85 0)
       
  1362                     #'activeHelpKey:' #iconAndLabel
  1278                     #'tabable:' true
  1363                     #'tabable:' true
  1279                     #'model:' #iconAndLabel
  1364                     #'model:' #iconAndLabel
  1280                     #'label:' 'Icon & Label'
  1365                     #'label:' 'Icon & Label'
  1281                 )
  1366                 )
  1282               )
  1367               )
  1283           )
  1368           )
  1284       )
  1369       )
  1285 
       
  1286     "Modified: 28.7.1997 / 15:44:12 / cg"
       
  1287 ! !
  1370 ! !
  1288 
  1371 
  1289 !MenuEditor class methodsFor:'startup'!
  1372 !MenuEditor class methodsFor:'startup'!
  1290 
  1373 
  1291 openModalOnClass:aClass andSelector:aSelector
  1374 openModalOnClass:aClass andSelector:aSelector
  2191 !
  2274 !
  2192 
  2275 
  2193 images
  2276 images
  2194     "returns an IdentityDictionary containing a list of images and keys used
  2277     "returns an IdentityDictionary containing a list of images and keys used
  2195     "
  2278     "
       
  2279     <resource: #fileImage>
       
  2280 
  2196     |image|
  2281     |image|
  2197 
  2282 
  2198     Images notNil ifTrue:[
  2283     Images notNil ifTrue:[
  2199         ^ Images
  2284         ^ Images
  2200     ].
  2285     ].