102 

   103 generateCodeFor:aClass menuSelector:aSelector

   104 

   105     |code category|

   106 

   107     category := self sourceCategory.

   108 

   109     code := Character excla asString 

   110             , aClass name , ' methodsFor:' , category storeString

   111             , Character excla asString , '\\'

   112 

   113             , aSelector , '\'

   114             , '    "this window spec was automatically generated by the UI Builder"\\'

   115             , '    ^ self class ', aSelector, '\\'

   116             , '\'

   117             , Character excla asString

   118             , ' '

   119             , Character excla asString

   120             , '\\'.

   121     ^ code

   122 

   123 "

   124 self generateCodeFor:MenuEditor menuSelector:#menu

   125 "

   126 !