|GUI.GetEventTime||Part of GUI module|
|Syntax|| GUI.GetEventTime : int|
|Description|| Returns the time in milliseconds when the event (mouse button or keystroke) took place. This value is the same value as Time.Elapsed returns if called when the event was processed. This function should only be called in an action procedure or in a default mouse, keystroke, or null event handler, as it will return 1 when there is no event being processed.|
This event can be used as a timer for various functions such as determining whether a single click or a double click of the mouse button took place or for timing keyboard input.
|Example|| The following program times the interval between two button presses.|
import GUI in "%oot/lib/GUI" View.Set ("graphics:300;100") var startTime, startButton, finishButton : int procedure Start startTime := GUI.GetEventTime end Start procedure Finish Text.Locate (1, 1) put "The time between button pressed is ", GUI.GetEventTime startTime, " msecs" GUI.Quit end Finish startButton := GUI.CreateButton (10, 10, 110, "Click First", Start) finishButton := GUI.CreateButton (180, 10, 110, "Click Second", Finish) loop exit when GUI.ProcessEvent end loop
|Status|| Exported qualified.|
This means that you can only call the function by calling GUI.GetEventTime , not by calling GetEventTime .
|See also|| GUI.ProcessEvent.|