Version française
Home     About     Download     Resources     Contact us    

This site is updated infrequently. For up-to-date information, please visit the new OCaml website at

Browse thread
GWindow message_dialog
[ Home ] [ Index: by date | by threads ]
[ Search: ]

[ Message by date: previous | next ] [ Message in thread: previous | next ] [ Thread: previous | next ]
Date: 2007-10-31 (05:21)
From: Angela Zhu <angela.zhu@c...>
Subject: GWindow message_dialog
Dear all,

I want to create a GWindow.message_dialog with the following  
functionality in my GUI:

If I click on a button "reset" or "run",
it prompt out a message " program is running, please wait..."
And it disappear after, say, 3 seconds.
(I want this message here is to let the user know the program is  
responding, but it
will take a while before getting the result. )

I am defining a function like this:

let print_sim_wait str win () =
   let my_message = if (str="run") then "Program running, please  
wait ... "
	else "System state resetting, please wait ... "	
   let diag = GWindow.message_dialog ~message_type:`INFO
	~message: my_message
	~destroy_with_parent: true ~parent:win () in
     let res = diag#run () = `OK in
	diag#destroy ()

However, this requires the user to click on "OK" every time to close  
the window.
Can we set a timeline, such that the window will destroy itself after  
a while,
without requiring any action?

Dept. of CS, Rice Unitersity