equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2345 "/ ] |
2347 "/ ] |
2346 "/ ]. |
2348 "/ ]. |
2347 "/ |
2349 "/ |
2348 "/ info := best storeString. |
2350 "/ info := best storeString. |
2349 "/ implClass notNil ifTrue:[ |
2351 "/ implClass notNil ifTrue:[ |
2350 "/ info := implClass name , ' » ' , info. |
2352 "/ info := implClass name , ' » ' , info. |
2351 "/ ]. |
2353 "/ ]. |
2352 "/ self information:info. |
2354 "/ self information:info. |
2353 "/]. |
2355 "/]. |
2354 |
2356 |
2355 "/ the one's which are a prefix are moved towards the top of the list |
2357 "/ the one's which are a prefix are moved towards the top of the list |
4977 "/ ] |
4979 "/ ] |
4978 "/ ]. |
4980 "/ ]. |
4979 "/ |
4981 "/ |
4980 "/ info := best storeString. |
4982 "/ info := best storeString. |
4981 "/ implClass notNil ifTrue:[ |
4983 "/ implClass notNil ifTrue:[ |
4982 "/ info := implClass name , ' » ' , info. |
4984 "/ info := implClass name , ' » ' , info. |
4983 "/ ]. |
4985 "/ ]. |
4984 "/ self information:info. |
4986 "/ self information:info. |
4985 |
4987 |
4986 best ~= selector ifTrue:[ |
4988 best ~= selector ifTrue:[ |
4987 numArgs := best numArgs. |
4989 numArgs := best numArgs. |
6158 it is a good idea to know what the reveiver's value is. |
6160 it is a good idea to know what the reveiver's value is. |
6159 Sigh - returns nil both if unknown AND if a real nil is there." |
6161 Sigh - returns nil both if unknown AND if a real nil is there." |
6160 |
6162 |
6161 |valueAndKind| |
6163 |valueAndKind| |
6162 |
6164 |
6163 aVariableName = 'LargeInteger' ifTrue:[self halt.]. |
|
6164 (valueAndKind := self valueAndKindOfVariable:aVariableName) notNil ifTrue:[ |
6165 (valueAndKind := self valueAndKindOfVariable:aVariableName) notNil ifTrue:[ |
6165 self assert:valueAndKind isArray. |
6166 self assert:valueAndKind isArray. |
6166 ^ valueAndKind first. |
6167 ^ valueAndKind first. |
6167 ]. |
6168 ]. |
6168 ^ nil |
6169 ^ nil |
6169 |
6170 |
6170 "Modified: / 01-05-2016 / 12:41:30 / cg" |
6171 "Modified: / 26-08-2016 / 14:16:16 / cg" |
6171 ! ! |
6172 ! ! |
6172 |
6173 |
6173 !DoWhatIMeanSupport::InputCompletionResult class methodsFor:'instance creation'! |
6174 !DoWhatIMeanSupport::InputCompletionResult class methodsFor:'instance creation'! |
6174 |
6175 |
6175 bestName:bestNameArg matchingNames:matchingNamesArg |
6176 bestName:bestNameArg matchingNames:matchingNamesArg |