reorganise debug etc.

[chiark-tcl-applet.git] / args.tcl

diff --git a/args.tcl b/args.tcl
index 248548bcaad267bbb9ff286856bd7ff3638955f2..c81118cbf091cede93aef94ff5d4365d59842fd0 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