equal
deleted
inserted
replaced
11 " |
11 " |
12 |
12 |
13 |
13 |
14 |
14 |
15 ApplicationModel subclass:#MenuEditor |
15 ApplicationModel subclass:#MenuEditor |
16 instanceVariableNames:'specClass tabSelection aspects slices activeHelpTool' |
16 instanceVariableNames:'specClass tabSelection aspects slices activeHelpTool didInstall' |
17 classVariableNames:'' |
17 classVariableNames:'' |
18 poolDictionaries:'' |
18 poolDictionaries:'' |
19 category:'Interface-UIPainter' |
19 category:'Interface-UIPainter' |
20 ! |
20 ! |
21 |
21 |
1253 |
1253 |
1254 menuDefaultLink |
1254 menuDefaultLink |
1255 ^ self class menuDefaultLink |
1255 ^ self class menuDefaultLink |
1256 ! |
1256 ! |
1257 |
1257 |
|
1258 selectorName |
|
1259 ^ self painter selectorName |
|
1260 |
|
1261 "Created: 31.7.1997 / 14:11:28 / cg" |
|
1262 ! |
|
1263 |
1258 specClass |
1264 specClass |
1259 ^ specClass |
1265 ^ specClass |
1260 ! |
1266 ! |
1261 |
1267 |
1262 specClass:aClass |
1268 specClass:aClass |
1312 ]. |
1318 ]. |
1313 cont := node contents buildFromAspects:aspects. |
1319 cont := node contents buildFromAspects:aspects. |
1314 painter selectedNodeChanged |
1320 painter selectedNodeChanged |
1315 ]. |
1321 ]. |
1316 self modifiedChannel value:false. |
1322 self modifiedChannel value:false. |
1317 |
1323 didInstall := true |
1318 "Modified: 28.7.1997 / 12:37:17 / cg" |
1324 |
|
1325 "Modified: 31.7.1997 / 14:25:34 / cg" |
1319 ! |
1326 ! |
1320 |
1327 |
1321 cancel |
1328 cancel |
1322 |node| |
1329 |node| |
1323 |
1330 |
1510 |
1517 |
1511 |
1518 |
1512 ! ! |
1519 ! ! |
1513 |
1520 |
1514 !MenuEditor methodsFor:'queries'! |
1521 !MenuEditor methodsFor:'queries'! |
|
1522 |
|
1523 didInstall |
|
1524 "returns true if the menu was installed |
|
1525 " |
|
1526 |
|
1527 ^ didInstall ? false |
|
1528 |
|
1529 "Created: 31.7.1997 / 14:24:24 / cg" |
|
1530 ! |
1515 |
1531 |
1516 isHelpToolSelected |
1532 isHelpToolSelected |
1517 "returns true if current selection is help tool |
1533 "returns true if current selection is help tool |
1518 " |
1534 " |
1519 (slices notNil and:[tabSelection notNil]) ifTrue:[ |
1535 (slices notNil and:[tabSelection notNil]) ifTrue:[ |
1668 ]. |
1684 ]. |
1669 self buildFrom:cls andSelector:sel. |
1685 self buildFrom:cls andSelector:sel. |
1670 ! ! |
1686 ! ! |
1671 |
1687 |
1672 !MenuEditor methodsFor:'user interactions'! |
1688 !MenuEditor methodsFor:'user interactions'! |
|
1689 |
|
1690 closeRequest |
|
1691 "close the window - confirm if changed without saving |
|
1692 " |
|
1693 self modifiedChannel value ifTrue:[ |
|
1694 (self confirm:'quit without without saving your modifications ?') ifFalse:[ |
|
1695 ^ self |
|
1696 ] |
|
1697 ]. |
|
1698 |
|
1699 super closeRequest. |
|
1700 |
|
1701 "Modified: 31.7.1997 / 14:29:10 / cg" |
|
1702 ! |
1673 |
1703 |
1674 doBrowseAppClass |
1704 doBrowseAppClass |
1675 "open a browser on the class" |
1705 "open a browser on the class" |
1676 |
1706 |
1677 |cls| |
1707 |cls| |