Changing to a thread. Still showing UI exception attempting to load GUI from thread.

cdb78f47 · Rusty Myers · d7a679b3 · cdb78f47 · cdb78f47 · cdb78f47
Commit cdb78f47 authored Nov 02, 2015 by Rusty Myers
7 changed files
--- a/IdleLogout.rbbas
+++ b/IdleLogout.rbbas
--- a/LogoutWarning.rbfrm
+++ b/LogoutWarning.rbfrm
--- a/Task/Task.xojo_code
+++ b/Task/Task.xojo_code
+#tag Class
Protected Class Task
Inherits Thread
	#tag Event
		Sub Run()
		  InternalPushEvent( New TaskEvent( TaskEvent.Types.Begin ) )
		  
		  Try
		    RaiseEvent Run
		  Catch exc As ThreadEndException
		    // FIXME: we probably want to make sure this isn't being sent because
		    // the app is quitting?
		    InternalPushEvent( New TaskEvent( TaskEvent.Types.Killed ) )
		    Raise exc
		  End Try
		  
		  InternalPushEvent( New TaskEvent( TaskEvent.Types.Finished ) )
		End Sub
	#tag EndEvent


	#tag Method, Flags = &h1000
		Sub Constructor()
		  mLock = New CriticalSection
		  mTimer = New Timer
		  AddHandler mTimer.Action, WeakAddressOf InternalDispatchEvents
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub InternalDispatchEvents(sender as Timer)
		  // Takes the events in the queue and dispatches them to the correct event handler.
		  //
		  // NOTE: must be called from the main thread.
		  
		  While True
		    Dim currentEvent As TaskEvent
		    
		    mLock.Enter
		    If mEvents.UBound >= 0 Then
		      currentEvent = mEvents( 0 )
		      mEvents.Remove( 0 )
		    Else
		      mLock.Leave
		      Exit Sub
		    End If
		    mLock.Leave
		    
		    Select Case currentEvent.type
		    Case TaskEvent.Types.Begin
		      RaiseEvent Begin
		    Case TaskEvent.Types.UpdateUI
		      RaiseEvent UpdateUI( currentEvent.Arguments )
		    Case TaskEvent.Types.Finished
		      RaiseEvent Finished
		    Case TaskEvent.Types.Killed
		      RaiseEvent Killed
		    End Select
		  Wend
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h21
		Private Sub InternalPushEvent(evt as TaskEvent)
		  // Adds an event to the event queue. This can be called from any thread, but is
		  // usually called from the non-main thread.
		  
		  mLock.Enter
		  mEvents.Append( evt )
		  mTimer.Period = 0
		  mTimer.Mode = Timer.ModeSingle
		  mLock.Leave
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub UpdateUI(args as Dictionary)
		  // Adds an UpdateUI event to the queue, which will eventually be dequeued
		  // on the main thread and raise the UpdateUI event.
		  
		  Dim evt As New TaskEvent( TaskEvent.Types.updateUI )
		  evt.Arguments = args
		  internalPushEvent( evt )
		End Sub
	#tag EndMethod

	#tag Method, Flags = &h0
		Sub UpdateUI(paramarray args as Pair)
		  // Adds an UpdateUI event to the queue, which will eventually be dequeued
		  // on the main thread and raise the UpdateUI event.
		  //
		  // This specific method is a convenience function in order to be able to
		  // use Pair literals. For example:
		  //   UpdateUI( "progress": 10, "total_progress": 100 )
		  
		  Dim d As New Dictionary
		  For Each arg As Pair In args
		    d.Value( arg.Left ) = arg.Right
		  Next
		  
		  Self.UpdateUI( d )
		End Sub
	#tag EndMethod


	#tag Hook, Flags = &h0
		Event Begin()
	#tag EndHook

	#tag Hook, Flags = &h0
		Event Finished()
	#tag EndHook

	#tag Hook, Flags = &h0
		Event Killed()
	#tag EndHook

	#tag Hook, Flags = &h0
		Event Run()
	#tag EndHook

	#tag Hook, Flags = &h0
		Event UpdateUI(args as Dictionary)
	#tag EndHook


	#tag Property, Flags = &h21
		#tag Note
			The queue of pending events. This is protected by mLock in order to provide
			thread safety.
		#tag EndNote
		Private mEvents() As TaskEvent
	#tag EndProperty

	#tag Property, Flags = &h21
		Private mLock As CriticalSection
	#tag EndProperty

	#tag Property, Flags = &h21
		#tag Note
			This timer is used to punt events from the thread onto the main thread, where
			InternalDispatchEvents will process all of the queued events.
		#tag EndNote
		Private mTimer As Timer
	#tag EndProperty


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			Type="Integer"
			EditorType="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Left"
			Visible=true
			Group="Position"
			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="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"
			Type="Integer"
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass
\ No newline at end of file
--- a/Task/TaskEvent.xojo_code
+++ b/Task/TaskEvent.xojo_code
+#tag Class
Protected Class TaskEvent
	#tag Method, Flags = &h0
		Sub Constructor(type as Types)
		  Self.Type = type
		End Sub
	#tag EndMethod


	#tag Property, Flags = &h0
		Arguments As Dictionary
	#tag EndProperty

	#tag Property, Flags = &h0
		Type As Types
	#tag EndProperty


	#tag Enum, Name = Types, Type = Integer, Flags = &h0
		Begin
		  Finished
		  UpdateUI
		Killed
	#tag EndEnum


	#tag ViewBehavior
		#tag ViewProperty
			Name="Index"
			Visible=true
			Group="ID"
			InitialValue="-2147483648"
			Type="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"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Super"
			Visible=true
			Group="ID"
			Type="String"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Top"
			Visible=true
			Group="Position"
			InitialValue="0"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="Type"
			Group="Behavior"
			Type="Types"
			EditorType="Enum"
			#tag EnumValues
				"0 - Begin"
				"1 - Finished"
				"2 - UpdateUI"
				"3 - Killed"
			#tag EndEnumValues
		#tag EndViewProperty
	#tag EndViewBehavior
