5044 ]. |
5044 ]. |
5045 code := painter |
5045 code := painter |
5046 generateActionMethodFor:aspect |
5046 generateActionMethodFor:aspect |
5047 spec:nil |
5047 spec:nil |
5048 inClass:cls. |
5048 inClass:cls. |
5049 code readStream fileIn. |
5049 Class packageQuerySignal answer:painter targetClass package do:[ |
|
5050 code readStream fileIn. |
|
5051 ]. |
5050 ]. |
5052 ]. |
5051 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
5053 UserPreferences current systemBrowserClass openInClass:cls selector:aspect |
|
5054 |
|
5055 "Modified: / 28-01-2014 / 21:55:56 / cg" |
5052 ! |
5056 ! |
5053 |
5057 |
5054 doBrowseAspectMethod:aspectSelector |
5058 doBrowseAspectMethod:aspectSelector |
5055 "browse or create the aspect method as entered in the field (button beside input fieled pressed)" |
5059 "browse or create the aspect method as entered in the field (button beside input fieled pressed)" |
5056 |
5060 |
5398 self askForSectionModification. |
5402 self askForSectionModification. |
5399 self withWaitCursorDo:[ |
5403 self withWaitCursorDo:[ |
5400 |code| |
5404 |code| |
5401 |
5405 |
5402 code := self painter generateAspectMethodCode. |
5406 code := self painter generateAspectMethodCode. |
|
5407 Class packageQuerySignal answer:painter targetClass package do:[ |
|
5408 code readStream fileIn. |
|
5409 ] |
|
5410 ] |
|
5411 |
|
5412 "Modified: / 28-01-2014 / 21:56:03 / cg" |
|
5413 ! |
|
5414 |
|
5415 doGenerateAspectMethodsForAll:selectorsToGenerateCode |
|
5416 |code| |
|
5417 |
|
5418 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
|
5419 Class packageQuerySignal answer:painter targetClass package do:[ |
5403 code readStream fileIn. |
5420 code readStream fileIn. |
5404 ] |
5421 ] |
5405 ! |
5422 |
5406 |
5423 "Modified: / 28-01-2014 / 21:56:06 / cg" |
5407 doGenerateAspectMethodsForAll:selectorsToGenerateCode |
|
5408 |code| |
|
5409 |
|
5410 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
|
5411 code readStream fileIn. |
|
5412 ! |
5424 ! |
5413 |
5425 |
5414 doGenerateAspectSelectorsMethod |
5426 doGenerateAspectSelectorsMethod |
5415 "generates aspectSelectors method for the exported aspects" |
5427 "generates aspectSelectors method for the exported aspects" |
5416 |
5428 |
5417 |aspectSelectorsAsString| |
5429 |aspectSelectorsAsString| |
5418 |
5430 |
5419 self askForSectionModification. |
5431 self askForSectionModification. |
5420 aspectSelectorsAsString := self painter generateAspectSelectorsMethod. |
5432 aspectSelectorsAsString := self painter generateAspectSelectorsMethod. |
5421 aspectSelectorsAsString notEmptyOrNil ifTrue:[ |
5433 aspectSelectorsAsString notEmptyOrNil ifTrue:[ |
5422 (ReadStream on:aspectSelectorsAsString) fileIn. |
5434 Class packageQuerySignal answer:painter targetClass package do:[ |
5423 ]. |
5435 (ReadStream on:aspectSelectorsAsString) fileIn. |
|
5436 ]. |
|
5437 ]. |
|
5438 |
|
5439 "Modified: / 28-01-2014 / 21:56:09 / cg" |
5424 ! |
5440 ! |
5425 |
5441 |
5426 doGenerateHookMethods |
5442 doGenerateHookMethods |
5427 "generates hook methods for the application class" |
5443 "generates hook methods for the application class" |
5428 |
5444 |
5429 self askForSectionModification. |
5445 self askForSectionModification. |
5430 |
5446 |
5431 (ReadStream on:self painter generateHookMethods) fileIn. |
5447 Class packageQuerySignal answer:painter targetClass package do:[ |
5432 |
5448 (ReadStream on:painter generateHookMethods) fileIn. |
|
5449 ] |
|
5450 |
|
5451 "Modified: / 28-01-2014 / 21:56:13 / cg" |
5433 ! |
5452 ! |
5434 |
5453 |
5435 doGenerateMenuMethods |
5454 doGenerateMenuMethods |
5436 "generates menu stub methods for the application class" |
5455 "generates menu stub methods for the application class" |
5437 |
5456 |
5438 self askForSectionModification. |
5457 self askForSectionModification. |
5439 |
5458 |
5440 (ReadStream on:self painter generateMenuMethods) fileIn. |
5459 Class packageQuerySignal answer:painter targetClass package do:[ |
5441 |
5460 (ReadStream on:painter generateMenuMethods) fileIn. |
5442 "Created: / 23.8.1998 / 16:10:04 / cg" |
5461 ] |
|
5462 |
|
5463 "Created: / 23-08-1998 / 16:10:04 / cg" |
5443 ! |
5464 ! |
5444 |
5465 |
5445 doInspectSpec |
5466 doInspectSpec |
5446 "opens an inspector on the spec of the selected widget" |
5467 "opens an inspector on the spec of the selected widget" |
5447 |
5468 |
5667 stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.' |
5688 stringWithCRs:'The window-size is larger than its max-extent.\\This may lead to trouble (lost extent) later. I suggest removal of the max or resizing.' |
5668 with:extentUsed printString allBold) |
5689 with:extentUsed printString allBold) |
5669 ]. |
5690 ]. |
5670 |
5691 |
5671 code := painter generateWindowSpecMethodSource withCRs. |
5692 code := painter generateWindowSpecMethodSource withCRs. |
5672 (ReadStream on:code) fileIn. |
5693 Class packageQuerySignal answer:specClass package do:[ |
|
5694 (ReadStream on:code) fileIn. |
|
5695 ]. |
5673 self doGenerateAspectSelectorsMethod. |
5696 self doGenerateAspectSelectorsMethod. |
5674 self helpTool doSave. |
5697 self helpTool doSave. |
5675 self updateInfoLabel. |
5698 self updateInfoLabel. |
5676 self clearModified. |
5699 self clearModified. |
5677 painter resetModification. |
5700 painter resetModification. |
5678 (specClass respondsTo:specSelector) ifTrue:[ |
5701 (specClass respondsTo:specSelector) ifTrue:[ |
5679 self addHistoryEntryForClass:specClass selector:specSelector. |
5702 self addHistoryEntryForClass:specClass selector:specSelector. |
5680 ]. |
5703 ]. |
|
5704 |
|
5705 "Modified: / 28-01-2014 / 21:52:32 / cg" |
5681 ! |
5706 ! |
5682 |
5707 |
5683 doSaveAs |
5708 doSaveAs |
5684 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
5709 "opens a ResourceSelectionBrowser for saving the window spec on a class" |
5685 |
5710 |
5749 |
5774 |
5750 spec := painter fullSpecFor:(painter singleSelection). |
5775 spec := painter fullSpecFor:(painter singleSelection). |
5751 |
5776 |
5752 fullSpec := treeView generateFullSpecForComponents:(Array with:spec) named:subSpecSelector asUppercaseFirst. |
5777 fullSpec := treeView generateFullSpecForComponents:(Array with:spec) named:subSpecSelector asUppercaseFirst. |
5753 code := painter generateWindowSpecMethodSourceFor:fullSpec class:subSpecClassName selector:subSpecSelector. |
5778 code := painter generateWindowSpecMethodSourceFor:fullSpec class:subSpecClassName selector:subSpecSelector. |
5754 (ReadStream on:code) fileIn. |
5779 Class packageQuerySignal answer:subSpecClass package do:[ |
|
5780 (ReadStream on:code) fileIn. |
|
5781 ]. |
5755 ^ true |
5782 ^ true |
|
5783 |
|
5784 "Modified: / 28-01-2014 / 21:53:35 / cg" |
5756 ! |
5785 ! |
5757 |
5786 |
5758 doSelectAspectMethod:aspectSelector |
5787 doSelectAspectMethod:aspectSelector |
5759 "open a dialog to select an existing aspect method and enter in the field" |
5788 "open a dialog to select an existing aspect method and enter in the field" |
5760 |
5789 |