Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/eXene/widgets/simple/button-ctrl.sml
ViewVC logotype

Diff of /sml/trunk/src/eXene/widgets/simple/button-ctrl.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1910, Thu Mar 2 23:45:19 2006 UTC revision 1911, Fri Mar 3 03:33:16 2006 UTC
# Line 47  Line 47 
47                  ]                  ]
48            in wait(timeOutEvt delay) end            in wait(timeOutEvt delay) end
49    
50      fun realize {env=inenv, win, sz} (state,(quanta,reqc,evtc,bv)) = let      fun realize {env=inenv, win, sz} (state,(quanta,reqc,
51            (* next line type added ddeboer: *)
52            evtc: ButtonType.button_act CML.chan,
53            bv)) = let
54            open Interact            open Interact
55            val InEnv{m,ci,...} = ignoreKey inenv            val InEnv{m,ci,...} = ignoreKey inenv
56            val mchan = channel ()            val mchan = channel ()
# Line 190  Line 193 
193                  realize = fn arg => send(reqc,DoRealize arg)                  realize = fn arg => send(reqc,DoRealize arg)
194                },                },
195                rqst = reqc,                rqst = reqc,
196                evt = recvEvt evtc                (* modified by ddeboer; original: *)
197                  (* evt = recvEvt evtc *)
198                  evt = (WidgetBase.wrapQueue (recvEvt evtc))
199              }              }
200            end            end
201    

Legend:
Removed from v.1910  
changed lines
  Added in v.1911

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0