1669 ! |
1669 ! |
1670 |
1670 |
1671 imageTool |
1671 imageTool |
1672 "get the image tool application |
1672 "get the image tool application |
1673 " |
1673 " |
1674 ^ wizards at:#image ifAbsentPut:[ |tool| |
1674 ^ wizards at:#image ifAbsentPut:[ |tool| |
1675 tool := ResourceEditor new createBuilder. |
1675 tool := ResourceEditor new createBuilder. |
1676 tool masterApplication:self. |
1676 tool masterApplication:self. |
1677 tool modifiedChannel: self enablingCommitButtonsHolder. |
1677 tool modifiedChannel: self enablingCommitButtonsHolder. |
1678 tool builder window:(ApplicationSubView new client:tool). |
1678 tool builder window:(ApplicationSubView new client:tool). |
1679 tool |
1679 tool |
1680 ] |
1680 ] |
1681 ! |
1681 ! |
1682 |
1682 |
1683 savedSpec |
1683 savedSpec |
1684 ^ savedSpec |
1684 ^ savedSpec |
1966 self tabChanged. |
1966 self tabChanged. |
1967 self updateChannels. |
1967 self updateChannels. |
1968 ! |
1968 ! |
1969 |
1969 |
1970 tabChanged |
1970 tabChanged |
1971 "called if the tab changed |
1971 "called if the tab changed" |
1972 " |
1972 |
1973 |tab selector item canvas wizardHolder| |
1973 |tab selector item canvas wizardHolder| |
1974 |
1974 |
1975 wizardHolder := self wizardHolder. |
1975 wizardHolder := self wizardHolder. |
1976 item := self selectedItem. |
1976 item := self selectedItem. |
1977 item isNil ifTrue:[ ^ wizardHolder value:nil ]. |
1977 item isNil ifTrue:[ |
|
1978 wizardHolder value:nil. |
|
1979 ^ self |
|
1980 ]. |
1978 |
1981 |
1979 tab := tabHolder value. |
1982 tab := tabHolder value. |
1980 |
1983 |
1981 tab notNil ifTrue:[ |
1984 tab notNil ifTrue:[ |
1982 tab := item slices detect:[:el| el first = tab ] ifNone:nil. |
1985 tab := item slices detect:[:el| el first = tab ] ifNone:nil. |
1983 ]. |
1986 ]. |
1984 tab isNil ifTrue:[ |
1987 tab isNil ifTrue:[ |
1985 ^ tabHolder value:( listOfTabs at:1 ifAbsent:nil ) |
1988 tabHolder value:( listOfTabs at:1 ifAbsent:nil ). |
|
1989 ^ self. |
1986 ]. |
1990 ]. |
1987 selector := tab last. |
1991 selector := tab last. |
1988 |
1992 |
1989 selector == #help ifTrue:[ ^ wizardHolder value:(self helpTool window) ]. |
1993 selector == #help ifTrue:[ |
1990 selector == #image ifTrue:[ ^ wizardHolder value:(self imageTool window) ]. |
1994 wizardHolder value:(self helpTool window). |
1991 |
1995 ^ self |
1992 canvas := wizards at:(item class name, selector) asSymbol |
1996 ]. |
1993 ifAbsentPut:[ SimpleView new client:self |
1997 selector == #image ifTrue:[ |
1994 spec:(item class perform:selector) |
1998 wizardHolder value:(self imageTool window). |
1995 builder:(self builder) |
1999 ^ self |
1996 ]. |
2000 ]. |
|
2001 |
|
2002 canvas := wizards |
|
2003 at:(item class name, selector) asSymbol |
|
2004 ifAbsentPut:[ |
|
2005 SimpleView new |
|
2006 client:self |
|
2007 spec:(item class perform:selector) |
|
2008 builder:(self builder) |
|
2009 ]. |
1997 |
2010 |
1998 wizardHolder value:canvas. |
2011 wizardHolder value:canvas. |
1999 ! |
2012 ! |
2000 |
2013 |
2001 update:something with:aParameter from:changedObject |
2014 update:something with:aParameter from:changedObject |