From 783ecb894fd1379cdcac0e9f3187cfd5c99c261a Mon Sep 17 00:00:00 2001
From: Capitan Cloud <my25mb@has.im>
Date: Fri, 15 Dec 2023 03:03:34 +0100
Subject: [PATCH] Add files via upload

---
 radxide.tcl | 1 -
 tree.tcl    | 5 ++++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/radxide.tcl b/radxide.tcl
index fa746c3..4ebd14e 100644
--- 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
index 72a1f0d..8b575e9 100644
--- 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]
 		  }
 		}