/^--incident$/ && shift @ARGV and do { $incident = 1; $prog = shift @ARGV };

}

$window->{rwindow}->set_border_width(5);

$window->{window}->signal_connect("delete_event", sub { ugtk2->exit(0) });

my $mdk_app = {

N("First Time Wizard") => 'drakfw',

N("Synchronization tool") => 'draksync',

N("Standalone Tools") => ['adduserdrake', 'diskdrake', 'drakautoinst', 'drakbackup', 'drakboot', 'DrakBug', 'DrakClock', 'DrakConnect', 'drakfloppy', 'drakfirewall', 'drakfont', 'drakgw', 'DrakSec', 'draksplash', 'drakvpn', 'drakxservices', 'drakxtools', 'drakxtv', 'keyboardrake', 'logdrake', 'mousedrake', 'net_monitor', 'printerdrake', 'scannerdrake', 'XFdrake'],

N("HardDrake") => 'harddrake2',

N("Menudrake") => 'menudrake',

N("Msec") => 'msec',

N("Remote Control") => 'rfbdrake',