Fixed: UI now counting down logout time.

8f4fd592 · Rusty Myers · 93ef0175 · 8f4fd592 · 8f4fd592
Commit 8f4fd592 authored Nov 02, 2015 by Rusty Myers
Expand all Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 2 deletions

IdleLogout.rbbas IdleLogout.rbbas +1 -1

WatchForIdleThread.xojo_code WatchForIdleThread.xojo_code +1 -1

No files found.
--- a/IdleLogout.rbbas
+++ b/IdleLogout.rbbas
--- a/WatchForIdleThread.xojo_code
+++ b/WatchForIdleThread.xojo_code
-#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
\ No newline at end of file
+#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