build system: debian/copyright file

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

diff --git a/args.tcl b/args.tcl
index 248548bcaad267bbb9ff286856bd7ff3638955f2..8b8ec11d06bd375c55159127a2b2b5c4d275e4a1 100644 (file)
--- a/args.tcl
+++ b/args.tcl
@@ -1,4 +1,8 @@
 
+# Copyright 2016,2020 Ian Jackson
+# SPDX-License-Identifier: GPL-3.0-or-later
+# There is NO WARRANTY.
+
 namespace eval args {
 
 proc badusage {msg} {
@@ -35,7 +39,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