equal
deleted
inserted
replaced
1576 ' builder aspectAt:#' , specSelector, ' put:(list := self class ', specSelector, ').\' , |
1576 ' builder aspectAt:#' , specSelector, ' put:(list := self class ', specSelector, ').\' , |
1577 ' ].\' , |
1577 ' ].\' , |
1578 ' ^ list\' , |
1578 ' ^ list\' , |
1579 '!! !!\\'. |
1579 '!! !!\\'. |
1580 |
1580 |
1581 (ReadStream on:(code withCRs)) fileIn |
1581 Class packageQuerySignal answer:cls package do:[ |
1582 |
1582 (ReadStream on:(code withCRs)) fileIn |
1583 |
1583 ] |
|
1584 |
|
1585 "Modified: / 28-01-2014 / 21:57:09 / cg" |
1584 ! |
1586 ! |
1585 |
1587 |
1586 doMoveTabUpOrDown:what |
1588 doMoveTabUpOrDown:what |
1587 "step up or down |
1589 "step up or down |
1588 " |
1590 " |
1677 |
1679 |
1678 code := code withCRs. |
1680 code := code withCRs. |
1679 Class packageQuerySignal |
1681 Class packageQuerySignal |
1680 answer:package |
1682 answer:package |
1681 do:[ |
1683 do:[ |
1682 (ReadStream on:code) fileIn. |
1684 Class packageQuerySignal answer:cls package do:[ |
1683 |
1685 (ReadStream on:code) fileIn. |
|
1686 ]. |
1684 (cls canUnderstand:specSelector) ifFalse:[ |
1687 (cls canUnderstand:specSelector) ifFalse:[ |
1685 (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[ |
1688 (YesNoBox confirm:(resources string:'Generate aspect method for tabList (#%1)?' with:specSelector)) ifTrue:[ |
1686 self doGenerateAspectMethod |
1689 self doGenerateAspectMethod |
1687 ] |
1690 ] |
1688 ]. |
1691 ]. |
1689 ]. |
1692 ]. |
1690 |
1693 |
1691 self addHistoryEntryForClass:cls selector:specSelector. |
1694 self addHistoryEntryForClass:cls selector:specSelector. |
1692 self clearModified. |
1695 self clearModified. |
1693 hasSaved := true. |
1696 hasSaved := true. |
|
1697 |
|
1698 "Modified: / 28-01-2014 / 21:56:54 / cg" |
1694 ! |
1699 ! |
1695 |
1700 |
1696 openDocumentation |
1701 openDocumentation |
1697 self openHTMLDocument:'tools/uipainter/TabListEditor.html'. |
1702 self openHTMLDocument:'tools/uipainter/TabListEditor.html'. |
1698 ! ! |
1703 ! ! |