equal
deleted
inserted
replaced
975 |
975 |
976 s := classNameInputField contents withoutSpaces. |
976 s := classNameInputField contents withoutSpaces. |
977 what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk. |
977 what := Smalltalk classnameCompletion:s inEnvironment:Smalltalk. |
978 classNameInputField contents:what first. |
978 classNameInputField contents:what first. |
979 (what at:2) size ~~ 1 ifTrue:[ |
979 (what at:2) size ~~ 1 ifTrue:[ |
980 classNameInputField device beep |
980 classNameInputField device beepInEditor |
981 ] |
981 ] |
982 "/ |what oldClassName| |
982 "/ |what oldClassName| |
983 "/ oldClassName := classNameInputField contents. |
983 "/ oldClassName := classNameInputField contents. |
984 "/ what := Smalltalk classnameCompletion: value withoutSpaces. |
984 "/ what := Smalltalk classnameCompletion: value withoutSpaces. |
985 "/ classNameInputField contents:what first. |
985 "/ classNameInputField contents:what first. |