equal
deleted
inserted
replaced
1455 ((type == #dialog) or:[type == #toolDialog]) ifTrue:[ |
1455 ((type == #dialog) or:[type == #toolDialog]) ifTrue:[ |
1456 window fixSize |
1456 window fixSize |
1457 ] |
1457 ] |
1458 ]. |
1458 ]. |
1459 |
1459 |
1460 ((type == #dialog) or:[type == #toolDialog or:[ type == #popUp] ]) ifTrue:[ |
1460 ((type == #dialog) or:[type == #toolDialog or:[ type == #popUp or:[type == #popUpWithFrame]] ]) ifTrue:[ |
1461 |newOrigin| |
1461 |newOrigin| |
1462 |
1462 |
1463 ((origin isNil and:[window class forceModalBoxesToOpenAtCenter]) |
1463 ((origin isNil and:[window class forceModalBoxesToOpenAtCenter]) |
1464 or:[origin == #center]) ifTrue:[ |
1464 or:[origin == #center]) ifTrue:[ |
1465 newOrigin := nil. |
1465 newOrigin := nil. |
1486 type == #toolDialog ifTrue:[ |
1486 type == #toolDialog ifTrue:[ |
1487 window beToolDialog |
1487 window beToolDialog |
1488 ] ifFalse:[ |
1488 ] ifFalse:[ |
1489 type == #popUp ifTrue:[ |
1489 type == #popUp ifTrue:[ |
1490 window bePopUpView. |
1490 window bePopUpView. |
1491 ] |
1491 ] ifFalse:[ |
|
1492 type == #popUpWithFrame ifTrue:[ |
|
1493 "/ window windowType:type. |
|
1494 window beUndecorated. |
|
1495 ] |
|
1496 ]. |
1492 ]. |
1497 ]. |
1493 ^ window openModal. |
1498 ^ window openModal. |
1494 ]. |
1499 ]. |
1495 |
1500 |
1496 (type == #normal or:[type = #slave or:[type = #partner or:[type = #popUpNotModal]]]) ifTrue:[ |
1501 (type == #normal or:[type = #slave or:[type = #partner or:[type = #popUpNotModal or:[type = #undecorated]]]]) ifTrue:[ |
1497 window isNil ifTrue:[ |
1502 window isNil ifTrue:[ |
1498 application notNil ifTrue:[ |
1503 application notNil ifTrue:[ |
1499 appWinClass := application applicationWindowClass |
1504 appWinClass := application applicationWindowClass |
1500 ] ifFalse:[ |
1505 ] ifFalse:[ |
1501 appWinClass := ApplicationWindow |
1506 appWinClass := ApplicationWindow |
1553 type = #partner ifTrue:[ |
1558 type = #partner ifTrue:[ |
1554 window bePartner. |
1559 window bePartner. |
1555 ] ifFalse:[ |
1560 ] ifFalse:[ |
1556 type == #popUpNotModal ifTrue:[ |
1561 type == #popUpNotModal ifTrue:[ |
1557 window bePopUpView. |
1562 window bePopUpView. |
|
1563 ] ifFalse:[ |
|
1564 type == #undecorated ifTrue:[ |
|
1565 window beUndecorated. |
|
1566 ] |
1558 ] |
1567 ] |
1559 ]. |
1568 ]. |
1560 ]. |
1569 ]. |
1561 |
1570 |
1562 ((type = #slave or:[type = #partner]) |
1571 ((type = #slave or:[type = #partner]) |
1586 if ST-80 supports more types - these may be added later |
1595 if ST-80 supports more types - these may be added later |
1587 " |
1596 " |
1588 self shouldImplement |
1597 self shouldImplement |
1589 |
1598 |
1590 "Created: / 14-02-1997 / 20:22:24 / cg" |
1599 "Created: / 14-02-1997 / 20:22:24 / cg" |
1591 "Modified: / 03-03-2011 / 19:04:05 / cg" |
1600 "Modified: / 03-03-2011 / 20:23:50 / cg" |
1592 ! ! |
1601 ! ! |
1593 |
1602 |
1594 !WindowBuilder methodsFor:'translating'! |
1603 !WindowBuilder methodsFor:'translating'! |
1595 |
1604 |
1596 translateString:aString |
1605 translateString:aString |
1604 ! ! |
1613 ! ! |
1605 |
1614 |
1606 !WindowBuilder class methodsFor:'documentation'! |
1615 !WindowBuilder class methodsFor:'documentation'! |
1607 |
1616 |
1608 version |
1617 version |
1609 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.146 2011-03-03 18:32:41 cg Exp $' |
1618 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $' |
1610 ! |
1619 ! |
1611 |
1620 |
1612 version_CVS |
1621 version_CVS |
1613 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.146 2011-03-03 18:32:41 cg Exp $' |
1622 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $' |
1614 ! ! |
1623 ! ! |