equal
deleted
inserted
replaced
853 numArgs := selector numArgs. |
853 numArgs := selector numArgs. |
854 method := aspect. |
854 method := aspect. |
855 |
855 |
856 numArgs == 1 ifTrue:[ |
856 numArgs == 1 ifTrue:[ |
857 args := 'anArgument'. |
857 args := 'anArgument'. |
858 showIt := ''' , anArgument printString , '' ...''.'. |
858 showIt := ''' , anArgument printString , ''...''.'. |
859 ] ifFalse:[ |
859 ] ifFalse:[ |
860 args := ''. |
860 args := ''. |
861 showIt := ' ...''.'. |
861 showIt := ' ...''.'. |
862 |
862 |
863 numArgs ~~ 0 ifTrue:[ |
863 numArgs ~~ 0 ifTrue:[ |
875 nextPutLine:' <resource: #uiCallback>'; |
875 nextPutLine:' <resource: #uiCallback>'; |
876 cr. |
876 cr. |
877 |
877 |
878 self class generateCommentedCode ifTrue:[ |
878 self class generateCommentedCode ifTrue:[ |
879 codeStream |
879 codeStream |
880 nextPutAll:' "automatically generated by UIPainter ..." |
880 nextPutAll:' "automatically generated by UIPainter..." |
881 |
881 |
882 "*** the code below performs no action" |
882 "*** the code below performs no action" |
883 "*** (except for some feedback on the Transcript)" |
883 "*** (except for some feedback on the Transcript)" |
884 "*** Please change as required and accept in the browser." |
884 "*** Please change as required and accept in the browser." |
885 "*** (and replace this comment by something more useful ;-)" |
885 "*** (and replace this comment by something more useful ;-)" |