编辑器

优化目录打开

funcext/tvclib/ugtkinterface.tsf

@@ -3194,13 +3194,17 @@ type tgtkapis = class() //gtk
 		  begin
 		      if ifstring(p) then 
 		      begin 
-		          for i := length(p) downto 1 do 
+		          if fileexists("","/usr/bin/caja") then 
 		          begin
-		              if p[i]="/" then 
+		              for i := length(p) downto 1 do 
-		              begin
+    		          begin
-		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+    		              if p[i]="/" then 
-		                  break;
+    		              begin
-		              end 
+    		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+    		                  break;
+    		              end 
+    		          end 
+    		          return ;//		
 		          end 		                    
 		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
 		          return 1;