编辑器

优化目录打开

funcext/tvclib/ugtkinterface.tsf

@@ -3193,6 +3193,8 @@ type tgtkapis = class() //gtk
     function openresourcemanager(p); //打开资源管理器
 		  begin
 		      if ifstring(p) then 
+		      begin 
+		          if fileexists("","/usr/bin/caja") then 
 		          begin
 		              for i := length(p) downto 1 do 
     		          begin
@@ -3202,6 +3204,8 @@ type tgtkapis = class() //gtk
     		                  break;
     		              end 
     		          end 
+    		          return ;//		
+		          end 		                    
 		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
 		          return 1;
 		      end