equal
deleted
inserted
replaced
468 iconInBrowserForVariable:varName in:aClass |
468 iconInBrowserForVariable:varName in:aClass |
469 "variables for which an entry is found in the xml-spec (if any) are marked |
469 "variables for which an entry is found in the xml-spec (if any) are marked |
470 with an <xml>-icon." |
470 with an <xml>-icon." |
471 |
471 |
472 (Expecco::ExpeccoXMLDecoder notNil |
472 (Expecco::ExpeccoXMLDecoder notNil |
473 and:[aClass canUnderstand: #xmlSpecFor:]) ifTrue:[ |
473 and:[aClass canUnderstand: #xmlSpecForObject:]) ifTrue:[ |
474 Error handle:[:ex | |
474 Error handle:[:ex | |
475 ] do:[ |
475 ] do:[ |
476 (Expecco::ExpeccoXMLDecoder xmlSpecForObject:aClass basicNew) |
476 (Expecco::ExpeccoXMLDecoder xmlSpecForObject:aClass basicNew) |
477 do:[:spec | spec getter = varName ifTrue:[ |
477 do:[:spec | spec getter = varName ifTrue:[ |
478 ^ SystemBrowser instVarOverlayXmlSpec |
478 ^ SystemBrowser instVarOverlayXmlSpec |
482 ]. |
482 ]. |
483 ^ nil |
483 ^ nil |
484 |
484 |
485 "Created: / 12-04-2011 / 19:58:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
485 "Created: / 12-04-2011 / 19:58:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
486 "Modified: / 15-07-2011 / 18:32:47 / cg" |
486 "Modified: / 15-07-2011 / 18:32:47 / cg" |
|
487 "Modified: / 22-06-2012 / 13:17:28 / sr" |
487 ! |
488 ! |
488 |
489 |
489 listEntryForClass: cls name:name |
490 listEntryForClass: cls name:name |
490 |
491 |
491 " (showWarningAboutMissingEntryInXmlSpec not |
492 " (showWarningAboutMissingEntryInXmlSpec not |
819 ! ! |
820 ! ! |
820 |
821 |
821 !VariableList class methodsFor:'documentation'! |
822 !VariableList class methodsFor:'documentation'! |
822 |
823 |
823 version_CVS |
824 version_CVS |
824 ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.17 2012-03-23 14:56:52 cg Exp $' |
825 ^ '$Header: /cvs/stx/stx/libtool/Tools__VariableList.st,v 1.18 2012-06-22 13:44:41 sr Exp $' |
825 ! ! |
826 ! ! |