--- a/DataSetBuilder.st Tue Oct 26 15:42:21 1999 +0200
+++ b/DataSetBuilder.st Tue Oct 26 17:31:42 1999 +0200
@@ -101,6 +101,7 @@
doubleClickedSelector
rowSeparatorSelector
selectSelector
+ converterSelector
showComboFieldSelector
printSelector
readSelector
@@ -139,7 +140,7 @@
<resource: #help>
- ^ super helpSpec addPairsFrom:#(
+ ^super helpSpec addPairsFrom:#(
#addColumn
'Adds a new column.'
@@ -192,12 +193,15 @@
#colorsForegroundSelector
'Selector returning the foreground color for a cell (optional).'
-#fileNew
-'Discard changes and continue with a new, empty column description'
+#converterSelector
+'Selector returning a TypeConverter on the model the argument or nil.'
#fileLoad
'Specify class/selector and edit that column description'
+#fileNew
+'Discard changes and continue with a new, empty column description'
+
#fileSave
'Install the column description'
@@ -231,9 +235,6 @@
#frameShowRowSeparatorSelector
'An optional selector, which is used to test whether the row separator at the bottom is shown.'
-#generate
-'Code generation.'
-
#generateCode
'Generate code and install in the selected class/selector.'
@@ -280,8 +281,6 @@
'Selector used to set the value derived from the editor.'
)
-
- "Modified: / 19.5.1998 / 23:20:51 / cg"
! !
!DataSetBuilder class methodsFor:'image specs'!
@@ -1209,14 +1208,9 @@
#(#WindowSpec
#label: 'DataSet Basic'
#name: 'DataSet Basic'
- #layout: #(#LayoutFrame 699 0 270 0 994 0 575 0)
- #level: 0
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 699 270 995 576)
- #usePreferredExtent: false
- #returnIsOKInDialog: true
- #escapeIsCancelInDialog: true
+ #bounds: #(#Rectangle 12 22 308 328)
)
#component:
#(#SpecCollection
@@ -1224,7 +1218,7 @@
#(#FramedBoxSpec
#label: 'Value Selectors:'
#name: 'valuesBox'
- #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 110 0)
+ #layout: #(#LayoutFrame 0 0.0 3 0 0 1.0 138 0)
#labelPosition: #topLeft
#component:
#(#SpecCollection
@@ -1270,15 +1264,35 @@
#acceptOnPointerLeave: false
)
#(#LabelSpec
- #label: 'Print:'
- #name: 'printLabel'
+ #label: 'Converter:'
+ #name: 'converterLabel'
#layout: #(#AlignmentOrigin 94 0 65 0 1 0.5)
#resizeForLabel: true
#adjust: #right
)
#(#InputFieldSpec
+ #name: 'converterField'
+ #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
+ #activeHelpKey: #converterSelector
+ #tabable: true
+ #model: #converterSelector
+ #group: #inputGroup
+ #type: #symbolOrNil
+ #acceptOnLostFocus: false
+ #acceptChannel: #acceptChannel
+ #modifiedChannel: #modifiedChannel
+ #acceptOnPointerLeave: false
+ )
+ #(#LabelSpec
+ #label: 'Print:'
+ #name: 'printLabel'
+ #layout: #(#AlignmentOrigin 94 0 97 0 1 0.5)
+ #resizeForLabel: true
+ #adjust: #right
+ )
+ #(#InputFieldSpec
#name: 'printSelector'
- #layout: #(#LayoutFrame 97 0 54 0 2 1.0 76 0)
+ #layout: #(#LayoutFrame 97 0 86 0 2 1.0 108 0)
#activeHelpKey: #valuesPrintSelector
#tabable: true
#model: #printSelector
@@ -1296,7 +1310,7 @@
#(#FramedBoxSpec
#label: 'Menu:'
#name: 'menusBox'
- #layout: #(#LayoutFrame 0 0.0 119 0 0 1.0 176 0)
+ #layout: #(#LayoutFrame 0 0.0 143 0 0 1.0 200 0)
#labelPosition: #topLeft
#component:
#(#SpecCollection
@@ -1328,7 +1342,7 @@
#(#FramedBoxSpec
#label: 'Combo List/Box Selectors:'
#name: 'framedBox1'
- #layout: #(#LayoutFrame 1 0.0 191 0 1 1.0 279 0)
+ #layout: #(#LayoutFrame 1 0.0 205 0 1 1.0 293 0)
#labelPosition: #topLeft
#component:
#(#SpecCollection
@@ -2520,6 +2534,7 @@
rowSeparatorSelector:nil;
selectSelector: nil;
showComboFieldSelector: nil;
+ selectSelector: nil;
doubleClickedSelector: nil;
printSelector: nil;
menu: nil;
@@ -2673,7 +2688,7 @@
type == #rowSelector ifTrue:[
#(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
- formatString type size height canSelect selectSelector showComboFieldSelector
+ formatString type converterSelector size height canSelect selectSelector showComboFieldSelector
) do:[:aKey|
(aspects at:aKey) value:nil
]