SimpleDialog.st
changeset 1441 2777d3f49053
parent 1440 7a0b8cc86e87
child 1491 6a1c859f50da
equal deleted inserted replaced
1440:7a0b8cc86e87 1441:2777d3f49053
   515     ^ accept value
   515     ^ accept value
   516 
   516 
   517     "Modified: 28.2.1997 / 16:40:36 / cg"
   517     "Modified: 28.2.1997 / 16:40:36 / cg"
   518 !
   518 !
   519 
   519 
       
   520 openInterface:aSymbol
       
   521     "open a standard interface.
       
   522      Redefined to return the accept value instead of the builder."
       
   523 
       
   524     super openInterfaceModal:aSymbol.
       
   525     ^ accept value.
       
   526 
       
   527     "Created: / 23.1.1998 / 18:19:57 / cg"
       
   528     "Modified: / 20.5.1998 / 20:21:28 / cg"
       
   529 !
       
   530 
       
   531 openSpec:aWindowSpec
       
   532     "open a window spec.
       
   533      Redefned to open modal and to return the accept value instead 
       
   534      of the builder."
       
   535 
       
   536     super openSpecModal:aWindowSpec.
       
   537     ^ accept value.
       
   538 
       
   539     "Modified: / 22.4.1998 / 11:59:05 / cg"
       
   540     "Created: / 20.5.1998 / 20:21:17 / cg"
       
   541 !
       
   542 
   520 openSpec:anInterfaceSpec withBindings:bindings
   543 openSpec:anInterfaceSpec withBindings:bindings
   521     "open the dialog with a given spec;
   544     "open the dialog with a given spec;
   522      The bindings argument is mandatory and provides aspect bindings for the
   545      The bindings argument is mandatory and provides aspect bindings for the
   523      dialog.
   546      dialog.
   524      Return true if accepted, false if canceled"
   547      Return true if accepted, false if canceled"
   598     ^ #dialog
   621     ^ #dialog
   599 
   622 
   600     "Modified: 14.2.1997 / 22:17:20 / cg"
   623     "Modified: 14.2.1997 / 22:17:20 / cg"
   601 ! !
   624 ! !
   602 
   625 
   603 !SimpleDialog methodsFor:'startup'!
       
   604 
       
   605 openInterface:aSymbol
       
   606     "open a standard interface.
       
   607      Redefined to return the accept value instead of the builder."
       
   608 
       
   609     super openInterfaceModal:aSymbol.
       
   610     ^ accept value.
       
   611 
       
   612     "Created: / 23.1.1998 / 18:19:57 / cg"
       
   613     "Modified: / 20.5.1998 / 20:21:28 / cg"
       
   614 !
       
   615 
       
   616 openSpec:aWindowSpec
       
   617     "open a window spec.
       
   618      Redefned to open modal and to return the accept value instead 
       
   619      of the builder."
       
   620 
       
   621     super openSpecModal:aWindowSpec.
       
   622     ^ accept value.
       
   623 
       
   624     "Modified: / 22.4.1998 / 11:59:05 / cg"
       
   625     "Created: / 20.5.1998 / 20:21:17 / cg"
       
   626 ! !
       
   627 
       
   628 !SimpleDialog class methodsFor:'documentation'!
   626 !SimpleDialog class methodsFor:'documentation'!
   629 
   627 
   630 version
   628 version
   631     ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.34 2000-12-07 13:45:29 cg Exp $'
   629     ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.35 2000-12-07 13:48:21 cg Exp $'
   632 ! !
   630 ! !