equal
deleted
inserted
replaced
1402 !MenuEditor methodsFor:'accessing'! |
1402 !MenuEditor methodsFor:'accessing'! |
1403 |
1403 |
1404 helpTool |
1404 helpTool |
1405 "get the help tool application |
1405 "get the help tool application |
1406 " |
1406 " |
1407 ^ wizards at:#help ifAbsentPut:[ |tool| |
1407 ^ wizards at:#help ifAbsentPut:[ |tool| |
1408 tool := UIHelpTool new createBuilder. |
1408 tool := UIHelpTool new. |
1409 tool masterApplication:self. |
1409 tool masterApplication:self. |
1410 tool modifiedHolder: self valueOfEnablingCommitButtons. |
1410 tool modifiedHolder: self valueOfEnablingCommitButtons. |
1411 tool builder window:(ApplicationSubView new client:tool). |
1411 tool builder window:(ApplicationSubView new client:tool). |
1412 tool masterApplication:self. |
1412 tool masterApplication:self. |
1413 tool |
1413 tool |
1414 ] |
1414 ] |
1415 ! |
1415 ! |
1416 |
1416 |
1417 imageTool |
1417 imageTool |
1418 "get the image tool application |
1418 "get the image tool application |
1458 |
1458 |
1459 acceptChannel triggerValue:true. |
1459 acceptChannel triggerValue:true. |
1460 acceptChannel setValue:false. |
1460 acceptChannel setValue:false. |
1461 |
1461 |
1462 ok ifTrue:[ |
1462 ok ifTrue:[ |
|
1463 helpTool accept. |
1463 rscRetrHolder value:(imageTool resourceRetriever). |
1464 rscRetrHolder value:(imageTool resourceRetriever). |
1464 helpKeyHolder value:(helpTool helpKey). |
1465 helpKeyHolder value:(helpTool helpKey). |
1465 selectedItem fromAspects:aspects. |
1466 selectedItem fromAspects:aspects. |
1466 modified := true. |
1467 modified := true. |
1467 |
1468 |
1469 "/ update specSelector |
1470 "/ update specSelector |
1470 specSelector := selectedItem rawLabel. |
1471 specSelector := selectedItem rawLabel. |
1471 ]. |
1472 ]. |
1472 ]. |
1473 ]. |
1473 selectedItem toAspects:aspects. |
1474 selectedItem toAspects:aspects. |
1474 helpTool setHelpKey:(helpKeyHolder value). |
1475 helpTool helpKey:(helpKeyHolder value). |
1475 imageTool resourceRetriever:(rscRetrHolder value). |
1476 imageTool resourceRetriever:(rscRetrHolder value). |
1476 ] |
1477 ] |
1477 ]. |
1478 ]. |
1478 self updateChannels. |
1479 self updateChannels. |
1479 self clearModified. |
1480 self clearModified. |
2399 , '\\'. |
2400 , '\\'. |
2400 |
2401 |
2401 code := code withCRs. |
2402 code := code withCRs. |
2402 (ReadStream on:code) fileIn. |
2403 (ReadStream on:code) fileIn. |
2403 |
2404 |
2404 self isStandAlone ifTrue: [self helpTool installHelpSpecsOnClass:self specClass]. |
2405 self isStandAlone ifTrue:[ |
|
2406 self helpTool doSave |
|
2407 ]. |
2405 |
2408 |
2406 self updateHistory. |
2409 self updateHistory. |
2407 hasSaved := true. |
2410 hasSaved := true. |
2408 modified := false. |
2411 modified := false. |
2409 ! |
2412 ! |