UILayoutTool.st
changeset 1070 1735e40c6825
parent 1069 7196ca547f5d
child 1072 84ae04e0af72
equal deleted inserted replaced
1069:7196ca547f5d 1070:1735e40c6825
  1301 'Offset of the right edge; positive is to the right, negative to the left.'
  1301 'Offset of the right edge; positive is to the right, negative to the left.'
  1302 
  1302 
  1303 #rightRelative
  1303 #rightRelative
  1304 'Relative corner x of the selected widget.'
  1304 'Relative corner x of the selected widget.'
  1305 
  1305 
       
  1306 #topHalfLayout
       
  1307 'Set the layout for the top half of the widgets containers space'
       
  1308 
       
  1309 #bottomHalfLayout
       
  1310 'Set the layout for the bottom half of the widgets containers space'
       
  1311 
       
  1312 #leftHalfLayout
       
  1313 'Set the layout for the left half of the widgets containers space'
       
  1314 
       
  1315 #rightHalfLayout
       
  1316 'Set the layout for the right half of the widgets containers space'
       
  1317 
       
  1318 
  1306 )
  1319 )
  1307 ! !
  1320 ! !
       
  1321 
       
  1322 !UILayoutTool::LayoutFrame class methodsFor:'image specs'!
       
  1323 
       
  1324 setBottomHalfIcon
       
  1325     "This resource specification was automatically generated
       
  1326      by the ImageEditor of ST/X."
       
  1327 
       
  1328     "Do not manually edit this!! If it is corrupted,
       
  1329      the ImageEditor may not be able to read the specification."
       
  1330 
       
  1331     "
       
  1332      self setBottomHalfIcon inspect
       
  1333      ImageEditor openOnClass:self andSelector:#setBottomHalfIcon
       
  1334     "
       
  1335 
       
  1336     <resource: #image>
       
  1337 
       
  1338     ^Icon
       
  1339         constantNamed:#'UILayoutTool::LayoutFrame setBottomHalfIcon'
       
  1340         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@"H"H"H"H"@BDQDQDQDQH@HQDQDQDQD @!!DQDQDQDR@BDQDQDQDQH@H"H"H"H"H @@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@@X@A @F@@X@A @F@@_????????????????????<b') ; yourself); yourself]!
       
  1341 
       
  1342 setBottomLeftQuarterIcon
       
  1343     "This resource specification was automatically generated
       
  1344      by the ImageEditor of ST/X."
       
  1345 
       
  1346     "Do not manually edit this!! If it is corrupted,
       
  1347      the ImageEditor may not be able to read the specification."
       
  1348 
       
  1349     "
       
  1350      self setBottomLeftQuarterIcon inspect
       
  1351      ImageEditor openOnClass:self andSelector:#setBottomLeftQuarterIcon
       
  1352     "
       
  1353 
       
  1354     <resource: #image>
       
  1355 
       
  1356     ^Icon
       
  1357         constantNamed:#'UILayoutTool::LayoutFrame setBottomLeftQuarterIcon'
       
  1358         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H"H"@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@H"H"@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@@X@A @F@@X@A @G?@_<A?0G?@_<A?0G?@_<A??<b') ; yourself); yourself]!
       
  1359 
       
  1360 setBottomRightQuarterIcon
       
  1361     "This resource specification was automatically generated
       
  1362      by the ImageEditor of ST/X."
       
  1363 
       
  1364     "Do not manually edit this!! If it is corrupted,
       
  1365      the ImageEditor may not be able to read the specification."
       
  1366 
       
  1367     "
       
  1368      self setBottomRightQuarterIcon inspect
       
  1369      ImageEditor openOnClass:self andSelector:#setBottomRightQuarterIcon
       
  1370     "
       
  1371 
       
  1372     <resource: #image>
       
  1373 
       
  1374     ^Icon
       
  1375         constantNamed:#'UILayoutTool::LayoutFrame setBottomRightQuarterIcon'
       
  1376         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH"H"@@@@@@HQDQH@@@@@@!!DQD @@@@@BDQDR@@@@@@HQDQH@@@@@@"H"H @@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@@X@A @F@@X@A @F@@XG? _>A?8G? _>A?8G???<b') ; yourself); yourself]!
       
  1377 
       
  1378 setLeftHalfIcon
       
  1379     "This resource specification was automatically generated
       
  1380      by the ImageEditor of ST/X."
       
  1381 
       
  1382     "Do not manually edit this!! If it is corrupted,
       
  1383      the ImageEditor may not be able to read the specification."
       
  1384 
       
  1385     "
       
  1386      self setLeftHalfIcon inspect
       
  1387      ImageEditor openOnClass:self andSelector:#setLeftHalfIcon
       
  1388     "
       
  1389 
       
  1390     <resource: #image>
       
  1391 
       
  1392     ^Icon
       
  1393         constantNamed:#'UILayoutTool::LayoutFrame setLeftHalfIcon'
       
  1394         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@BH"H @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@H"H"@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'????@_<A?0G?@_<A?0G?@_<A?0G?@_<A?0G?@_<A??<b') ; yourself); yourself]!
       
  1395 
       
  1396 setRightHalfIcon
       
  1397     "This resource specification was automatically generated
       
  1398      by the ImageEditor of ST/X."
       
  1399 
       
  1400     "Do not manually edit this!! If it is corrupted,
       
  1401      the ImageEditor may not be able to read the specification."
       
  1402 
       
  1403     "
       
  1404      self setRightHalfIcon inspect
       
  1405      ImageEditor openOnClass:self andSelector:#setRightHalfIcon
       
  1406     "
       
  1407 
       
  1408     <resource: #image>
       
  1409 
       
  1410     ^Icon
       
  1411         constantNamed:#'UILayoutTool::LayoutFrame setRightHalfIcon'
       
  1412         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@"H"H@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BH"H @@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@?8C? O>@?8C? O>@?8C? O>@?8C? O>@?8C???<b') ; yourself); yourself]!
       
  1413 
       
  1414 setToRightQuarterIcon
       
  1415     "This resource specification was automatically generated
       
  1416      by the ImageEditor of ST/X."
       
  1417 
       
  1418     "Do not manually edit this!! If it is corrupted,
       
  1419      the ImageEditor may not be able to read the specification."
       
  1420 
       
  1421     "
       
  1422      self setToRightQuarterIcon inspect
       
  1423      ImageEditor openOnClass:self andSelector:#setToRightQuarterIcon
       
  1424     "
       
  1425 
       
  1426     <resource: #image>
       
  1427 
       
  1428     ^Icon
       
  1429         constantNamed:#'UILayoutTool::LayoutFrame setToRightQuarterIcon'
       
  1430         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@"H"H@@@@@@BDQD @@@@@@HQDR@@@@@@@!!DQH@@@@@@BDQD @@@@@@HQDR@@@@@@@"H"H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??>@?8C? O>@?8C? O>@?8C? @F@@X@A @F@@X@A??<b') ; yourself); yourself]!
       
  1431 
       
  1432 setTopHalfIcon
       
  1433     "This resource specification was automatically generated
       
  1434      by the ImageEditor of ST/X."
       
  1435 
       
  1436     "Do not manually edit this!! If it is corrupted,
       
  1437      the ImageEditor may not be able to read the specification."
       
  1438 
       
  1439     "
       
  1440      self setTopHalfIcon inspect
       
  1441      ImageEditor openOnClass:self andSelector:#setTopHalfIcon
       
  1442     "
       
  1443 
       
  1444     <resource: #image>
       
  1445 
       
  1446     ^Icon
       
  1447         constantNamed:#'UILayoutTool::LayoutFrame setTopHalfIcon'
       
  1448         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@BH"H"H"H"H@HQDQDQDQD @!!DQDQDQDR@BDQDQDQDQH@HQDQDQDQD @"H"H"H"H"@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?????????????????????8@A @F@@X@A @F@@X@A??<b') ; yourself); yourself]!
       
  1449 
       
  1450 setTopLeftQuarterIcon
       
  1451     "This resource specification was automatically generated
       
  1452      by the ImageEditor of ST/X."
       
  1453 
       
  1454     "Do not manually edit this!! If it is corrupted,
       
  1455      the ImageEditor may not be able to read the specification."
       
  1456 
       
  1457     "
       
  1458      self setTopLeftQuarterIcon inspect
       
  1459      ImageEditor openOnClass:self andSelector:#setTopLeftQuarterIcon
       
  1460     "
       
  1461 
       
  1462     <resource: #image>
       
  1463 
       
  1464     ^Icon
       
  1465         constantNamed:#'UILayoutTool::LayoutFrame setTopLeftQuarterIcon'
       
  1466         ifAbsentPut:[(Depth4Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@BH"H"@@@@@@HQDQH@@@@@@!!DQD @@@@@BDQDR@@@@@@HQDQH@@@@@@"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'???? _>A?8G? _>A?8G? X@A @F@@X@A @F@@X@A??<b') ; yourself); yourself]! !
  1308 
  1467 
  1309 !UILayoutTool::LayoutFrame class methodsFor:'interface specs'!
  1468 !UILayoutTool::LayoutFrame class methodsFor:'interface specs'!
  1310 
  1469 
  1311 windowSpec
  1470 windowSpec
  1312     "This resource specification was automatically generated
  1471     "This resource specification was automatically generated
  1324     <resource: #canvas>
  1483     <resource: #canvas>
  1325 
  1484 
  1326     ^
  1485     ^
  1327      
  1486      
  1328        #(#FullSpec
  1487        #(#FullSpec
       
  1488           #name: #windowSpec
  1329           #window: 
  1489           #window: 
  1330            #(#WindowSpec
  1490            #(#WindowSpec
  1331               #name: 'UILayoutTool-LayoutFrame'
  1491               #name: 'UILayoutTool-LayoutFrame'
  1332               #layout: #(#LayoutFrame 291 0 130 0 689 0 363 0)
  1492               #layout: #(#LayoutFrame 216 0 173 0 614 0 475 0)
       
  1493               #level: 0
  1333               #label: 'UILayoutTool-LayoutFrame'
  1494               #label: 'UILayoutTool-LayoutFrame'
  1334               #min: #(#Point 10 10)
  1495               #min: #(#Point 10 10)
  1335               #max: #(#Point 1152 900)
  1496               #max: #(#Point 1152 900)
  1336               #bounds: #(#Rectangle 291 130 690 364)
  1497               #bounds: #(#Rectangle 216 173 615 476)
  1337               #usePreferredExtent: false
  1498               #usePreferredExtent: false
  1338               #forceRecursiveBackground: false
  1499               #forceRecursiveBackground: false
       
  1500               #returnIsOKInDialog: true
       
  1501               #escapeIsCancelInDialog: true
  1339           )
  1502           )
  1340           #component: 
  1503           #component: 
  1341            #(#SpecCollection
  1504            #(#SpecCollection
  1342               #collection: 
  1505               #collection: 
  1343                #(
  1506                #(
  1364                               #layout: #(#LayoutFrame 90 0 14 0 140 0 36 0)
  1527                               #layout: #(#LayoutFrame 90 0 14 0 140 0 36 0)
  1365                               #activeHelpKey: #rightRelative
  1528                               #activeHelpKey: #rightRelative
  1366                               #model: #rightFraction
  1529                               #model: #rightFraction
  1367                               #group: #inputGroup
  1530                               #group: #inputGroup
  1368                               #type: #numberOrNil
  1531                               #type: #numberOrNil
  1369                     #acceptChannel: #acceptChannel
  1532                               #acceptChannel: #acceptChannel
  1370                     #modifiedChannel: #modifiedChannel
  1533                               #modifiedChannel: #modifiedChannel
  1371                           )
  1534                           )
  1372                            #(#ActionButtonSpec
  1535                            #(#ActionButtonSpec
  1373                               #name: 'actionRelativeRight'
  1536                               #name: 'actionRelativeRight'
  1374                               #layout: #(#LayoutFrame 145 0 14 0 167 0 36 0)
  1537                               #layout: #(#LayoutFrame 145 0 14 0 167 0 36 0)
  1375                               #activeHelpKey: #makeRightRelative
  1538                               #activeHelpKey: #makeRightRelative
  1380                               #layout: #(#LayoutFrame 190 0 14 0 240 0 36 0)
  1543                               #layout: #(#LayoutFrame 190 0 14 0 240 0 36 0)
  1381                               #activeHelpKey: #rightAbsolute
  1544                               #activeHelpKey: #rightAbsolute
  1382                               #model: #rightOffset
  1545                               #model: #rightOffset
  1383                               #group: #inputGroup
  1546                               #group: #inputGroup
  1384                               #type: #numberOrNil
  1547                               #type: #numberOrNil
  1385                     #acceptChannel: #acceptChannel
  1548                               #acceptChannel: #acceptChannel
  1386                     #modifiedChannel: #modifiedChannel
  1549                               #modifiedChannel: #modifiedChannel
  1387                           )
  1550                           )
  1388                            #(#ActionButtonSpec
  1551                            #(#ActionButtonSpec
  1389                               #name: 'actionAbsoluteRight'
  1552                               #name: 'actionAbsoluteRight'
  1390                               #layout: #(#LayoutFrame 245 0 14 0 267 0 36 0)
  1553                               #layout: #(#LayoutFrame 245 0 14 0 267 0 36 0)
  1391                               #activeHelpKey: #makeRightAbsolute
  1554                               #activeHelpKey: #makeRightAbsolute
  1401                               #layout: #(#LayoutFrame 90 0 42 0 140 0 64 0)
  1564                               #layout: #(#LayoutFrame 90 0 42 0 140 0 64 0)
  1402                               #activeHelpKey: #bottomRelative
  1565                               #activeHelpKey: #bottomRelative
  1403                               #model: #bottomFraction
  1566                               #model: #bottomFraction
  1404                               #group: #inputGroup
  1567                               #group: #inputGroup
  1405                               #type: #numberOrNil
  1568                               #type: #numberOrNil
  1406                     #acceptChannel: #acceptChannel
  1569                               #acceptChannel: #acceptChannel
  1407                     #modifiedChannel: #modifiedChannel
  1570                               #modifiedChannel: #modifiedChannel
  1408                           )
  1571                           )
  1409                            #(#ActionButtonSpec
  1572                            #(#ActionButtonSpec
  1410                               #name: 'actionRelativeBottom'
  1573                               #name: 'actionRelativeBottom'
  1411                               #layout: #(#LayoutFrame 145 0 42 0 167 0 64 0)
  1574                               #layout: #(#LayoutFrame 145 0 42 0 167 0 64 0)
  1412                               #activeHelpKey: #makeBottomRelative
  1575                               #activeHelpKey: #makeBottomRelative
  1417                               #layout: #(#LayoutFrame 190 0 42 0 240 0 64 0)
  1580                               #layout: #(#LayoutFrame 190 0 42 0 240 0 64 0)
  1418                               #activeHelpKey: #bottomAbsolute
  1581                               #activeHelpKey: #bottomAbsolute
  1419                               #model: #bottomOffset
  1582                               #model: #bottomOffset
  1420                               #group: #inputGroup
  1583                               #group: #inputGroup
  1421                               #type: #numberOrNil
  1584                               #type: #numberOrNil
  1422                     #acceptChannel: #acceptChannel
  1585                               #acceptChannel: #acceptChannel
  1423                     #modifiedChannel: #modifiedChannel
  1586                               #modifiedChannel: #modifiedChannel
  1424                           )
  1587                           )
  1425                            #(#ActionButtonSpec
  1588                            #(#ActionButtonSpec
  1426                               #name: 'actionAbsoluteBottom'
  1589                               #name: 'actionAbsoluteBottom'
  1427                               #layout: #(#LayoutFrame 245 0 42 0 267 0 64 0)
  1590                               #layout: #(#LayoutFrame 245 0 42 0 267 0 64 0)
  1428                               #activeHelpKey: #makeBottomAbsolute
  1591                               #activeHelpKey: #makeBottomAbsolute
  1431                         )
  1594                         )
  1432                     )
  1595                     )
  1433                     #label: 'Corner'
  1596                     #label: 'Corner'
  1434                     #labelPosition: #topLeft
  1597                     #labelPosition: #topLeft
  1435                 )
  1598                 )
       
  1599                  #(#MenuPanelSpec
       
  1600                     #name: 'commonLayoutToolBar'
       
  1601                     #layout: #(#LayoutFrame 10 0.0 224 0 0 1.0 256 0)
       
  1602                     #level: 0
       
  1603                     #menu: #commonFrameLayoutsMenu
       
  1604                     #textDefault: true
       
  1605                 )
  1436               )
  1606               )
  1437           )
  1607           )
  1438       )
  1608       )
  1439 
  1609 ! !
  1440     "Modified: / 13.8.1998 / 19:58:24 / cg"
  1610 
       
  1611 !UILayoutTool::LayoutFrame class methodsFor:'menu specs'!
       
  1612 
       
  1613 commonFrameLayoutsMenu
       
  1614     "This resource specification was automatically generated
       
  1615      by the MenuEditor of ST/X."
       
  1616 
       
  1617     "Do not manually edit this!! If it is corrupted,
       
  1618      the MenuEditor may not be able to read the specification."
       
  1619 
       
  1620     "
       
  1621      MenuEditor new openOnClass:UILayoutTool::LayoutFrame andSelector:#commonFrameLayoutsMenu
       
  1622      (Menu new fromLiteralArrayEncoding:(UILayoutTool::LayoutFrame commonFrameLayoutsMenu)) startUp
       
  1623     "
       
  1624 
       
  1625     <resource: #menu>
       
  1626 
       
  1627     ^
       
  1628      
       
  1629        #(#Menu
       
  1630           
       
  1631            #(
       
  1632              #(#MenuItem
       
  1633                 #label: 'setTopHalfFrame'
       
  1634                 #translateLabel: true
       
  1635                 #isButton: true
       
  1636                 #nameKey: #setTopHalfFrame
       
  1637                 #value: #setTopHalfFrame
       
  1638                 #activeHelpKey: #topHalfLayout
       
  1639                 #labelImage: #(#ResourceRetriever #'UILayoutTool::LayoutFrame' #setTopHalfIcon)
       
  1640             )
       
  1641              #(#MenuItem
       
  1642                 #label: 'setBottomHalfFrame'
       
  1643                 #translateLabel: true
       
  1644                 #isButton: true
       
  1645                 #nameKey: #setBottomHalfFrame
       
  1646                 #value: #setBottomHalfFrame
       
  1647                 #activeHelpKey: #bottomHalfLayout
       
  1648                 #labelImage: #(#ResourceRetriever nil #setBottomHalfIcon)
       
  1649             )
       
  1650              #(#MenuItem
       
  1651                 #label: 'setLeftHalfFrame'
       
  1652                 #translateLabel: true
       
  1653                 #isButton: true
       
  1654                 #nameKey: #setLeftHalfFrame
       
  1655                 #value: #setLeftHalfFrame
       
  1656                 #activeHelpKey: #leftHalfLayout
       
  1657                 #labelImage: #(#ResourceRetriever nil #setLeftHalfIcon)
       
  1658             )
       
  1659              #(#MenuItem
       
  1660                 #label: 'setRightHalfFrame'
       
  1661                 #translateLabel: true
       
  1662                 #isButton: true
       
  1663                 #nameKey: #setRightHalfFrame
       
  1664                 #value: #setRightHalfFrame
       
  1665                 #activeHelpKey: #rightHalfLayout
       
  1666                 #labelImage: #(#ResourceRetriever nil #setRightHalfIcon)
       
  1667             )
       
  1668              #(#MenuItem
       
  1669                 #label: ''
       
  1670             )
       
  1671              #(#MenuItem
       
  1672                 #label: 'setTopLeftQuarterFrame'
       
  1673                 #translateLabel: true
       
  1674                 #isButton: true
       
  1675                 #nameKey: #setTopLeftQuarterFrame
       
  1676                 #value: #setTopLeftQuarterFrame
       
  1677                 #labelImage: #(#ResourceRetriever nil #setTopLeftQuarterIcon)
       
  1678             )
       
  1679              #(#MenuItem
       
  1680                 #label: 'setTopRightQuarterFrame'
       
  1681                 #translateLabel: true
       
  1682                 #isButton: true
       
  1683                 #nameKey: #setTopRightQuarterFrame
       
  1684                 #value: #setTopRightQuarterFrame
       
  1685                 #labelImage: #(#ResourceRetriever nil #setToRightQuarterIcon)
       
  1686             )
       
  1687              #(#MenuItem
       
  1688                 #label: 'setBottomRightQuarterFrame'
       
  1689                 #translateLabel: true
       
  1690                 #isButton: true
       
  1691                 #nameKey: #setBottomRightQuarterFrame
       
  1692                 #value: #setBottomRightQuarterFrame
       
  1693                 #labelImage: #(#ResourceRetriever nil #setBottomRightQuarterIcon)
       
  1694             )
       
  1695              #(#MenuItem
       
  1696                 #label: 'setBottomLeftQuarterFrame'
       
  1697                 #translateLabel: true
       
  1698                 #isButton: true
       
  1699                 #nameKey: #setBottomLeftQuarterFrame
       
  1700                 #value: #setBottomLeftQuarterFrame
       
  1701                 #labelImage: #(#ResourceRetriever nil #setBottomLeftQuarterIcon)
       
  1702             )
       
  1703           ) nil
       
  1704           nil
       
  1705       )
  1441 ! !
  1706 ! !
  1442 
  1707 
  1443 !UILayoutTool::LayoutFrame methodsFor:'accessing'!
  1708 !UILayoutTool::LayoutFrame methodsFor:'accessing'!
  1444 
  1709 
  1445 fetch:aView
  1710 fetch:aView
  1474     layout    topFraction:((self aspectFor:#topFraction)    value) ? 0.
  1739     layout    topFraction:((self aspectFor:#topFraction)    value) ? 0.
  1475     layout bottomFraction:((self aspectFor:#bottomFraction) value) ? 0.
  1740     layout bottomFraction:((self aspectFor:#bottomFraction) value) ? 0.
  1476 
  1741 
  1477   ^ layout
  1742   ^ layout
  1478 
  1743 
       
  1744 ! !
       
  1745 
       
  1746 !UILayoutTool::LayoutFrame methodsFor:'common frames'!
       
  1747 
       
  1748 setBottomHalfFrame
       
  1749     self
       
  1750         setFrameLeft:0  offset:0 
       
  1751         right:1         offset:0 
       
  1752         top:0.5         offset:0 
       
  1753         bottom:1        offset:0
       
  1754 !
       
  1755 
       
  1756 setBottomLeftQuarterFrame
       
  1757     self
       
  1758         setFrameLeft:0   offset:0 
       
  1759         right:0.5        offset:0 
       
  1760         top:0.5          offset:0 
       
  1761         bottom:1         offset:0
       
  1762 !
       
  1763 
       
  1764 setBottomRightQuarterFrame
       
  1765     self
       
  1766         setFrameLeft:0.5 offset:0 
       
  1767         right:1          offset:0 
       
  1768         top:0.5          offset:0 
       
  1769         bottom:1         offset:0
       
  1770 !
       
  1771 
       
  1772 setFrameLeft:lF offset:lO right:rF offset:rO top:tF offset:tO bottom:bF offset:bO
       
  1773     (self aspectFor:#leftOffset)     value:lO.
       
  1774     (self aspectFor:#rightOffset)    value:rO.
       
  1775     (self aspectFor:#topOffset)      value:tO.
       
  1776     (self aspectFor:#bottomOffset)   value:bO.
       
  1777 
       
  1778     (self aspectFor:#leftFraction)   value:lF.
       
  1779     (self aspectFor:#rightFraction)  value:rF.
       
  1780     (self aspectFor:#topFraction)    value:tF.
       
  1781     (self aspectFor:#bottomFraction) value:bF.
       
  1782 !
       
  1783 
       
  1784 setLeftHalfFrame
       
  1785     self
       
  1786         setFrameLeft:0  offset:0 
       
  1787         right:0.5       offset:0 
       
  1788         top:0           offset:0 
       
  1789         bottom:1        offset:0
       
  1790 !
       
  1791 
       
  1792 setRightHalfFrame
       
  1793     self
       
  1794         setFrameLeft:0.5 offset:0 
       
  1795         right:1          offset:0 
       
  1796         top:0            offset:0 
       
  1797         bottom:1         offset:0
       
  1798 !
       
  1799 
       
  1800 setTopHalfFrame
       
  1801     self
       
  1802         setFrameLeft:0   offset:0 
       
  1803         right:1          offset:0 
       
  1804         top:0            offset:0 
       
  1805         bottom:0.5       offset:0
       
  1806 !
       
  1807 
       
  1808 setTopLeftQuarterFrame
       
  1809     self
       
  1810         setFrameLeft:0   offset:0 
       
  1811         right:0.5        offset:0 
       
  1812         top:0            offset:0 
       
  1813         bottom:0.5       offset:0
       
  1814 !
       
  1815 
       
  1816 setTopRightQuarterFrame
       
  1817     self
       
  1818         setFrameLeft:0.5 offset:0 
       
  1819         right:1          offset:0 
       
  1820         top:0            offset:0 
       
  1821         bottom:0.5       offset:0
  1479 ! !
  1822 ! !
  1480 
  1823 
  1481 !UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
  1824 !UILayoutTool::LayoutOrigin class methodsFor:'interface specs'!
  1482 
  1825 
  1483 windowSpec
  1826 windowSpec