Commit 8f4fd592 authored by Rusty Myers's avatar Rusty Myers

Fixed: UI now counting down logout time.

parent 93ef0175
This diff is collapsed.
#tag Class Protected Class WatchForIdleThread Inherits Task #tag Method, Flags = &h1000 Sub Constructor(paramTaskType as integer) // Calling the overridden superclass constructor. Super.Constructor( ) pTaskType = paramTaskType LogToFile(CurrentMethodName + " Param task type = " + str(pTaskType)) End Sub #tag EndMethod #tag Property, Flags = &h0 pTaskType As Integer #tag EndProperty #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" Type="Integer" EditorType="Integer" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" Type="String" EditorType="String" #tag EndViewProperty #tag ViewProperty Name="Priority" Visible=true Group="Behavior" InitialValue="5" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="pTaskType" Group="Behavior" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="StackSize" Visible=true Group="Behavior" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" Type="String" EditorType="String" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass #tag Class Protected Class WatchForIdleThread Inherits Task #tag Event Sub UpdateUI(args as Dictionary) LogToFile(CurrentMethodName + " CountDown Time: " + str(App.pCountDownTime)) LogoutWarning.TimeLabel.setString(str(App.pCountDownTime)) End Sub #tag EndEvent #tag Method, Flags = &h1000 Sub Constructor(paramTaskType as integer) // Calling the overridden superclass constructor. Super.Constructor( ) pTaskType = paramTaskType LogToFile(CurrentMethodName + " Param task type = " + str(pTaskType)) End Sub #tag EndMethod #tag Property, Flags = &h0 pTaskType As Integer #tag EndProperty #tag ViewBehavior #tag ViewProperty Name="Index" Visible=true Group="ID" InitialValue="-2147483648" Type="Integer" EditorType="Integer" #tag EndViewProperty #tag ViewProperty Name="Left" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Name" Visible=true Group="ID" Type="String" EditorType="String" #tag EndViewProperty #tag ViewProperty Name="Priority" Visible=true Group="Behavior" InitialValue="5" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="pTaskType" Group="Behavior" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="StackSize" Visible=true Group="Behavior" InitialValue="0" Type="Integer" #tag EndViewProperty #tag ViewProperty Name="Super" Visible=true Group="ID" Type="String" EditorType="String" #tag EndViewProperty #tag ViewProperty Name="Top" Visible=true Group="Position" InitialValue="0" Type="Integer" #tag EndViewProperty #tag EndViewBehavior End Class #tag EndClass
\ No newline at end of file \ No newline at end of file
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment