824 |
824 |
825 class isNil ifTrue: [^self]. |
825 class isNil ifTrue: [^self]. |
826 |
826 |
827 className := class theNonMetaclass name. |
827 className := class theNonMetaclass name. |
828 |
828 |
829 self withWaitCursorDo: |
829 self withWaitCursorDo:[ |
830 [ |
|
831 |newContents| |
830 |newContents| |
832 |
831 |
833 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
832 resourceTypes isNil ifTrue: [resourceTypes := Method resourceTypes]. |
834 |
833 |
835 self valueOfClassName value: className. |
834 self valueOfClassName value: className. |
922 "/ ifTrue: [classSelection := self treeViewContents]. |
921 "/ ifTrue: [classSelection := self treeViewContents]. |
923 |
922 |
924 classSelectionBlock := [:clsPattern | self classSelectionUpdate:clsPattern]. |
923 classSelectionBlock := [:clsPattern | self classSelectionUpdate:clsPattern]. |
925 self valueOfClassName value: classSelection. |
924 self valueOfClassName value: classSelection. |
926 |
925 |
927 (classNameInputField := builder componentAt: #classNameInputField) entryCompletionBlock: |
926 (classNameInputField := builder componentAt: #classNameInputField) |
928 [:value| |
927 entryCompletionBlock: |
929 |what oldClassName| |
928 [:value| |
930 oldClassName := classNameInputField contents. |
929 |s what m| |
931 what := Smalltalk classnameCompletion: value withoutSpaces. |
930 |
932 classNameInputField contents:what first. |
931 s := classNameInputField contents withoutSpaces. |
933 oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
932 what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk. |
934 classSelectionBlock value: classNameInputField contents |
933 classNameInputField contents:what first. |
935 ]. |
934 (what at:2) size ~~ 1 ifTrue:[ |
|
935 classNameInputField device beep |
|
936 ] |
|
937 "/ |what oldClassName| |
|
938 "/ oldClassName := classNameInputField contents. |
|
939 "/ what := Smalltalk classnameCompletion: value withoutSpaces. |
|
940 "/ classNameInputField contents:what first. |
|
941 "/ oldClassName = classNameInputField contents ifTrue:[classNameInputField flash]. |
|
942 "/ classSelectionBlock value: classNameInputField contents |
|
943 ]. |
936 |
944 |
937 classSelectionBlock value: self valueOfClassName value. |
945 classSelectionBlock value: self valueOfClassName value. |
938 self updateResourceMethodList. |
946 self updateResourceMethodList. |
939 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
947 self selectionOfResourceMethod value: (self listOfResourceMethods detect: [:m| m selector == resourceMethod] ifNone: nil). |
940 |
948 |