JavaMethod.st
branchcvs_MAIN
changeset 3942 e6b2235d6f0c
parent 3922 5e743d31adf7
child 3953 38a940b3b7b6
equal deleted inserted replaced
3941:35c5061a7fe0 3942:e6b2235d6f0c
     1 "{ Encoding: utf8 }"
       
     2 
       
     3 "
     1 "
     4  COPYRIGHT (c) 1996-2015 by Claus Gittinger
     2  COPYRIGHT (c) 1996-2015 by Claus Gittinger
     5 
     3 
     6  New code and modifications done at SWING Research Group [1]:
     4  New code and modifications done at SWING Research Group [1]:
     7 
     5 
  1168 
  1166 
  1169     "Created: / 18-12-2012 / 18:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1167     "Created: / 18-12-2012 / 18:17:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1170     "Modified: / 05-11-2013 / 17:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1168     "Modified: / 05-11-2013 / 17:28:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  1171 !
  1169 !
  1172 
  1170 
       
  1171 methodArgAndVarNamesInContextForInspector: context
       
  1172     ^ self methodArgAndVarNamesInContext: context
       
  1173 !
       
  1174 
  1173 methodArgAndVarValuesInContext: context
  1175 methodArgAndVarValuesInContext: context
  1174     | pc stop |
  1176     | pc stop |
  1175 
  1177 
  1176     localVariableTable isNil ifTrue:[
  1178     localVariableTable isNil ifTrue:[
  1177 	| values |
  1179 	| values |
  2334 
  2336 
  2335 whoString
  2337 whoString
  2336     "return a string as className>>selector. Used with debugging."
  2338     "return a string as className>>selector. Used with debugging."
  2337 
  2339 
  2338     "/ in order to not break existing code which parses those strings,
  2340     "/ in order to not break existing code which parses those strings,
  2339     "/ do not replace '>>' by ' » '
  2341     "/ do not replace '>>' by ' » '
  2340     ^ javaClass name , '>>' , (self printStringForBrowserWithSelector:nil inClass:nil)
  2342     ^ javaClass name , '>>' , (self printStringForBrowserWithSelector:nil inClass:nil)
  2341 
  2343 
  2342     "Created: / 13-06-2013 / 08:52:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2344     "Created: / 13-06-2013 / 08:52:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2343 ! !
  2345 ! !
  2344 
  2346