equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2002 by eXept Software AG |
2 COPYRIGHT (c) 2002 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1646 |
1644 |
1647 |
1645 |
1648 item isNil ifTrue:[ item := applicationList root ]. |
1646 item isNil ifTrue:[ item := applicationList root ]. |
1649 |
1647 |
1650 lastSelection := item. |
1648 lastSelection := item. |
1651 noApp := (item isNil) ifTrue:true ifFalse:[item isCategory]. |
1649 noApp := item isNil or:[item isCategory]. |
1652 self enableOK value:(noApp not). |
1650 self enableOK value:(noApp not). |
1653 self enableReload value:(noApp not). |
1651 self enableReload value:(noApp not). |
1654 self enableHelp value:(noApp not). |
1652 self enableHelp value:(noApp not). |
1655 |
1653 |
1656 window := self window. |
1654 window := self window. |
1716 ]. |
1714 ]. |
1717 |
1715 |
1718 "Modified: / 29-10-2010 / 11:51:13 / cg" |
1716 "Modified: / 29-10-2010 / 11:51:13 / cg" |
1719 "Modified: / 17-02-2012 / 10:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1717 "Modified: / 17-02-2012 / 10:24:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1720 "Modified (comment): / 06-08-2018 / 16:13:42 / Claus Gittinger" |
1718 "Modified (comment): / 06-08-2018 / 16:13:42 / Claus Gittinger" |
|
1719 "Modified: / 18-09-2018 / 12:08:30 / Stefan Vogel" |
1721 ! |
1720 ! |
1722 |
1721 |
1723 update:something with:aParameter from:changedObject |
1722 update:something with:aParameter from:changedObject |
1724 |subCanvasApplication| |
1723 |subCanvasApplication| |
1725 |
1724 |