Add files via upload

par7133 · Dec 15, 2023 · 783ecb8 · 783ecb8
1 parent c3128d9
commit 783ecb8
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/radxide.tcl b/radxide.tcl
@@ -68,7 +68,6 @@ namespace eval radxide {
   }   
 
   set dan(WORKDIR) "$userhome/.radxwork"  ;# working dir
-
 
   # Check workdir existance..
   if {![file exists $dan(WORKDIR)]} {

diff --git a/tree.tcl b/tree.tcl
@@ -447,7 +447,10 @@ namespace eval tree {
 		# 1. skip the ignored ones
 		for {set i [llength $dcont]} {$i} {} {
 		  incr i -1
-		  if {[ignoredDir [lindex $dcont $i]]} {
+		  #if {$lev eq 1} {
+		  #  tk_messageBox -title $dan(TITLE) -icon error -message [lindex $dcont $i]
+		  #}
+		  if {[ignoredDir [lindex $dcont $i]] || (($lev eq 1) && (([file tail [lindex $dcont $i]] ne "Private") && ([file tail [lindex $dcont $i]] ne "Public")))} {
 		    set dcont [lreplace $dcont $i $i]
 		  }
 		}