equal
deleted
inserted
replaced
705 (classNameInputField := builder componentAt: #classNameInputField) entryCompletionBlock: |
705 (classNameInputField := builder componentAt: #classNameInputField) entryCompletionBlock: |
706 [:value| |
706 [:value| |
707 |what| |
707 |what| |
708 what := Smalltalk classnameCompletion: value withoutSpaces. |
708 what := Smalltalk classnameCompletion: value withoutSpaces. |
709 classNameInputField contents:what first. |
709 classNameInputField contents:what first. |
710 (what at:2) size ~~ 1 ifTrue:[Display beep]. |
710 (what at:2) size ~~ 1 ifTrue:[Screen current beep]. |
711 classSelectionBlock value: classNameInputField contents |
711 classSelectionBlock value: classNameInputField contents |
712 ]. |
712 ]. |
713 |
713 |
714 mayReadResources := false. |
714 mayReadResources := false. |
715 classSelectionBlock value: classSelection. |
715 classSelectionBlock value: classSelection. |