End Class
#tag EndClass
\ No newline at end of file
--- 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
		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="pErrCode"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="pErrMsg"
			Group="Behavior"
			Type="string"
			EditorType="MultiLineEditor"
		#tag EndViewProperty
		#tag ViewProperty
			Name="pMode"
			Group="Behavior"
			Type="Integer"
		#tag EndViewProperty
		#tag ViewProperty
			Name="pNewsFlashArticleNumber"
			Group="Behavior"
			Type="Integer"
		#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="pThreadRunningStatus"
			Group="Behavior"
			Type="string"
			EditorType="MultiLineEditor"
		#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
--- a/psuIdleLogout.rbres
+++ b/psuIdleLogout.rbres
--- a/psuIdleLogout.rbvcp
+++ b/psuIdleLogout.rbvcp
-Type=Desktop
RBProjectVersion=2014.03
MinIDEVersion=20070100
Class=IdleLogout;IdleLogout.rbbas;&h3007783E;&h0;false
Window=LogoutWarning;LogoutWarning.rbfrm;&h3A6788BA;&h0;false
MenuBar=MenuBar1;MenuBar1.rbmnu;&h6341CAF0;&h0;false
BuildSteps=Build Automation;Build Automation.rbbas;&h2A7E2380;&h0;false
Module=LogToFile;LogToFile.rbbas;&h236DD59E;&h0;false
Module=Globals;Globals.rbbas;&h7FE3CBE3;&h0;false
Module=MiscMethods;MiscMethods.rbbas;&h445F2753;&h0;false
Module=myXMLTools;myXMLTools.rbbas;&h6DD0A4A2;&h0;false
Module=PlistHelper;PlistHelper.rbbas;&h4AA6652A;&h0;false
MajorVersion=1
MinorVersion=2
SubVersion=0
NonRelease=0
Release=2
InfoVersion=
LongVersion=1.2, Penn State University/ITS/CLC
ShortVersion=1.2
WinCompanyName=
WinInternalName=
WinProductName=
WinFileDescription=
AutoIncrementVersionInformation=False
BuildFlags=&h1800
BuildLanguage=&h0
DebugLanguage=&h0
Region=
WindowsName=My Application.exe
MacCarbonMachName=Idle Logout
LinuxX86Name=MyApplication
MacCreator=
MDI=0
MDICaption=
DefaultEncoding=&h0
AppIcon=psuIdleLogout.rbres;&h0
OSXBundleID=edu.psu.idlelogout
DebuggerCommandLine=
UseGDIPlus=True
UseBuildsFolder=True
IsWebProject=False
\ No newline at end of file
+Type=Desktop
RBProjectVersion=2015.03
MinIDEVersion=20070100
Class=WatchForIdleThread;WatchForIdleThread.xojo_code;&h2ACCF4D1;&h0;false
Class=TaskEvent;Task/TaskEvent.xojo_code;&h112EBBEE;&h41C1A8C2;false
Class=IdleLogout;IdleLogout.rbbas;&h3007783E;&h0;false
Window=LogoutWarning;LogoutWarning.rbfrm;&h3A6788BA;&h0;false
MenuBar=MenuBar1;MenuBar1.rbmnu;&h6341CAF0;&h0;false
Class=Task;Task/Task.xojo_code;&h133450B8;&h41C1A8C2;false
BuildSteps=Build Automation;Build Automation.rbbas;&h2A7E2380;&h0;false
Module=LogToFile;LogToFile.rbbas;&h236DD59E;&h0;false
Module=Globals;Globals.rbbas;&h7FE3CBE3;&h0;false
Module=MiscMethods;MiscMethods.rbbas;&h445F2753;&h0;false
Module=myXMLTools;myXMLTools.rbbas;&h6DD0A4A2;&h0;false
Module=PlistHelper;PlistHelper.rbbas;&h4AA6652A;&h0;false
Folder=Task;Task;&h41C1A8C2;&h0;false
MajorVersion=1
MinorVersion=2
SubVersion=0
NonRelease=0
Release=2
InfoVersion=
LongVersion=1.2, Penn State University/ITS/CLC
ShortVersion=1.2
WinCompanyName=
WinInternalName=
WinProductName=
WinFileDescription=
AutoIncrementVersionInformation=False
BuildFlags=&h1800
BuildLanguage=&h0
DebugLanguage=&h0
Region=
WindowsName=My Application.exe
MacCarbonMachName=Idle Logout
LinuxX86Name=MyApplication
MacCreator=
MDI=0
MDICaption=
DefaultEncoding=&h0
AppIcon=psuIdleLogout.rbres;&h0
OSXBundleID=edu.psu.idlelogout
DebuggerCommandLine=
UseGDIPlus=True
UseBuildsFolder=True
IsWebProject=False
\ No newline at end of file