equal
deleted
inserted
replaced
1436 ! |
1436 ! |
1437 |
1437 |
1438 useHelpTool:aHelpTool |
1438 useHelpTool:aHelpTool |
1439 "take the help dictionaries from aHelpTool into my helpTool |
1439 "take the help dictionaries from aHelpTool into my helpTool |
1440 " |
1440 " |
1441 |tool| |
1441 self helpTool buildFromHelpTool:aHelpTool. |
1442 |
|
1443 tool := self helpTool. |
|
1444 |
|
1445 tool buildFromClass:(aHelpTool specClass). |
|
1446 tool dictionaries:(aHelpTool dictionaries). |
|
1447 tool dictionary:(aHelpTool dictionary). |
|
1448 ! ! |
1442 ! ! |
1449 |
1443 |
1450 !MenuEditor methodsFor:'actions'! |
1444 !MenuEditor methodsFor:'actions'! |
1451 |
1445 |
1452 accept |
1446 accept |