chiark / gitweb /
reorganise debug etc.
[chiark-tcl-applet.git] / args.tcl
index 248548b..c81118c 100644 (file)
--- a/args.tcl
+++ b/args.tcl
@@ -35,7 +35,7 @@ proc generalarg {arg} {
        -horizontal - -vertical { set applet::deforient $arg }
        -borderColour - -borderColor { set applet::border_colour [next] }
        -borderWidth { set applet::border_width [next_num] }
-       -debug { applet::setup-debug puts }
+       -debug { debug::setup puts }
        default { return 0 }
     }
     return 1