DataSetBuilder.st
changeset 1261 247e8db2d0e7
parent 1259 34812b09585e
child 1262 2849b1a15ec8
equal deleted inserted replaced
1260:6f81c1d73e75 1261:247e8db2d0e7
    99         foregroundSelector
    99         foregroundSelector
   100         backgroundSelector
   100         backgroundSelector
   101         doubleClickedSelector
   101         doubleClickedSelector
   102         rowSeparatorSelector
   102         rowSeparatorSelector
   103         selectSelector
   103         selectSelector
       
   104         converterSelector
   104         showComboFieldSelector
   105         showComboFieldSelector
   105         printSelector
   106         printSelector
   106         readSelector
   107         readSelector
   107         writeSelector
   108         writeSelector
   108         rendererType
   109         rendererType
   137      UIHelpTool openOnClass:DataSetBuilder    
   138      UIHelpTool openOnClass:DataSetBuilder    
   138     "
   139     "
   139 
   140 
   140     <resource: #help>
   141     <resource: #help>
   141 
   142 
   142     ^ super helpSpec addPairsFrom:#(
   143     ^super helpSpec addPairsFrom:#(
   143 
   144 
   144 #addColumn
   145 #addColumn
   145 'Adds a new column.'
   146 'Adds a new column.'
   146 
   147 
   147 #basicsEditor
   148 #basicsEditor
   190 'Sets the foreground color of the label.'
   191 'Sets the foreground color of the label.'
   191 
   192 
   192 #colorsForegroundSelector
   193 #colorsForegroundSelector
   193 'Selector returning the foreground color for a cell (optional).'
   194 'Selector returning the foreground color for a cell (optional).'
   194 
   195 
       
   196 #converterSelector
       
   197 'Selector returning a TypeConverter on the model the argument or nil.'
       
   198 
       
   199 #fileLoad
       
   200 'Specify class/selector and edit that column description'
       
   201 
   195 #fileNew
   202 #fileNew
   196 'Discard changes and continue with a new, empty column description'
   203 'Discard changes and continue with a new, empty column description'
   197 
   204 
   198 #fileLoad
       
   199 'Specify class/selector and edit that column description'
       
   200 
       
   201 #fileSave
   205 #fileSave
   202 'Install the column description'
   206 'Install the column description'
   203 
   207 
   204 #fileSaveAs
   208 #fileSaveAs
   205 'Specify class/selector and install the column description'
   209 'Specify class/selector and install the column description'
   229 'Turns on/off displaying row separators.'
   233 'Turns on/off displaying row separators.'
   230 
   234 
   231 #frameShowRowSeparatorSelector
   235 #frameShowRowSeparatorSelector
   232 'An optional selector, which is used to test whether the row separator at the bottom is shown.'
   236 'An optional selector, which is used to test whether the row separator at the bottom is shown.'
   233 
   237 
   234 #generate
       
   235 'Code generation.'
       
   236 
       
   237 #generateCode
   238 #generateCode
   238 'Generate code and install in the selected class/selector.'
   239 'Generate code and install in the selected class/selector.'
   239 
   240 
   240 #pickColumns
   241 #pickColumns
   241 'Select an open view and readOut the column specification from it.'
   242 'Select an open view and readOut the column specification from it.'
   278 
   279 
   279 #valuesWriteSelector
   280 #valuesWriteSelector
   280 'Selector used to set the value derived from the editor.'
   281 'Selector used to set the value derived from the editor.'
   281 
   282 
   282 )
   283 )
   283 
       
   284     "Modified: / 19.5.1998 / 23:20:51 / cg"
       
   285 ! !
   284 ! !
   286 
   285 
   287 !DataSetBuilder class methodsFor:'image specs'!
   286 !DataSetBuilder class methodsFor:'image specs'!
   288 
   287 
   289 newColumnIcon
   288 newColumnIcon
  1207         #name: #valuesEditSpec
  1206         #name: #valuesEditSpec
  1208         #window: 
  1207         #window: 
  1209        #(#WindowSpec
  1208        #(#WindowSpec
  1210           #label: 'DataSet Basic'
  1209           #label: 'DataSet Basic'
  1211           #name: 'DataSet Basic'
  1210           #name: 'DataSet Basic'
  1212           #layout: #(#LayoutFrame 699 0 270 0 994 0 575 0)
       
  1213           #level: 0
       
  1214           #min: #(#Point 10 10)
  1211           #min: #(#Point 10 10)
  1215           #max: #(#Point 1280 1024)
  1212           #max: #(#Point 1280 1024)
  1216           #bounds: #(#Rectangle 699 270 995 576)
  1213           #bounds: #(#Rectangle 12 22 308 328)
  1217           #usePreferredExtent: false
       
  1218           #returnIsOKInDialog: true
       
  1219           #escapeIsCancelInDialog: true
       
  1220         )
  1214         )
  1221         #component: 
  1215         #component: 
  1222        #(#SpecCollection
  1216        #(#SpecCollection
  1223           #collection: #(
  1217           #collection: #(
  1224            #(#FramedBoxSpec
  1218            #(#FramedBoxSpec
  1225               #label: 'Value Selectors:'
  1219               #label: 'Value Selectors:'
  1226               #name: 'valuesBox'
  1220               #name: 'valuesBox'
  1227               #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 110 0)
  1221               #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 138 0)
  1228               #labelPosition: #topLeft
  1222               #labelPosition: #topLeft
  1229               #component: 
  1223               #component: 
  1230              #(#SpecCollection
  1224              #(#SpecCollection
  1231                 #collection: #(
  1225                 #collection: #(
  1232                  #(#LabelSpec
  1226                  #(#LabelSpec
  1268                     #acceptChannel: #acceptChannel
  1262                     #acceptChannel: #acceptChannel
  1269                     #modifiedChannel: #modifiedChannel
  1263                     #modifiedChannel: #modifiedChannel
  1270                     #acceptOnPointerLeave: false
  1264                     #acceptOnPointerLeave: false
  1271                   )
  1265                   )
  1272                  #(#LabelSpec
  1266                  #(#LabelSpec
       
  1267                     #label: 'Converter:'
       
  1268                     #name: 'converterLabel'
       
  1269                     #layout: #(#AlignmentOrigin 94 0 65 0 1 0.5)
       
  1270                     #resizeForLabel: true
       
  1271                     #adjust: #right
       
  1272                   )
       
  1273                  #(#InputFieldSpec
       
  1274                     #name: 'converterField'
       
  1275                     #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
       
  1276                     #activeHelpKey: #converterSelector
       
  1277                     #tabable: true
       
  1278                     #model: #converterSelector
       
  1279                     #group: #inputGroup
       
  1280                     #type: #symbolOrNil
       
  1281                     #acceptOnLostFocus: false
       
  1282                     #acceptChannel: #acceptChannel
       
  1283                     #modifiedChannel: #modifiedChannel
       
  1284                     #acceptOnPointerLeave: false
       
  1285                   )
       
  1286                  #(#LabelSpec
  1273                     #label: 'Print:'
  1287                     #label: 'Print:'
  1274                     #name: 'printLabel'
  1288                     #name: 'printLabel'
  1275                     #layout: #(#AlignmentOrigin 94 0 65 0 1 0.5)
  1289                     #layout: #(#AlignmentOrigin 94 0 97 0 1 0.5)
  1276                     #resizeForLabel: true
  1290                     #resizeForLabel: true
  1277                     #adjust: #right
  1291                     #adjust: #right
  1278                   )
  1292                   )
  1279                  #(#InputFieldSpec
  1293                  #(#InputFieldSpec
  1280                     #name: 'printSelector'
  1294                     #name: 'printSelector'
  1281                     #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
  1295                     #layout: #(#LayoutFrame 97 0 86 0 2 1.0 108 0)
  1282                     #activeHelpKey: #valuesPrintSelector
  1296                     #activeHelpKey: #valuesPrintSelector
  1283                     #tabable: true
  1297                     #tabable: true
  1284                     #model: #printSelector
  1298                     #model: #printSelector
  1285                     #group: #inputGroup
  1299                     #group: #inputGroup
  1286                     #type: #symbolOrNil
  1300                     #type: #symbolOrNil
  1294               )
  1308               )
  1295             )
  1309             )
  1296            #(#FramedBoxSpec
  1310            #(#FramedBoxSpec
  1297               #label: 'Menu:'
  1311               #label: 'Menu:'
  1298               #name: 'menusBox'
  1312               #name: 'menusBox'
  1299               #layout: #(#LayoutFrame 0 0.0 119 0 0 1.0 176 0)
  1313               #layout: #(#LayoutFrame 0 0.0 143 0 0 1.0 200 0)
  1300               #labelPosition: #topLeft
  1314               #labelPosition: #topLeft
  1301               #component: 
  1315               #component: 
  1302              #(#SpecCollection
  1316              #(#SpecCollection
  1303                 #collection: #(
  1317                 #collection: #(
  1304                  #(#LabelSpec
  1318                  #(#LabelSpec
  1326               )
  1340               )
  1327             )
  1341             )
  1328            #(#FramedBoxSpec
  1342            #(#FramedBoxSpec
  1329               #label: 'Combo List/Box Selectors:'
  1343               #label: 'Combo List/Box Selectors:'
  1330               #name: 'framedBox1'
  1344               #name: 'framedBox1'
  1331               #layout: #(#LayoutFrame 1 0.0 191 0 1 1.0 279 0)
  1345               #layout: #(#LayoutFrame 1 0.0 205 0 1 1.0 293 0)
  1332               #labelPosition: #topLeft
  1346               #labelPosition: #topLeft
  1333               #component: 
  1347               #component: 
  1334              #(#SpecCollection
  1348              #(#SpecCollection
  1335                 #collection: #(
  1349                 #collection: #(
  1336                  #(#LabelSpec
  1350                  #(#LabelSpec
  2518                     backgroundSelector:nil;
  2532                     backgroundSelector:nil;
  2519                     foregroundSelector:nil;
  2533                     foregroundSelector:nil;
  2520                     rowSeparatorSelector:nil;
  2534                     rowSeparatorSelector:nil;
  2521                     selectSelector: nil;
  2535                     selectSelector: nil;
  2522                     showComboFieldSelector: nil;
  2536                     showComboFieldSelector: nil;
       
  2537                     selectSelector: nil;
  2523                     doubleClickedSelector: nil;
  2538                     doubleClickedSelector: nil;
  2524                     printSelector: nil;
  2539                     printSelector: nil;
  2525                     menu: nil;
  2540                     menu: nil;
  2526                     labelActionSelector:#labelInPreviewPressed:;
  2541                     labelActionSelector:#labelInPreviewPressed:;
  2527                     labelActionArgument:anIndex;
  2542                     labelActionArgument:anIndex;
  2671 
  2686 
  2672     type := (aspects at:#rendererType) value.
  2687     type := (aspects at:#rendererType) value.
  2673 
  2688 
  2674     type == #rowSelector ifTrue:[
  2689     type == #rowSelector ifTrue:[
  2675         #(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
  2690         #(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
  2676           formatString type size height canSelect selectSelector showComboFieldSelector
  2691           formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
  2677          ) do:[:aKey|
  2692          ) do:[:aKey|
  2678             (aspects at:aKey) value:nil
  2693             (aspects at:aKey) value:nil
  2679         ]
  2694         ]
  2680     ].
  2695     ].
  2681     aspects keysAndValuesDo:[:aKey :aModel| 
  2696     aspects keysAndValuesDo:[:aKey :aModel|