--- tcldesk/config.tcl +++ tcldesk/config.tcl @@ -84,23 +84,23 @@ set notice 0 set version 1.0a1 - if ![file exists $env(HOME)/.tkdesk] { + if ![file exists $env(HOME)/.desk/tkdesk] { set tkdesk(first_time_user) 1 - exec mkdir $env(HOME)/.tkdesk - exec mkdir $env(HOME)/.tkdesk/.trash + exec mkdir $env(HOME)/.desk/tkdesk + exec mkdir $env(HOME)/.desk/tkdesk/.trash catch {eval exec cp [glob $tkdesk(library)/configs/*] \ - $env(HOME)/.tkdesk} + $env(HOME)/.desk/tkdesk} dsk_catch { - set fd [open $env(HOME)/.tkdesk/_version w] + set fd [open $env(HOME)/.desk/tkdesk/_version w] puts $fd $tkdesk(version) catch {close $fd} } } else { - if ![file readable $env(HOME)/.tkdesk/_version] { + if ![file readable $env(HOME)/.desk/tkdesk/_version] { set notice 1 } else { dsk_catch { - set fd [open $env(HOME)/.tkdesk/_version r] + set fd [open $env(HOME)/.desk/tkdesk/_version r] set version [gets $fd] catch {close $fd} } @@ -113,7 +113,7 @@ if {$notice} { cb_info "Apparently you've been running a previous version of TkDesk. Please take a look at menu entry \"Help/Changes\" to find out what has changed since version $version." dsk_catch { - set fd [open $env(HOME)/.tkdesk/_version w] + set fd [open $env(HOME)/.desk/tkdesk/_version w] puts $fd $tkdesk(version) catch {close $fd} } @@ -124,14 +124,14 @@ # 1. home dir, 2. current dir, 3. library dir # - if [file isdirectory $env(HOME)/.tkdesk] { + if [file isdirectory $env(HOME)/.desk/tkdesk] { if [string match $env(HOME) "/"] { - set tkdesk(configdir) /.tkdesk + set tkdesk(configdir) /.desk/tkdesk } else { - set tkdesk(configdir) $env(HOME)/.tkdesk + set tkdesk(configdir) $env(HOME)/.desk/tkdesk } - } elseif [file isdirectory [pwd]/.tkdesk] { - set tkdesk(configdir) [pwd]/.tkdesk + } elseif [file isdirectory [pwd]/.desk/tkdesk] { + set tkdesk(configdir) [pwd]/.desk/tkdesk } elseif [file isdirectory $tkdesk(library)/configs] { set tkdesk(configdir) $tkdesk(library)/configs } else { @@ -141,7 +141,7 @@ } else { # else configdir has been set via command line dsk_debug "TkDesk: Reading configuration from $tkdesk(configdir)" - if ![file isdirectory $env(HOME)/.tkdesk] { + if ![file isdirectory $env(HOME)/.desk/tkdesk] { set tkdesk(first_time_user) 1 } }