InfoBox.st
changeset 6079 0cda554f60c7
parent 5897 2557ab3713e8
child 6242 ca40c9a97367
equal deleted inserted replaced
6078:53e0acc50b42 6079:0cda554f60c7
   353 !
   353 !
   354 
   354 
   355 initialize
   355 initialize
   356     |mm sep|
   356     |mm sep|
   357 
   357 
       
   358     <modifier: #super> "must be called if redefined"
       
   359 
   358     super initialize.
   360     super initialize.
   359     self addOkButton.
   361     self addOkButton.
   360 
   362 
   361 "/    label := 'Info'.
   363 "/    label := 'Info'.
   362 
   364 
   394      b := InfoBox new.
   396      b := InfoBox new.
   395      b title:'hello'.
   397      b title:'hello'.
   396      b open
   398      b open
   397     "
   399     "
   398 
   400 
   399     "Modified: / 29-07-2011 / 12:31:29 / cg"
   401     "Modified: / 08-02-2017 / 00:26:21 / cg"
   400 ! !
   402 ! !
   401 
   403 
   402 !InfoBox methodsFor:'queries'!
   404 !InfoBox methodsFor:'queries'!
   403 
   405 
   404 beepWhenOpening
   406 beepWhenOpening