UIPainterView.st
changeset 708 b5f3169a0ba7
parent 698 5bf234e0e451
child 712 bf8aa59e82b6
equal deleted inserted replaced
707:78ba55640078 708:b5f3169a0ba7
   780     (targetClass implements:#postBuildWith:) ifFalse:[
   780     (targetClass implements:#postBuildWith:) ifFalse:[
   781         code := code 
   781         code := code 
   782                 , (self 
   782                 , (self 
   783                     generateHookMethodFor:'postBuildWith:aBuilder'
   783                     generateHookMethodFor:'postBuildWith:aBuilder'
   784                     comment:'the widgets have been built, but before the view is opened'
   784                     comment:'the widgets have been built, but before the view is opened'
   785                     note:nil
   785                     note:'or after the super send'
   786                     defaultCode:nil
   786                     defaultCode:'    super postBuildWith:aBuilder'
   787                     inClass:targetClass)
   787                     inClass:targetClass)
   788     ].
   788     ].
   789     (targetClass implements:#postOpenWith:) ifFalse:[
   789     (targetClass implements:#postOpenWith:) ifFalse:[
   790         code := code 
   790         code := code 
   791                 , (self 
   791                 , (self 
   792                     generateHookMethodFor:'postOpenWith:aBuilder'
   792                     generateHookMethodFor:'postOpenWith:aBuilder'
   793                     comment:'the topView has been opened, but before events are dispatched for it'
   793                     comment:'the topView has been opened, but before events are dispatched for it'
   794                     note:nil
   794                     note:'or after the super send'
   795                     defaultCode:nil
   795                     defaultCode:'    super postOpenWith:aBuilder'
   796                     inClass:targetClass)
   796                     inClass:targetClass)
   797     ].
   797     ].
   798     (targetClass implements:#closeRequest) ifFalse:[
   798     (targetClass implements:#closeRequest) ifFalse:[
   799         code := code 
   799         code := code 
   800                 , (self 
   800                 , (self 
   801                     generateHookMethodFor:'closeRequest'
   801                     generateHookMethodFor:'closeRequest'
   802                     comment:'the topView has been asked to close'
   802                     comment:'the topView has been asked to close'
   803                     note:'return without the ''super closeRequest'' to stay open'
   803                     note:'return without the ''super closeRequest'' to stay open'
   804                     defaultCode:'^ super closeRequest'
   804                     defaultCode:'    ^super closeRequest'
   805                     inClass:targetClass)
   805                     inClass:targetClass)
   806     ].
   806     ].
   807     ^ code
   807     ^ code
   808 
   808 
   809     "Modified: / 31.10.1997 / 17:30:34 / cg"
   809     "Modified: / 31.10.1997 / 17:30:34 / cg"