UILayoutTool.st
changeset 1074 49ef9991d1d5
parent 1072 84ae04e0af72
child 1077 46793bf50415
equal deleted inserted replaced
1073:3436bfc555e0 1074:49ef9991d1d5
   487     |type name list|
   487     |type name list|
   488 
   488 
   489     layoutView := aView.
   489     layoutView := aView.
   490     layoutSpec := aSpec.
   490     layoutSpec := aSpec.
   491 
   491 
       
   492     (self aspectFor:#defaultExtentEnabled) value:(aSpec class ==  WindowSpec) not.
       
   493 
   492     aTypeOrNil notNil ifTrue:[
   494     aTypeOrNil notNil ifTrue:[
   493         self class slices findFirst:[:e|
   495         self class slices findFirst:[:e|
   494             e last == aTypeOrNil ifTrue:[name := e first. true]
   496             e last == aTypeOrNil ifTrue:[name := e first. true]
   495         ].
   497         ].
   496         list := Array with:name
   498         list := Array with:name
   712         leftFraction            leftOffset
   714         leftFraction            leftOffset
   713         topFraction             topOffset
   715         topFraction             topOffset
   714         rightFraction           rightOffset
   716         rightFraction           rightOffset
   715         leftAlignmentFraction   topAlignmentFraction
   717         leftAlignmentFraction   topAlignmentFraction
   716         useDefaultExtent
   718         useDefaultExtent
       
   719         defaultExtentEnabled
   717     )
   720     )
   718 
   721 
   719     do:[:aKey||holder|
   722     do:[:aKey||holder|
   720         holder := ValueHolder new.
   723         holder := ValueHolder new.
   721         holder addDependent:self.
   724         holder addDependent:self.
  1183        #(#FullSpec
  1186        #(#FullSpec
  1184           #name: #windowSpec
  1187           #name: #windowSpec
  1185           #window: 
  1188           #window: 
  1186            #(#WindowSpec
  1189            #(#WindowSpec
  1187               #name: 'UILayoutTool-Extent'
  1190               #name: 'UILayoutTool-Extent'
  1188               #layout: #(#LayoutFrame 20 0 61 0 345 0 209 0)
  1191               #layout: #(#LayoutFrame 216 0 173 0 541 0 321 0)
  1189               #level: 0
  1192               #level: 0
  1190               #label: 'UILayoutTool-Extent'
  1193               #label: 'UILayoutTool-Extent'
  1191               #min: #(#Point 10 10)
  1194               #min: #(#Point 10 10)
  1192               #max: #(#Point 1152 900)
  1195               #max: #(#Point 1152 900)
  1193               #bounds: #(#Rectangle 20 61 346 210)
  1196               #bounds: #(#Rectangle 216 173 542 322)
  1194               #usePreferredExtent: false
  1197               #usePreferredExtent: false
  1195               #returnIsOKInDialog: true
  1198               #returnIsOKInDialog: true
  1196               #escapeIsCancelInDialog: true
  1199               #escapeIsCancelInDialog: true
  1197           )
  1200           )
  1198           #component: 
  1201           #component: 
  1244                               #acceptChannel: #acceptChannel
  1247                               #acceptChannel: #acceptChannel
  1245                               #modifiedChannel: #modifiedChannel
  1248                               #modifiedChannel: #modifiedChannel
  1246                           )
  1249                           )
  1247                            #(#CheckBoxSpec
  1250                            #(#CheckBoxSpec
  1248                               #name: 'useDefaultExtentCheckBox'
  1251                               #name: 'useDefaultExtentCheckBox'
  1249                               #layout: #(#LayoutFrame -1 0 75 0 135 0 97 0)
  1252                               #layout: #(#LayoutFrame -1 0 75 0 296 0 97 0)
  1250                               #model: #useDefaultExtent
  1253                               #model: #useDefaultExtent
  1251                               #label: 'Use Widgets Default Extent'
  1254                               #label: 'Use Widgets Default Extent'
  1252                               #translateLabel: true
  1255                               #translateLabel: true
       
  1256                               #enableChannel: #defaultExtentEnabled
  1253                           )
  1257                           )
  1254                         )
  1258                         )
  1255                     )
  1259                     )
  1256                     #label: 'Extent'
  1260                     #label: 'Extent'
  1257                     #labelPosition: #topLeft
  1261                     #labelPosition: #topLeft