编辑器

优化目录打开
2023-03-15 15:44:54 +08:00 · 2023-03-15 15:44:54 +08:00 · 0f6839bdc2
parent 2a1c1680bf
commit 0f6839bdc2
1 changed files with 11 additions and 7 deletions
--- a/funcext/tvclib/ugtkinterface.tsf
+++ b/funcext/tvclib/ugtkinterface.tsf
@ -3194,14 +3194,18 @@ 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 
-		              begin
-		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
-		                  break;
-		              end 
-		          end 		          
+		              for i := length(p) downto 1 do 
+    		          begin
+    		              if p[i]="/" then 
+    		              begin
+    		                  tsl_gtk_execsystem(format('caja   "%s" &',p[1:i])); 
+    		                  break;
+    		              end 
+    		          end 
+    		          return ;//		
+		          end 		                    
 		          tsl_gtk_execsystem(format('nautilus   "%s" &',p)); 
 		          return 1;
 		      end