30669 ]. |
30669 ]. |
30670 includesBuiltIn ifTrue:[ |
30670 includesBuiltIn ifTrue:[ |
30671 "/ ask again - severe damage is to be expected ... |
30671 "/ ask again - severe damage is to be expected ... |
30672 |
30672 |
30673 confirmed := Dialog |
30673 confirmed := Dialog |
30674 confirmWithCancel:'The set of classes to remove includes at least one systemClass,\without which ST/X will fail to work.\Be prepared for a crash, if you proceed.\\Really remove ?' |
30674 confirmWithCancel:'The set of classes to remove includes at least one system class,\without which ST/X will fail to work.\Be prepared for a crash, if you proceed.\\Really remove ?' |
30675 withCRs |
30675 withCRs |
30676 default:false. |
30676 default:false. |
30677 confirmed isNil ifTrue:[ |
30677 confirmed isNil ifTrue:[ |
30678 "/ canceled |
30678 "/ canceled |
30679 |
30679 |
30684 ] |
30684 ] |
30685 ]. |
30685 ]. |
30686 |
30686 |
30687 "/ check if any of the classes to remove has a repository container - warn about this if so |
30687 "/ check if any of the classes to remove has a repository container - warn about this if so |
30688 aClass withAllSubclassesDo:[:eachClassToRemove | |
30688 aClass withAllSubclassesDo:[:eachClassToRemove | |
30689 eachClassToRemove isPrivate ifFalse:[ |
30689 (eachClassToRemove isPrivate not |
30690 eachClassToRemove revision notNil ifTrue:[ |
30690 and:[ eachClassToRemove revision notNil ] |
30691 (removingSubclasses or:[eachClassToRemove == aClass]) |
30691 ) ifTrue:[ |
30692 ifTrue:[ |
30692 (removingSubclasses or:[eachClassToRemove == aClass]) ifTrue:[ |
30693 (SourceCodeManagerUtilities sourceCodeManagerFor:eachClassToRemove) isContainerBased ifTrue:[ |
30693 (SourceCodeManagerUtilities sourceCodeManagerFor:eachClassToRemove) isContainerBased ifTrue:[ |
30694 confirmed := Dialog |
30694 confirmed := Dialog |
30695 confirmWithCancel:(resources |
30695 confirmWithCancel:(resources |
30696 string:'Remove the source container for ''%1'' in the repository ?\\Warning: can only be undone by manually fixing the CVS repository !!' |
30696 string:'Remove the source container for ''%1'' in the repository ?\\Warning: can only be undone by manually fixing the CVS repository !!' |
30697 with:eachClassToRemove name allBold) withCRs |
30697 with:eachClassToRemove name allBold) withCRs |
30698 default:false. |
30698 default:false. |
30699 ] ifFalse:[ |
30699 ] ifFalse:[ |
30700 confirmed := false. |
30700 confirmed := false. |
30701 ]. |
30701 ]. |
30702 confirmed isNil ifTrue:[ |
30702 confirmed isNil ifTrue:[ |
30703 "/ canceled |
30703 "/ canceled |
30704 |
30704 |
30705 AbortSignal raise |
30705 AbortSignal raise |
30706 ]. |
30706 ]. |
30707 confirmed ifTrue:[ |
30707 confirmed ifTrue:[ |
30708 (SourceCodeManagerUtilities sourceCodeManagerFor:eachClassToRemove) |
30708 (SourceCodeManagerUtilities sourceCodeManagerFor:eachClassToRemove) |
30709 utilities |
30709 utilities |
30710 removeSourceContainerForClass:eachClassToRemove |
30710 removeSourceContainerForClass:eachClassToRemove |
30711 confirm:true |
30711 confirm:true |
30712 warn:true |
30712 warn:true |
30713 ] |
|
30714 ] |
30713 ] |
30715 ]. |
30714 ]. |
30716 ] |
30715 ] |
30717 ]. |
30716 ]. |
30718 |
30717 |
30780 ] |
30779 ] |
30781 |
30780 |
30782 "Modified: / 21-12-2011 / 20:22:34 / cg" |
30781 "Modified: / 21-12-2011 / 20:22:34 / cg" |
30783 "Modified: / 17-10-2013 / 00:57:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
30782 "Modified: / 17-10-2013 / 00:57:26 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
30784 "Modified (format): / 24-08-2017 / 15:04:43 / cg" |
30783 "Modified (format): / 24-08-2017 / 15:04:43 / cg" |
|
30784 "Modified: / 18-12-2018 / 13:51:07 / Claus Gittinger" |
30785 ! |
30785 ! |
30786 |
30786 |
30787 askForGlobalCoverageRecording |
30787 askForGlobalCoverageRecording |
30788 self globalCoverageRecordingIsEnabled value ifFalse:[ |
30788 self globalCoverageRecordingIsEnabled value ifFalse:[ |
30789 (Dialog confirm:(resources stringWithCRs:'Coverage recording can be done either during a single test-run, or globally for every process.\Currently, global recording is disabled, which means that recording will only be done during a special recording test-run (in the Testrunner tool).\\Do you want to enable global coverage recording now?')) |
30789 (Dialog confirm:(resources stringWithCRs:'Coverage recording can be done either during a single test-run, or globally for every process.\Currently, global recording is disabled, which means that recording will only be done during a special recording test-run (in the Testrunner tool).\\Do you want to enable global coverage recording now?')) |