BrowserView.st
changeset 3549 056bd76b5b0a
parent 3515 8c0262e23e23
child 3557 5009a2a7d0d0
equal deleted inserted replaced
3548:ec06eebdd32b 3549:056bd76b5b0a
 11162     "Modified: / 17.6.1996 / 16:47:50 / stefan"
 11162     "Modified: / 17.6.1996 / 16:47:50 / stefan"
 11163     "Modified: / 4.8.1998 / 20:04:58 / cg"
 11163     "Modified: / 4.8.1998 / 20:04:58 / cg"
 11164 !
 11164 !
 11165 
 11165 
 11166 methodTemplate
 11166 methodTemplate
 11167     "return a method definition template"
 11167     "return a method definition template string"
 11168 
 11168 
 11169     |s|
 11169     ^ SystemBrowser methodTemplate
 11170 
       
 11171     s := TextStream on:''.
       
 11172     s nextPutAll:'message selector and argument names
       
 11173     "comment stating purpose of this message"
       
 11174 
       
 11175     |temporaries|
       
 11176 
       
 11177     statement.
       
 11178     statement.
       
 11179 
       
 11180 
       
 11181     "
       
 11182      optional: comment giving example use
       
 11183     "
       
 11184 '.
       
 11185     s cr.
       
 11186     s emphasis:(UserPreferences current commentEmphasisAndColor).
       
 11187     s nextPutAll:'"
       
 11188  change the above template into real code.
       
 11189  Then `accept'' either via the menu 
       
 11190  or via the keyboard (usually CMD-A).
       
 11191 
       
 11192  You do not need this template; you can also
       
 11193  select any existing methods code, change it,
       
 11194  and finally `accept''. The method will then be
       
 11195  installed under the selector as defined in the
       
 11196  actual text - no matter which method is selected
       
 11197  in the browser.
       
 11198 
       
 11199  Or clear this text, type in the method from scratch
       
 11200  and install it with `accept''.
       
 11201 "
       
 11202 '.
       
 11203     ^ s contents
       
 11204 
       
 11205     "Created: 8.2.1996 / 18:21:53 / cg"
       
 11206     "Modified: 1.8.1997 / 12:43:51 / cg"
       
 11207 !
 11170 !
 11208 
 11171 
 11209 resourceIconForMethod:aMethod
 11172 resourceIconForMethod:aMethod
 11210     |resources|
 11173     |resources|
 11211 
 11174 
 14943 ! !
 14906 ! !
 14944 
 14907 
 14945 !BrowserView class methodsFor:'documentation'!
 14908 !BrowserView class methodsFor:'documentation'!
 14946 
 14909 
 14947 version
 14910 version
 14948     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.706 2001-12-14 10:58:51 cg Exp $'
 14911     ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.707 2002-01-24 18:29:48 cg Exp $'
 14949 ! !
 14912 ! !
 14950 BrowserView initialize!
 14913 BrowserView initialize!