--- a/Tools__CodeCompletionMenu.st Tue Jan 22 12:24:41 2013 +0000
+++ b/Tools__CodeCompletionMenu.st Wed Jan 30 11:15:09 2013 +0000
@@ -65,6 +65,7 @@
"
! !
+
!CodeCompletionMenu class methodsFor:'interface opening'!
openFor: aCodeView at: anInteger with:aCollection
@@ -80,6 +81,7 @@
"Modified: / 01-07-2011 / 00:05:01 / cg"
! !
+
!CodeCompletionMenu methodsFor:'accessing'!
contentHeight
@@ -108,6 +110,7 @@
"Modified: / 06-03-2010 / 08:17:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+
!CodeCompletionMenu methodsFor:'event handling'!
backspaceKeyPress
@@ -122,8 +125,8 @@
!
characterKeyPress:aCharacter
+ | newString |
- | newString |
newString := typedString , aCharacter.
(wholeList anySatisfy:[:s|s startsWith:newString]) ifTrue:[
typedString := newString.
@@ -141,6 +144,7 @@
!
keyPress:key x:x y:y
+ <resource: #keyboard (#Return #BackSpace #Tab)>
key isCharacter ifTrue:[
self characterKeyPress:key.
@@ -199,8 +203,8 @@
!
tabKeyPressX:x y:y
+ | currentList idx char completionString|
- | currentList idx char completionString|
currentList := self list.
idx := typedString size + 1.
[
@@ -219,6 +223,7 @@
"Created: / 29-05-2005 / 09:50:03 / janfrog"
! !
+
!CodeCompletionMenu methodsFor:'initialize'!
initialize
@@ -246,6 +251,7 @@
"Modified: / 01-07-2011 / 00:08:31 / cg"
! !
+
!CodeCompletionMenu methodsFor:'interface opening'!
openModalXX
@@ -288,6 +294,7 @@
"Modified: / 01-07-2011 / 09:30:29 / cg"
! !
+
!CodeCompletionMenu methodsFor:'updating'!
updateList
@@ -298,12 +305,14 @@
"Modified: / 27-05-2005 / 22:23:37 / janfrog"
! !
+
!CodeCompletionMenu class methodsFor:'documentation'!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.3 2011/07/03 17:50:23 cg Exp §'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeCompletionMenu.st,v 1.4 2013-01-17 10:39:42 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__CodeCompletionMenu.st 7854 2012-01-30 17:49:41Z vranyj1 $'
-! !
\ No newline at end of file
+ ^ '§Id: Tools__CodeCompletionMenu.st 7690 2011-03-19 02:23:25Z vranyj1 §'
+! !
+