DataSetBuilder.st
changeset 1822 75b0cdc3fa84
parent 1821 8676bf0d2b6c
child 1823 de7fbe3fde6d
equal deleted inserted replaced
1821:8676bf0d2b6c 1822:75b0cdc3fa84
   123         labelFont
   123         labelFont
   124         labelActionSelector
   124         labelActionSelector
   125         labelActionArgument
   125         labelActionArgument
   126         labelAlignment
   126         labelAlignment
   127         columnAlignment
   127         columnAlignment
       
   128         minValue
       
   129         maxValue
   128      )
   130      )
   129 
   131 
   130     "Modified: / 19.5.1998 / 21:27:06 / cg"
   132     "Modified: / 19.5.1998 / 21:27:06 / cg"
   131 ! !
   133 ! !
   132 
   134 
  1242         window: 
  1244         window: 
  1243        (WindowSpec
  1245        (WindowSpec
  1244           label: 'DataSet Basic'
  1246           label: 'DataSet Basic'
  1245           name: 'DataSet Basic'
  1247           name: 'DataSet Basic'
  1246           min: (Point 10 10)
  1248           min: (Point 10 10)
  1247           bounds: (Rectangle 14 46 310 360)
  1249           bounds: (Rectangle 0 0 436 576)
  1248         )
  1250         )
  1249         component: 
  1251         component: 
  1250        (SpecCollection
  1252        (SpecCollection
  1251           collection: (
  1253           collection: (
  1252            (FramedBoxSpec
  1254            (FramedBoxSpec
  1360                  )
  1362                  )
  1361                
  1363                
  1362               )
  1364               )
  1363             )
  1365             )
  1364            (FramedBoxSpec
  1366            (FramedBoxSpec
       
  1367               label: 'Range:'
       
  1368               name: 'FramedBox1'
       
  1369               layout: (LayoutFrame 0 0.0 158 0 0 1.0 214 0)
       
  1370               labelPosition: topLeft
       
  1371               component: 
       
  1372              (SpecCollection
       
  1373                 collection: (
       
  1374                  (LabelSpec
       
  1375                     label: 'Min:'
       
  1376                     name: 'Label1'
       
  1377                     layout: (LayoutFrame 11 0 3 0 94 0 20 0)
       
  1378                     resizeForLabel: true
       
  1379                     adjust: right
       
  1380                   )
       
  1381                  (InputFieldSpec
       
  1382                     name: 'EntryField1'
       
  1383                     layout: (LayoutFrame 97 0 1 0 20 0.5 23 0)
       
  1384                     activeHelpKey: valuesMenuSelector
       
  1385                     tabable: true
       
  1386                     model: minValue
       
  1387                     group: inputGroup
       
  1388                     type: numberOrNil
       
  1389                     formatString: ''
       
  1390                     acceptOnLeave: true
       
  1391                     acceptOnLostFocus: true
       
  1392                     acceptChannel: acceptChannel
       
  1393                     modifiedChannel: modifiedChannel
       
  1394                     acceptOnPointerLeave: true
       
  1395                   )
       
  1396                  (LabelSpec
       
  1397                     label: 'Max:'
       
  1398                     name: 'Label2'
       
  1399                     layout: (LayoutFrame 21 0.5 3 0 70 0.5 20 0)
       
  1400                     resizeForLabel: true
       
  1401                     adjust: right
       
  1402                   )
       
  1403                  (InputFieldSpec
       
  1404                     name: 'EntryField2'
       
  1405                     layout: (LayoutFrame 70 0.5 1 0 -2 1.0 23 0)
       
  1406                     activeHelpKey: valuesMenuSelector
       
  1407                     tabable: true
       
  1408                     model: maxValue
       
  1409                     group: inputGroup
       
  1410                     type: numberOrNil
       
  1411                     acceptOnLeave: true
       
  1412                     acceptOnLostFocus: true
       
  1413                     acceptChannel: acceptChannel
       
  1414                     modifiedChannel: modifiedChannel
       
  1415                     acceptOnPointerLeave: true
       
  1416                   )
       
  1417                  )
       
  1418                
       
  1419               )
       
  1420             )
       
  1421            (FramedBoxSpec
  1365               label: 'Menu:'
  1422               label: 'Menu:'
  1366               name: 'menusBox'
  1423               name: 'menusBox'
  1367               layout: (LayoutFrame 0 0.0 161 0 0 1.0 218 0)
  1424               layout: (LayoutFrame 0 0.0 213 0 0 1.0 270 0)
  1368               labelPosition: topLeft
  1425               labelPosition: topLeft
  1369               component: 
  1426               component: 
  1370              (SpecCollection
  1427              (SpecCollection
  1371                 collection: (
  1428                 collection: (
  1372                  (LabelSpec
  1429                  (LabelSpec
  1394               )
  1451               )
  1395             )
  1452             )
  1396            (FramedBoxSpec
  1453            (FramedBoxSpec
  1397               label: 'Combo List/Box Selectors:'
  1454               label: 'Combo List/Box Selectors:'
  1398               name: 'framedBox1'
  1455               name: 'framedBox1'
  1399               layout: (LayoutFrame 1 0.0 223 0 1 1.0 311 0)
  1456               layout: (LayoutFrame 1 0.0 271 0 1 1.0 359 0)
  1400               labelPosition: topLeft
  1457               labelPosition: topLeft
  1401               component: 
  1458               component: 
  1402              (SpecCollection
  1459              (SpecCollection
  1403                 collection: (
  1460                 collection: (
  1404                  (LabelSpec
  1461                  (LabelSpec
  2529     listOfSpecViews := Array new:(self class slices size).
  2586     listOfSpecViews := Array new:(self class slices size).
  2530 
  2587 
  2531 !
  2588 !
  2532 
  2589 
  2533 setDefaultValuesInNewColumn:aDataSetColumnSpec
  2590 setDefaultValuesInNewColumn:aDataSetColumnSpec
  2534     "/ nothing done here - hook for WO
  2591     aDataSetColumnSpec readSelector: #'valueAtColumnIndex:'.
       
  2592     aDataSetColumnSpec writeSelector: #'valueAtColumnIndex:put:'.
       
  2593     aDataSetColumnSpec backgroundSelector: #'bgAtRowIndex:columnIndex:'.
       
  2594     aDataSetColumnSpec foregroundSelector: #'fgAtRowIndex:columnIndex:'.
       
  2595     aDataSetColumnSpec selectSelector: #'selectAtColumnIndex:'.
       
  2596     aDataSetColumnSpec editorType: #InputField.
  2535 ! !
  2597 ! !
  2536 
  2598 
  2537 !DataSetBuilder methodsFor:'private'!
  2599 !DataSetBuilder methodsFor:'private'!
  2538 
  2600 
  2539 askForListModification
  2601 askForListModification
  2765     type == #rowSelector ifTrue:[
  2827     type == #rowSelector ifTrue:[
  2766         #(label 
  2828         #(label 
  2767           width minWidth usePreferredWidth editorType choices 
  2829           width minWidth usePreferredWidth editorType choices 
  2768           readSelector writeSelector printSelector visibilitySelector
  2830           readSelector writeSelector printSelector visibilitySelector
  2769           formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
  2831           formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
       
  2832           minValue maxValue
  2770          ) do:[:aKey|
  2833          ) do:[:aKey|
  2771             (aspects at:aKey) value:nil
  2834             (aspects at:aKey) value:nil
  2772         ]
  2835         ]
  2773     ].
  2836     ].
  2774     aspects keysAndValuesDo:[:aKey :aModel| 
  2837     aspects keysAndValuesDo:[:aKey :aModel|