From 9831a0260ff0421642ecbf41ada8a8e62236b7f9 Mon Sep 17 00:00:00 2001
From: JianjunLiu <cqljj123@126.com>
Date: Thu, 24 Nov 2022 14:32:48 +0800
Subject: [PATCH] Update utslvclstdctl.tsf

gtk idle
---
 funcext/tvclib/utslvclstdctl.tsf | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/funcext/tvclib/utslvclstdctl.tsf b/funcext/tvclib/utslvclstdctl.tsf
index 1ebb4de..4d8e4f5 100644
--- a/funcext/tvclib/utslvclstdctl.tsf
+++ b/funcext/tvclib/utslvclstdctl.tsf
@@ -6766,11 +6766,15 @@ type tedolist = class()
     flockct; //¼ÆÊý
     flist; //Á´±í
 end 
-
-initialization
+function uinit();
+begin
 {$ifdef linux}
-class(tUIglobalData).uisetdata("G_T_TTIMER_",class(TCustomTimer));
-class(TCustomTimer)._wapi.SetTimer(nil,10000,100,getwinprocptr(2));
+    class(tUIglobalData).uisetdata("G_T_TTIMER_",class(TCustomTimer));
+    o := new TSLUIBASE();
+    o._wapi.SetTimer(nil,10000,100,getwinprocptr(2));
 {$endif}
+end 
+initialization
+uinit();
 
 end.
\ No newline at end of file