UISelectionPanel.st
changeset 244 b70597d2a39b
parent 216 2bfcf491429e
child 251 ea4577f6cc41
equal deleted inserted replaced
243:ae6608b760bf 244:b70597d2a39b
  1409 closeRequest
  1409 closeRequest
  1410     |sav|
  1410     |sav|
  1411 
  1411 
  1412     (sav := masterApplication) notNil ifTrue:[
  1412     (sav := masterApplication) notNil ifTrue:[
  1413         masterApplication := nil.
  1413         masterApplication := nil.
  1414         masterApplication closeRequestFor:(self window).
  1414         sav closeRequestFor:(self window).
  1415         masterApplication := sav.
  1415         masterApplication := sav.
  1416     ] ifFalse:[
  1416     ] ifFalse:[
  1417         super closeRequest.
  1417         super closeRequest.
  1418     ]
  1418     ]
       
  1419 
       
  1420     "Modified: 28.7.1997 / 09:44:40 / cg"
  1419 !
  1421 !
  1420 
  1422 
  1421 openWindow
  1423 openWindow
  1422     "setup default values
  1424     "setup default values
  1423     "
  1425     "