界面库

整理代码

funcext/tvclib/tslvcl.tsf

@@ -7911,7 +7911,7 @@ type tapplication=class(tcomponent)
         initialize();
         {$ifdef linuxgtk}
         idledata :=(new tcbytearray(4))._getptr_();
-        id := _wapi.tsl_gtk_idle_interface(idledata); //¹¹Ôìidle
+        id := tsl_gtk_idle_interface(idledata);//_wapi.tsl_gtk_idle_interface(idledata); //¹¹Ôìidle
         _wapi.gtk_main();
         _Wapi.g_idle_remove_by_data(idledata); //ɾ³ýidle
         return 1;
@@ -32230,7 +32230,7 @@ type TCreateProcessA = class()
         end  
         function deleteproc(pid,flg);
         begin
-            _wapi.tsl_gtk_closehandle(fidarray[pid]);//ɾ³ýfid
+            tsl_gtk_closehandle(fidarray[pid]);//ɾ³ýfid
             reindex(fidarray,array(pid:nil)); 
             reindex(fidarraya,array(pid:nil)); 
             tp := 	fidarrayb[pid];	 
@@ -41015,7 +41015,6 @@ begin
     //ClearScriptCache();
     //global tuiapplication;
     //tuiapplication := getapplication();
-    setcallbackunitname("tslvcl");
     class(TSLUICONST).sinit();
     class(tenumeration).initenumeration(new tconstant());
     class(UIglobalData).uisetdata("TGlobalComponentcache",class(TGlobalComponentcache));