equal
deleted
inserted
replaced
1693 do:[ |
1693 do:[ |
1694 Class packageQuerySignal answer:cls package do:[ |
1694 Class packageQuerySignal answer:cls package do:[ |
1695 (ReadStream on:code) fileIn. |
1695 (ReadStream on:code) fileIn. |
1696 ]. |
1696 ]. |
1697 (cls canUnderstand:specSelector) ifFalse:[ |
1697 (cls canUnderstand:specSelector) ifFalse:[ |
1698 (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[ |
1698 (YesNoBox confirm:(resources string:'Generate aspect method (on instance side) to hold the tabList (#%1)?' with:specSelector)) ifTrue:[ |
1699 self doGenerateAspectMethod |
1699 self doGenerateAspectMethod |
1700 ] |
1700 ] |
1701 ]. |
1701 ]. |
1702 ]. |
1702 ]. |
1703 |
1703 |
1704 self addHistoryEntryForClass:cls selector:specSelector. |
1704 self addHistoryEntryForClass:cls selector:specSelector. |
1705 self clearModified. |
1705 self clearModified. |
1706 hasSaved := true. |
1706 hasSaved := true. |
1707 |
1707 |
1708 "Modified: / 28-01-2014 / 21:56:54 / cg" |
1708 "Modified: / 28-01-2014 / 21:56:54 / cg" |
|
1709 "Modified: / 06-08-2018 / 13:33:09 / Claus Gittinger" |
1709 ! |
1710 ! |
1710 |
1711 |
1711 openDocumentation |
1712 openDocumentation |
1712 self openHTMLDocument:'tools/uipainter/TabListEditor.html'. |
1713 self openHTMLDocument:'tools/uipainter/TabListEditor.html'. |
1713 ! ! |
1714 ! ! |