+# Copyright 2016,2020 Ian Jackson
+# SPDX-License-Identifier: GPL-3.0-or-later
+# There is NO WARRANTY.
+
namespace eval args {
proc badusage {msg} {
-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