equal
deleted
inserted
replaced
11407 |
11407 |
11408 inputField selectAll. |
11408 inputField selectAll. |
11409 inputField entryCompletionBlock:[:contents | |
11409 inputField entryCompletionBlock:[:contents | |
11410 |s what m| |
11410 |s what m| |
11411 |
11411 |
11412 s := contents withoutSpaces. |
11412 s := contents string withoutSpaces. |
11413 box topView withWaitCursorDo:[ |
11413 box topView withWaitCursorDo:[ |
11414 what := Smalltalk selectorCompletion:s. |
11414 what := Smalltalk selectorCompletion:s. |
11415 inputField contents:what first. |
11415 inputField contents:what first. |
11416 (what at:2) size ~~ 1 ifTrue:[ |
11416 (what at:2) size ~~ 1 ifTrue:[ |
11417 self beep |
11417 self beep |
11560 ]. |
11560 ]. |
11561 where isNil ifTrue:[ |
11561 where isNil ifTrue:[ |
11562 self warn:'no class(es) for search'. |
11562 self warn:'no class(es) for search'. |
11563 ^ self. |
11563 ^ self. |
11564 ]. |
11564 ]. |
|
11565 sel := sel string. |
11565 |
11566 |
11566 LastSearchPatterns isNil ifTrue:[ |
11567 LastSearchPatterns isNil ifTrue:[ |
11567 LastSearchPatterns := OrderedCollection new. |
11568 LastSearchPatterns := OrderedCollection new. |
11568 ]. |
11569 ]. |
11569 (LastSearchPatterns includes:sel) ifTrue:[ |
11570 (LastSearchPatterns includes:sel) ifTrue:[ |
14141 ! ! |
14142 ! ! |
14142 |
14143 |
14143 !BrowserView class methodsFor:'documentation'! |
14144 !BrowserView class methodsFor:'documentation'! |
14144 |
14145 |
14145 version |
14146 version |
14146 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.627 2000-07-25 11:21:55 cg Exp $' |
14147 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.628 2000-07-29 11:52:24 cg Exp $' |
14147 ! ! |
14148 ! ! |
14148 BrowserView initialize! |
14149 BrowserView initialize! |