--- deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 06:21:07	1.1
+++ deliantra/Deliantra-Client/DC/MapWidget.pm	2006/04/19 09:40:00	1.2
@@ -232,4 +232,11 @@
    }
 }
 
+sub add_command {
+   my ($self, $command, $widget, $cb) = @_;
+
+   (my $abbrev = $command) =~ s/(\S)[^[:space:]_]*[[:space:]_]*/$1/g;
+   warn "$command|$abbrev|$widget\n";#d#
+}
+
 1