# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 937291210 -7200
# Node ID dd318d1c4aea12fb61bb237d48069ab99db5a1c7
# Parent  02d29dd7a0edcd7c17e4efe295b8cd0ba4bf8eb3
checkin from browser

diff -r 02d29dd7a0ed -r dd318d1c4aea DataSetBuilder.st
--- 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