--- a/DataSetBuilder.st Mon Sep 13 07:48:14 1999 +0200
+++ b/DataSetBuilder.st Tue Sep 14 08:40:10 1999 +0200
@@ -93,6 +93,7 @@
type
width
minWidth
+ usePreferredWidth
height
menu
foregroundSelector
@@ -878,14 +879,9 @@
#(#WindowSpec
#label: 'DataSet Dimension'
#name: 'DataSet Dimension'
- #layout: #(#LayoutFrame 699 0 270 0 1023 0 617 0)
- #level: 0
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 699 270 1024 618)
- #usePreferredExtent: false
- #returnIsOKInDialog: true
- #escapeIsCancelInDialog: true
+ #bounds: #(#Rectangle 96 97 421 445)
)
#component:
#(#SpecCollection
@@ -934,7 +930,7 @@
#(#FramedBoxSpec
#label: 'Dimensions:'
#name: 'framedBox1'
- #layout: #(#LayoutFrame 0 0.0 151 0 0 1.0 268 0)
+ #layout: #(#LayoutFrame 0 0.0 151 0 0 1.0 297 0)
#labelPosition: #topLeft
#component:
#(#SpecCollection
@@ -999,6 +995,12 @@
#modifiedChannel: #modifiedChannel
#acceptOnPointerLeave: false
)
+ #(#CheckBoxSpec
+ #label: 'Use Preferred Width'
+ #name: 'usePreferredWidth'
+ #layout: #(#LayoutFrame 5 0 96 0 141 0 118 0)
+ #model: #usePreferredWidth
+ )
)
)
@@ -2664,7 +2666,7 @@
type := (aspects at:#rendererType) value.
type == #rowSelector ifTrue:[
- #(label width minWidth editorType choices readSelector writeSelector printSelector
+ #(label width minWidth usePreferredWidth editorType choices readSelector writeSelector printSelector
formatString type size height canSelect selectSelector showComboFieldSelector
) do:[:aKey|
(aspects at:aKey) value:nil