5756 |
5756 |
5757 "Created: / 18.6.1998 / 16:49:59 / cg" |
5757 "Created: / 18.6.1998 / 16:49:59 / cg" |
5758 ! |
5758 ! |
5759 |
5759 |
5760 destroy |
5760 destroy |
5761 "relese dependant - destroy popups" |
5761 "release dependant - destroy popups" |
|
5762 |
|
5763 self stopSyntaxHighlightProcess. |
5762 |
5764 |
5763 Smalltalk removeDependent:self. |
5765 Smalltalk removeDependent:self. |
5764 currentClass notNil ifTrue:[ |
5766 currentClass notNil ifTrue:[ |
5765 self releaseClass. |
5767 self releaseClass. |
5766 "/ |
5768 "/ |
5767 "/ just in case someone keeps a ref to myself around ... |
5769 "/ just in case someone keeps a ref to myself around ... |
5768 "/ ... release refs to my class (not really needed) |
5770 "/ ... release refs to my class (not really needed) |
5769 "/ |
5771 "/ |
5770 currentClass := actualClass := acceptClass := nil |
5772 currentClass := actualClass := acceptClass := nil |
5771 ]. |
5773 ]. |
5772 super destroy |
5774 super destroy |
5773 |
5775 |
5774 "Modified: 13.12.1995 / 15:33:03 / cg" |
5776 "Modified: / 9.7.1998 / 00:54:53 / cg" |
5775 ! |
5777 ! |
5776 |
5778 |
5777 initialize |
5779 initialize |
5778 super initialize. |
5780 super initialize. |
5779 |
5781 |
7707 specialMenu disable:#methodMakeProtected |
7709 specialMenu disable:#methodMakeProtected |
7708 ]. |
7710 ]. |
7709 currentMethod isIgnored ifTrue:[ |
7711 currentMethod isIgnored ifTrue:[ |
7710 specialMenu disable:#methodMakeIgnored |
7712 specialMenu disable:#methodMakeIgnored |
7711 ]. |
7713 ]. |
|
7714 (currentMethod code notNil |
|
7715 or:[Compiler canCreateMachineCode not]) ifTrue:[ |
|
7716 specialMenu disable:#methodSTCCompile |
|
7717 ]. |
|
7718 currentMethod byteCode isNil ifTrue:[ |
|
7719 specialMenu disable:#methodDecompile |
|
7720 ]. |
|
7721 currentMethod numArgs ~~ 0 ifTrue:[ |
|
7722 specialMenu disable:#methodInvoke |
|
7723 ]. |
7712 ]. |
7724 ]. |
7713 |
7725 |
7714 device ctrlDown ifTrue:[ |
7726 device ctrlDown ifTrue:[ |
7715 currentMethod isNil ifTrue:[ |
7727 currentMethod isNil ifTrue:[ |
7716 methodListView flash. |
7728 methodListView flash. |
7802 specialMenu notNil ifTrue:[ |
7814 specialMenu notNil ifTrue:[ |
7803 m subMenuAt:#otherMenu put:specialMenu. |
7815 m subMenuAt:#otherMenu put:specialMenu. |
7804 ]. |
7816 ]. |
7805 |
7817 |
7806 currentMethod notNil ifTrue:[ |
7818 currentMethod notNil ifTrue:[ |
7807 currentMethod isPrivate ifTrue:[ |
7819 "/ currentMethod isPrivate ifTrue:[ |
7808 m disable:#methodMakePrivate |
7820 "/ m disable:#methodMakePrivate |
7809 ]. |
7821 "/ ]. |
7810 currentMethod isProtected ifTrue:[ |
7822 "/ currentMethod isProtected ifTrue:[ |
7811 m disable:#methodMakeProtected |
7823 "/ m disable:#methodMakeProtected |
7812 ]. |
7824 "/ ]. |
7813 currentMethod isPublic ifTrue:[ |
7825 "/ currentMethod isPublic ifTrue:[ |
7814 m disable:#methodMakePublic |
7826 "/ m disable:#methodMakePublic |
7815 ]. |
7827 "/ ]. |
7816 currentMethod isIgnored ifTrue:[ |
7828 "/ currentMethod isIgnored ifTrue:[ |
7817 m disable:#methodMakeIgnored |
7829 "/ m disable:#methodMakeIgnored |
7818 ]. |
7830 "/ ]. |
7819 |
7831 "/ |
7820 (currentMethod code notNil |
7832 "/ (currentMethod code notNil |
7821 or:[Compiler canCreateMachineCode not]) ifTrue:[ |
7833 "/ or:[Compiler canCreateMachineCode not]) ifTrue:[ |
7822 m disable:#methodSTCCompile |
7834 "/ m disable:#methodSTCCompile |
7823 ]. |
7835 "/ ]. |
7824 currentMethod byteCode isNil ifTrue:[ |
7836 "/ currentMethod byteCode isNil ifTrue:[ |
7825 m disable:#methodDecompile |
7837 "/ m disable:#methodDecompile |
7826 ]. |
7838 "/ ]. |
7827 |
7839 |
7828 currentMethod previousVersion isNil ifTrue:[ |
7840 currentMethod previousVersion isNil ifTrue:[ |
7829 m disable:#methodPreviousVersion. |
7841 m disable:#methodPreviousVersion. |
7830 m disable:#methodCompareWithPreviousVersion |
7842 m disable:#methodCompareWithPreviousVersion |
7831 ] |
7843 ] |
7833 ^ m |
7845 ^ m |
7834 |
7846 |
7835 "Created: / 23.11.1995 / 12:02:29 / cg" |
7847 "Created: / 23.11.1995 / 12:02:29 / cg" |
7836 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7848 "Modified: / 18.12.1995 / 16:20:07 / stefan" |
7837 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7849 "Modified: / 29.4.1997 / 11:20:59 / dq" |
7838 "Modified: / 21.5.1998 / 15:27:04 / cg" |
7850 "Modified: / 7.7.1998 / 21:35:08 / cg" |
7839 ! |
7851 ! |
7840 |
7852 |
7841 methodMove |
7853 methodMove |
7842 "move the current method into another class; typically a superclass" |
7854 "move the current method into another class; typically a superclass" |
7843 |
7855 |
10844 ]. |
10856 ]. |
10845 ]. |
10857 ]. |
10846 ]. |
10858 ]. |
10847 ]. |
10859 ]. |
10848 coloringProcess := nil. |
10860 coloringProcess := nil. |
10849 ] forkAt:(Processor userBackgroundPriority). |
10861 ] forkAt:(Processor activePriority - 1). |
10850 |
10862 |
10851 codeView modified:false. |
10863 codeView modified:false. |
10852 codeView modifiedChannel onChangeSend:#codeChanged to:self. |
10864 codeView modifiedChannel onChangeSend:#codeChanged to:self. |
10853 |
10865 |
10854 "Created: / 31.3.1998 / 14:25:29 / cg" |
10866 "Created: / 31.3.1998 / 14:25:29 / cg" |
10855 "Modified: / 18.6.1998 / 16:39:14 / cg" |
10867 "Modified: / 9.7.1998 / 00:25:51 / cg" |
10856 ! |
10868 ! |
10857 |
10869 |
10858 stopSyntaxHighlightProcess |
10870 stopSyntaxHighlightProcess |
10859 "stop any background process, which does the syntax coloring." |
10871 "stop any background process, which does the syntax coloring." |
10860 |
10872 |