[Tkabber-dev] r860 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Jan 5 15:27:26 MSK 2007


Author: sergei
Date: 2007-01-05 15:27:25 +0300 (Fri, 05 Jan 2007)
New Revision: 860

Modified:
   trunk/tkabber/tkabber.tcl
Log:
	* Bugfix with source config.tcl


Modified: trunk/tkabber/tkabber.tcl
===================================================================
--- trunk/tkabber/tkabber.tcl	2007-01-05 12:24:11 UTC (rev 859)
+++ trunk/tkabber/tkabber.tcl	2007-01-05 12:27:25 UTC (rev 860)
@@ -55,13 +55,36 @@
 tk appname tkabber
 
 set is_a_starkit [expr {[package provide starkit] != ""}]
+
 if {$is_a_starkit} {
     set rootdir [file join $::starkit::topdir tkabber]
 } else {
     set rootdir [file dirname [info script]]
 }
 
-source config.tcl
+set debug_lvls {}
+
+proc debugmsg {level msg} {
+    global debug_lvls
+
+    if {[lsearch -exact $debug_lvls $level] >= 0} {
+	puts "$level: $msg"
+    }
+}
+
+proc fullpath {args} {
+    global rootdir
+    return [eval file join [list $rootdir] $args]
+}
+
+proc load_source {args} {
+    set fullpath [eval fullpath $args]
+
+    debugmsg tkabber "Loading $fullpath"
+    uplevel #0 [list source $fullpath]
+}
+
+load_source config.tcl
 # from now on Tkabber config directory should be referenced via $::configdir
 
 proc get_snapshot {changelog} {
@@ -84,32 +107,11 @@
 if {$is_a_starkit} {
     append toolkit_version " (starkit)"
 }
-set debug_lvls {}
 
-proc debugmsg {level msg} {
-    global debug_lvls
-
-    if {[lsearch -exact $debug_lvls $level] >= 0} {
-	puts "$level: $msg"
-    }
-}
-
 proc rescmd {id res ls} {
     puts "RESULT: $id $res $ls"
 }
 
-proc fullpath {args} {
-    global rootdir
-    return [eval file join [list $rootdir] $args]
-}
-
-proc load_source {args} {
-    set fullpath [eval fullpath $args]
-
-    debugmsg tkabber "Loading $fullpath"
-    uplevel #0 [list source $fullpath]
-}
-
 proc quit {{status 0}} {
     hook::run quit_hook
     catch { bind $::ifacetk::mf <Destroy> {} }



More information about the Tkabber-dev mailing list