equal
deleted
inserted
replaced
1496 ]. |
1496 ]. |
1497 ]. |
1497 ]. |
1498 ^ window openModal. |
1498 ^ window openModal. |
1499 ]. |
1499 ]. |
1500 |
1500 |
1501 (type == #normal or:[type = #slave or:[type = #partner or:[type = #popUpNotModal or:[type = #undecorated]]]]) ifTrue:[ |
1501 (type == #normal |
|
1502 or:[type = #slave or:[type = #partner |
|
1503 or:[type = #popUpNotModal |
|
1504 or:[type = #undecorated |
|
1505 or:[type = #undecoratedResizable]]]]]) ifTrue:[ |
1502 window isNil ifTrue:[ |
1506 window isNil ifTrue:[ |
1503 application notNil ifTrue:[ |
1507 application notNil ifTrue:[ |
1504 appWinClass := application applicationWindowClass |
1508 appWinClass := application applicationWindowClass |
1505 ] ifFalse:[ |
1509 ] ifFalse:[ |
1506 appWinClass := ApplicationWindow |
1510 appWinClass := ApplicationWindow |
1561 type == #popUpNotModal ifTrue:[ |
1565 type == #popUpNotModal ifTrue:[ |
1562 window bePopUpView. |
1566 window bePopUpView. |
1563 ] ifFalse:[ |
1567 ] ifFalse:[ |
1564 type == #undecorated ifTrue:[ |
1568 type == #undecorated ifTrue:[ |
1565 window beUndecorated. |
1569 window beUndecorated. |
1566 ] |
1570 ] ifFalse:[ |
|
1571 type == #undecoratedResizable ifTrue:[ |
|
1572 window beUndecoratedResizable. |
|
1573 ] |
|
1574 ]. |
1567 ] |
1575 ] |
1568 ]. |
1576 ]. |
1569 ]. |
1577 ]. |
1570 |
1578 |
1571 ((type = #slave or:[type = #partner]) |
1579 ((type = #slave or:[type = #partner]) |
1595 if ST-80 supports more types - these may be added later |
1603 if ST-80 supports more types - these may be added later |
1596 " |
1604 " |
1597 self shouldImplement |
1605 self shouldImplement |
1598 |
1606 |
1599 "Created: / 14-02-1997 / 20:22:24 / cg" |
1607 "Created: / 14-02-1997 / 20:22:24 / cg" |
1600 "Modified: / 03-03-2011 / 20:23:50 / cg" |
1608 "Modified: / 03-03-2011 / 20:27:05 / cg" |
1601 ! ! |
1609 ! ! |
1602 |
1610 |
1603 !WindowBuilder methodsFor:'translating'! |
1611 !WindowBuilder methodsFor:'translating'! |
1604 |
1612 |
1605 translateString:aString |
1613 translateString:aString |
1613 ! ! |
1621 ! ! |
1614 |
1622 |
1615 !WindowBuilder class methodsFor:'documentation'! |
1623 !WindowBuilder class methodsFor:'documentation'! |
1616 |
1624 |
1617 version |
1625 version |
1618 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $' |
1626 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.148 2011-03-03 19:40:08 cg Exp $' |
1619 ! |
1627 ! |
1620 |
1628 |
1621 version_CVS |
1629 version_CVS |
1622 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.147 2011-03-03 19:24:01 cg Exp $' |
1630 ^ '$Header: /cvs/stx/stx/libview2/WindowBuilder.st,v 1.148 2011-03-03 19:40:08 cg Exp $' |
1623 ! ! |
1631 ! ! |