SimpleDialog.st
changeset 465 5df2fbe7275a
parent 464 25e6380399c6
child 466 784ed480f4eb
equal deleted inserted replaced
464:25e6380399c6 465:5df2fbe7275a
   162     super allButOpenFrom:aSpec.
   162     super allButOpenFrom:aSpec.
   163     self preOpen
   163     self preOpen
   164 !
   164 !
   165 
   165 
   166 openFor:anApplication interface:aSelector
   166 openFor:anApplication interface:aSelector
       
   167     "open the dialog for some appModel from a given spec;
       
   168      Return true if accepted, false if canceled"
       
   169 
   167     ^ self openFor:anApplication interface:aSelector withBindings:nil
   170     ^ self openFor:anApplication interface:aSelector withBindings:nil
   168 
   171 
   169     "Modified: 28.2.1997 / 14:09:40 / cg"
   172     "Modified: 28.2.1997 / 16:22:08 / cg"
   170 !
   173 !
   171 
   174 
   172 openFor:anApplication interface:aSelector withBindings:bindings
   175 openFor:anApplication interface:aSelector withBindings:bindings
       
   176     "open the dialog for some appModel from a given spec;
       
   177      the bindings argument may provide overwriting bindings for the
       
   178      dialog.
       
   179      Return true if accepted, false if canceled"
       
   180 
   173     builder addBindings:bindings.
   181     builder addBindings:bindings.
   174     self source:anApplication.
   182     self source:anApplication.
   175     ^ self openFrom:(anApplication class interfaceSpecFor:aSelector)
   183     ^ self openFrom:(anApplication class interfaceSpecFor:aSelector)
   176 
   184 
   177     "Created: 28.2.1997 / 14:09:06 / cg"
   185     "Created: 28.2.1997 / 14:09:06 / cg"
   178     "Modified: 28.2.1997 / 14:13:10 / cg"
   186     "Modified: 28.2.1997 / 16:22:00 / cg"
   179 !
   187 !
   180 
   188 
   181 openFrom:anInterfaceSpec
   189 openFrom:anInterfaceSpec
   182     self allButOpenFrom:anInterfaceSpec.
   190     self allButOpenFrom:anInterfaceSpec.
   183     self openDialog.
   191     self openDialog.
   202 ! !
   210 ! !
   203 
   211 
   204 !SimpleDialog class methodsFor:'documentation'!
   212 !SimpleDialog class methodsFor:'documentation'!
   205 
   213 
   206 version
   214 version
   207     ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.5 1997-02-28 13:23:54 cg Exp $'
   215     ^ '$Header: /cvs/stx/stx/libview2/SimpleDialog.st,v 1.6 1997-02-28 21:51:30 cg Exp $'
   208 ! !
   216 ! !