#!/usr/bin/perl

use Gtk2 ('-init');
use threads ('yield', 'stack_size', 262144, 'exit', 'threads_only', 'stringify');

$icon = 'Gtk2::StatusIcon'->new;
$icon->set_from_stock('gtk-home');
$icon->set_visible(1);
$icon->signal_connect('button-release-event', sub {
    show_icon_menu();
});
$icon->set_tooltip('Click for menu...');

sub show_icon_menu {
    $menu = 'Gtk2::Menu'->new;

    $item15 = 'Gtk2::MenuItem'->new(q[File Manager]);
    $item15->show;
    $item15->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[thunar];
        });}
    );
    $menu->append($item15);
    $item16 = 'Gtk2::MenuItem'->new(q[Terminal]);
    $item16->show;
    $item16->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm];
        });}
    );
    $menu->append($item16);
    $item17 = 'Gtk2::MenuItem'->new(q[Web Browser]);
    $item17->show;
    $item17->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[firefox];
        });}
    );
    $menu->append($item17);
    $item18 = 'Gtk2::MenuItem'->new(q[Text Editor]);
    $item18->show;
    $item18->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e nano];
        });}
    );
    $menu->append($item18);
    $separator = Gtk2::SeparatorMenuItem->new;
    $menu->append($separator);

				# # # # # # # # # # # # # # # # # # # # Accessories # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category0 = 'Gtk2::MenuItem'->new(q[Accessories]);
    $about32 = 'Gtk2::MenuItem'->new(q[About GNOME]);
    $about32->show;
    $about32->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-about];
        });}
    );
    $all_apps->append($about32);
    $archive26 = 'Gtk2::MenuItem'->new(q[Archive Manager]);
    $archive26->show;
    $archive26->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[file-roller];
        });}
    );
    $all_apps->append($archive26);
    $calculator27 = 'Gtk2::MenuItem'->new(q[Calculator]);
    $calculator27->show;
    $calculator27->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gcalctool];
        });}
    );
    $all_apps->append($calculator27);
    $catfish31 = 'Gtk2::MenuItem'->new(q[Catfish]);
    $catfish31->show;
    $catfish31->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[catfish];
        });}
    );
    $all_apps->append($catfish31);
    $file23 = 'Gtk2::MenuItem'->new(q[File Manager]);
    $file23->show;
    $file23->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[pcmanfm];
        });}
    );
    $all_apps->append($file23);
    $gedit29 = 'Gtk2::MenuItem'->new(q[gedit]);
    $gedit29->show;
    $gedit29->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gedit];
        });}
    );
    $all_apps->append($gedit29);
    $kupfer30 = 'Gtk2::MenuItem'->new(q[Kupfer]);
    $kupfer30->show;
    $kupfer30->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[kupfer];
        });}
    );
    $all_apps->append($kupfer30);
    $panel24 = 'Gtk2::MenuItem'->new(q[Panel]);
    $panel24->show;
    $panel24->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-panel];
        });}
    );
    $all_apps->append($panel24);
    $root25 = 'Gtk2::MenuItem'->new(q[Root Terminal]);
    $root25->show;
    $root25->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gksu /usr/bin/x-terminal-emulator];
        });}
    );
    $all_apps->append($root25);
    $terminator28 = 'Gtk2::MenuItem'->new(q[Terminator]);
    $terminator28->show;
    $terminator28->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[terminator];
        });}
    );
    $all_apps->append($terminator28);
    $tilda22 = 'Gtk2::MenuItem'->new(q[Tilda]);
    $tilda22->show;
    $tilda22->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[tilda];
        });}
    );
    $all_apps->append($tilda22);
    $category0->set_submenu($all_apps);
    $menu->append($category0);

				# # # # # # # # # # # # # # # # # # # # Development # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category1 = 'Gtk2::MenuItem'->new(q[Development]);
    $python35 = 'Gtk2::MenuItem'->new(q[Python (v2.6)]);
    $python35->show;
    $python35->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e /usr/bin/python2.6];
        });}
    );
    $all_apps->append($python35);
    $python36 = 'Gtk2::MenuItem'->new(q[Python (v2.5)]);
    $python36->show;
    $python36->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e /usr/bin/python2.5];
        });}
    );
    $all_apps->append($python36);
    $category1->set_submenu($all_apps);
    $menu->append($category1);

				# # # # # # # # # # # # # # # # # # # # Graphics # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category4 = 'Gtk2::MenuItem'->new(q[Graphics]);
    $document41 = 'Gtk2::MenuItem'->new(q[Document Viewer]);
    $document41->show;
    $document41->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[evince];
        });}
    );
    $all_apps->append($document41);
    $gcolor243 = 'Gtk2::MenuItem'->new(q[Gcolor2]);
    $gcolor243->show;
    $gcolor243->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gcolor2];
        });}
    );
    $all_apps->append($gcolor243);
    $gnu44 = 'Gtk2::MenuItem'->new(q[GNU Image Manipulation Program]);
    $gnu44->show;
    $gnu44->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gimp-2.6];
        });}
    );
    $all_apps->append($gnu44);
    $inkscape42 = 'Gtk2::MenuItem'->new(q[Inkscape]);
    $inkscape42->show;
    $inkscape42->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[inkscape];
        });}
    );
    $all_apps->append($inkscape42);
    $libreoffice45 = 'Gtk2::MenuItem'->new(q[LibreOffice Draw]);
    $libreoffice45->show;
    $libreoffice45->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -draw];
        });}
    );
    $all_apps->append($libreoffice45);
    $mirage47 = 'Gtk2::MenuItem'->new(q[Mirage]);
    $mirage47->show;
    $mirage47->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[mirage];
        });}
    );
    $all_apps->append($mirage47);
    $viewnior46 = 'Gtk2::MenuItem'->new(q[Viewnior]);
    $viewnior46->show;
    $viewnior46->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[viewnior];
        });}
    );
    $all_apps->append($viewnior46);
    $category4->set_submenu($all_apps);
    $menu->append($category4);

				# # # # # # # # # # # # # # # # # # # # Multimedia # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category5 = 'Gtk2::MenuItem'->new(q[Multimedia]);
    $brasero52 = 'Gtk2::MenuItem'->new(q[Brasero]);
    $brasero52->show;
    $brasero52->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[brasero];
        });}
    );
    $all_apps->append($brasero52);
    $mixer55 = 'Gtk2::MenuItem'->new(q[Mixer]);
    $mixer55->show;
    $mixer55->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xfce4-mixer];
        });}
    );
    $all_apps->append($mixer55);
    $outrec50 = 'Gtk2::MenuItem'->new(q[outRec]);
    $outrec50->show;
    $outrec50->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/bin/outrec.gambas];
        });}
    );
    $all_apps->append($outrec50);
    $sound54 = 'Gtk2::MenuItem'->new(q[Sound Recorder]);
    $sound54->show;
    $sound54->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-sound-recorder];
        });}
    );
    $all_apps->append($sound54);
    $vlc51 = 'Gtk2::MenuItem'->new(q[VLC media player]);
    $vlc51->show;
    $vlc51->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[vlc];
        });}
    );
    $all_apps->append($vlc51);
    $xfburn53 = 'Gtk2::MenuItem'->new(q[Xfburn]);
    $xfburn53->show;
    $xfburn53->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xfburn];
        });}
    );
    $all_apps->append($xfburn53);
    $category5->set_submenu($all_apps);
    $menu->append($category5);

				# # # # # # # # # # # # # # # # # # # # Network # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category6 = 'Gtk2::MenuItem'->new(q[Network]);
    $bluetooth65 = 'Gtk2::MenuItem'->new(q[Bluetooth]);
    $bluetooth65->show;
    $bluetooth65->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[bluetooth-properties];
        });}
    );
    $all_apps->append($bluetooth65);
    $gftp66 = 'Gtk2::MenuItem'->new(q[gFTP]);
    $gftp66->show;
    $gftp66->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gftp];
        });}
    );
    $all_apps->append($gftp66);
    $google58 = 'Gtk2::MenuItem'->new(q[Google Chrome]);
    $google58->show;
    $google58->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/opt/google/chrome/google-chrome];
        });}
    );
    $all_apps->append($google58);
    $heybuddy62 = 'Gtk2::MenuItem'->new(q[Heybuddy - Identi.ca client]);
    $heybuddy62->show;
    $heybuddy62->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[heybuddy];
        });}
    );
    $all_apps->append($heybuddy62);
    $iceweasel63 = 'Gtk2::MenuItem'->new(q[Iceweasel]);
    $iceweasel63->show;
    $iceweasel63->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[iceweasel];
        });}
    );
    $all_apps->append($iceweasel63);
    $network60 = 'Gtk2::MenuItem'->new(q[Network Proxy]);
    $network60->show;
    $network60->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-network-properties];
        });}
    );
    $all_apps->append($network60);
    $network67 = 'Gtk2::MenuItem'->new(q[Network Connections]);
    $network67->show;
    $network67->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nm-connection-editor];
        });}
    );
    $all_apps->append($network67);
    $sun59 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Web Start]);
    $sun59->show;
    $sun59->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/javaws];
        });}
    );
    $all_apps->append($sun59);
    $transmission61 = 'Gtk2::MenuItem'->new(q[Transmission]);
    $transmission61->show;
    $transmission61->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[transmission];
        });}
    );
    $all_apps->append($transmission61);
    $xchat64 = 'Gtk2::MenuItem'->new(q[XChat IRC]);
    $xchat64->show;
    $xchat64->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xchat];
        });}
    );
    $all_apps->append($xchat64);
    $category6->set_submenu($all_apps);
    $menu->append($category6);

				# # # # # # # # # # # # # # # # # # # # Office # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category7 = 'Gtk2::MenuItem'->new(q[Office]);
    $dictionary75 = 'Gtk2::MenuItem'->new(q[Dictionary]);
    $dictionary75->show;
    $dictionary75->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-dictionary];
        });}
    );
    $all_apps->append($dictionary75);
    $gnumeric71 = 'Gtk2::MenuItem'->new(q[Gnumeric]);
    $gnumeric71->show;
    $gnumeric71->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnumeric];
        });}
    );
    $all_apps->append($gnumeric71);
    $libreoffice70 = 'Gtk2::MenuItem'->new(q[LibreOffice Math]);
    $libreoffice70->show;
    $libreoffice70->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -math];
        });}
    );
    $all_apps->append($libreoffice70);
    $libreoffice72 = 'Gtk2::MenuItem'->new(q[LibreOffice Calc]);
    $libreoffice72->show;
    $libreoffice72->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -calc];
        });}
    );
    $all_apps->append($libreoffice72);
    $libreoffice73 = 'Gtk2::MenuItem'->new(q[LibreOffice Base]);
    $libreoffice73->show;
    $libreoffice73->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -base];
        });}
    );
    $all_apps->append($libreoffice73);
    $libreoffice74 = 'Gtk2::MenuItem'->new(q[LibreOffice Impress]);
    $libreoffice74->show;
    $libreoffice74->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -impress];
        });}
    );
    $all_apps->append($libreoffice74);
    $libreoffice76 = 'Gtk2::MenuItem'->new(q[LibreOffice Writer]);
    $libreoffice76->show;
    $libreoffice76->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -writer];
        });}
    );
    $all_apps->append($libreoffice76);
    $libreoffice77 = 'Gtk2::MenuItem'->new(q[LibreOffice ]);
    $libreoffice77->show;
    $libreoffice77->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice];
        });}
    );
    $all_apps->append($libreoffice77);
    $category7->set_submenu($all_apps);
    $menu->append($category7);

				# # # # # # # # # # # # # # # # # # # # Others # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category8 = 'Gtk2::MenuItem'->new(q[Others]);
    $abstractile93 = 'Gtk2::MenuItem'->new(q[Abstractile]);
    $abstractile93->show;
    $abstractile93->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/abstractile -root];
        });}
    );
    $all_apps->append($abstractile93);
    $autorun101 = 'Gtk2::MenuItem'->new(q[Autorun Prompt]);
    $autorun101->show;
    $autorun101->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus-autorun-software];
        });}
    );
    $all_apps->append($autorun101);
    $brasero80 = 'Gtk2::MenuItem'->new(q[Brasero]);
    $brasero80->show;
    $brasero80->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[brasero -c];
        });}
    );
    $all_apps->append($brasero80);
    $computer97 = 'Gtk2::MenuItem'->new(q[Computer]);
    $computer97->show;
    $computer97->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-desktop computer:];
        });}
    );
    $all_apps->append($computer97);
    $cwaves109 = 'Gtk2::MenuItem'->new(q[CWaves]);
    $cwaves109->show;
    $cwaves109->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/cwaves -root];
        });}
    );
    $all_apps->append($cwaves109);
    $deco107 = 'Gtk2::MenuItem'->new(q[Deco]);
    $deco107->show;
    $deco107->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/deco -root];
        });}
    );
    $all_apps->append($deco107);
    $distort106 = 'Gtk2::MenuItem'->new(q[Distort]);
    $distort106->show;
    $distort106->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/distort -root];
        });}
    );
    $all_apps->append($distort106);
    $execute103 = 'Gtk2::MenuItem'->new(q[Execute in Kupfer]);
    $execute103->show;
    $execute103->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[kupfer-exec];
        });}
    );
    $all_apps->append($execute103);
    $fiberlamp99 = 'Gtk2::MenuItem'->new(q[Fiberlamp]);
    $fiberlamp99->show;
    $fiberlamp99->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/fiberlamp -root];
        });}
    );
    $all_apps->append($fiberlamp99);
    $file94 = 'Gtk2::MenuItem'->new(q[File Manager]);
    $file94->show;
    $file94->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus];
        });}
    );
    $all_apps->append($file94);
    $font111 = 'Gtk2::MenuItem'->new(q[Font Viewer]);
    $font111->show;
    $font111->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-font-viewer];
        });}
    );
    $all_apps->append($font111);
    $fuzzyflakes82 = 'Gtk2::MenuItem'->new(q[FuzzyFlakes]);
    $fuzzyflakes82->show;
    $fuzzyflakes82->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/fuzzyflakes -root];
        });}
    );
    $all_apps->append($fuzzyflakes82);
    $galaxy81 = 'Gtk2::MenuItem'->new(q[Galaxy]);
    $galaxy81->show;
    $galaxy81->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/galaxy -root];
        });}
    );
    $all_apps->append($galaxy81);
    $help110 = 'Gtk2::MenuItem'->new(q[Help]);
    $help110->show;
    $help110->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[yelp];
        });}
    );
    $all_apps->append($help110);
    $home83 = 'Gtk2::MenuItem'->new(q[Home Folder]);
    $home83->show;
    $home83->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-desktop];
        });}
    );
    $all_apps->append($home83);
    $libreoffice84 = 'Gtk2::MenuItem'->new(q[LibreOffice Small Device Format Importer]);
    $libreoffice84->show;
    $libreoffice84->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libreoffice -writer];
        });}
    );
    $all_apps->append($libreoffice84);
    $m650290 = 'Gtk2::MenuItem'->new(q[m6502]);
    $m650290->show;
    $m650290->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/m6502 -root];
        });}
    );
    $all_apps->append($m650290);
    $menu95 = 'Gtk2::MenuItem'->new(q[Menu Editor]);
    $menu95->show;
    $menu95->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gmenu-simple-editor];
        });}
    );
    $all_apps->append($menu95);
    $metaballs89 = 'Gtk2::MenuItem'->new(q[MetaBalls]);
    $metaballs89->show;
    $metaballs89->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/metaballs -root];
        });}
    );
    $all_apps->append($metaballs89);
    $metacity108 = 'Gtk2::MenuItem'->new(q[Metacity]);
    $metacity108->show;
    $metacity108->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[metacity];
        });}
    );
    $all_apps->append($metacity108);
    $network91 = 'Gtk2::MenuItem'->new(q[Network]);
    $network91->show;
    $network91->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-desktop network:];
        });}
    );
    $all_apps->append($network91);
    $open88 = 'Gtk2::MenuItem'->new(q[Open Folder]);
    $open88->show;
    $open88->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-desktop];
        });}
    );
    $all_apps->append($open88);
    $openbox85 = 'Gtk2::MenuItem'->new(q[Openbox Session]);
    $openbox85->show;
    $openbox85->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[openbox-session];
        });}
    );
    $all_apps->append($openbox85);
    $penrose96 = 'Gtk2::MenuItem'->new(q[Penrose]);
    $penrose96->show;
    $penrose96->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/penrose -root];
        });}
    );
    $all_apps->append($penrose96);
    $ripples102 = 'Gtk2::MenuItem'->new(q[Ripples]);
    $ripples102->show;
    $ripples102->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/ripples -root];
        });}
    );
    $all_apps->append($ripples102);
    $shadebobs105 = 'Gtk2::MenuItem'->new(q[ShadeBobs]);
    $shadebobs105->show;
    $shadebobs105->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/shadebobs -root];
        });}
    );
    $all_apps->append($shadebobs105);
    $slidescreen87 = 'Gtk2::MenuItem'->new(q[SlideScreen]);
    $slidescreen87->show;
    $slidescreen87->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/slidescreen -root];
        });}
    );
    $all_apps->append($slidescreen87);
    $sun92 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Runtime]);
    $sun92->show;
    $sun92->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/java -jar];
        });}
    );
    $all_apps->append($sun92);
    $swirl86 = 'Gtk2::MenuItem'->new(q[Swirl]);
    $swirl86->show;
    $swirl86->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/swirl -root];
        });}
    );
    $all_apps->append($swirl86);
    $theme104 = 'Gtk2::MenuItem'->new(q[Theme Installer]);
    $theme104->show;
    $theme104->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-appearance-properties -i];
        });}
    );
    $all_apps->append($theme104);
    $window100 = 'Gtk2::MenuItem'->new(q[Window Manager]);
    $window100->show;
    $window100->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-wm];
        });}
    );
    $all_apps->append($window100);
    $xlyap98 = 'Gtk2::MenuItem'->new(q[XLyap]);
    $xlyap98->show;
    $xlyap98->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/xscreensaver/xlyap -root];
        });}
    );
    $all_apps->append($xlyap98);
    $category8->set_submenu($all_apps);
    $menu->append($category8);

				# # # # # # # # # # # # # # # # # # # # Settings # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category9 = 'Gtk2::MenuItem'->new(q[Settings]);
    $about126 = 'Gtk2::MenuItem'->new(q[About Me]);
    $about126->show;
    $about126->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-about-me];
        });}
    );
    $all_apps->append($about126);
    $appearance140 = 'Gtk2::MenuItem'->new(q[Appearance]);
    $appearance140->show;
    $appearance140->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[lxappearance];
        });}
    );
    $all_apps->append($appearance140);
    $assistive116 = 'Gtk2::MenuItem'->new(q[Assistive Technologies]);
    $assistive116->show;
    $assistive116->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-at-properties];
        });}
    );
    $all_apps->append($assistive116);
    $control139 = 'Gtk2::MenuItem'->new(q[Control Center]);
    $control139->show;
    $control139->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-control-center];
        });}
    );
    $all_apps->append($control139);
    $disk135 = 'Gtk2::MenuItem'->new(q[Disk Manager]);
    $disk135->show;
    $disk135->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/sbin/disk-manager-root];
        });}
    );
    $all_apps->append($disk135);
    $file118 = 'Gtk2::MenuItem'->new(q[File Manager]);
    $file118->show;
    $file118->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[thunar-settings];
        });}
    );
    $all_apps->append($file118);
    $file141 = 'Gtk2::MenuItem'->new(q[File Management]);
    $file141->show;
    $file141->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus-file-management-properties];
        });}
    );
    $all_apps->append($file141);
    $gparted114 = 'Gtk2::MenuItem'->new(q[GParted]);
    $gparted114->show;
    $gparted114->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gksu /usr/sbin/gparted];
        });}
    );
    $all_apps->append($gparted114);
    $keyboard123 = 'Gtk2::MenuItem'->new(q[Keyboard Shortcuts]);
    $keyboard123->show;
    $keyboard123->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-keybinding-properties];
        });}
    );
    $all_apps->append($keyboard123);
    $keyboard129 = 'Gtk2::MenuItem'->new(q[Keyboard]);
    $keyboard129->show;
    $keyboard129->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-keyboard-properties];
        });}
    );
    $all_apps->append($keyboard129);
    $main119 = 'Gtk2::MenuItem'->new(q[Main Menu]);
    $main119->show;
    $main119->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[alacarte];
        });}
    );
    $all_apps->append($main119);
    $monitors145 = 'Gtk2::MenuItem'->new(q[Monitors]);
    $monitors145->show;
    $monitors145->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-display-properties];
        });}
    );
    $all_apps->append($monitors145);
    $mouse130 = 'Gtk2::MenuItem'->new(q[Mouse]);
    $mouse130->show;
    $mouse130->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-mouse-properties];
        });}
    );
    $all_apps->append($mouse130);
    $multimedia128 = 'Gtk2::MenuItem'->new(q[Multimedia Systems Selector]);
    $multimedia128->show;
    $multimedia128->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gstreamer-properties];
        });}
    );
    $all_apps->append($multimedia128);
    $multiple143 = 'Gtk2::MenuItem'->new(q[Multiple screens]);
    $multiple143->show;
    $multiple143->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[grandr];
        });}
    );
    $all_apps->append($multiple143);
    $openbox136 = 'Gtk2::MenuItem'->new(q[Openbox Configuration Manager]);
    $openbox136->show;
    $openbox136->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[obconf];
        });}
    );
    $all_apps->append($openbox136);
    $panel132 = 'Gtk2::MenuItem'->new(q[Panel tint2]);
    $panel132->show;
    $panel132->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[tint2conf];
        });}
    );
    $all_apps->append($panel132);
    $panel138 = 'Gtk2::MenuItem'->new(q[Panel]);
    $panel138->show;
    $panel138->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xfce4-panel -c];
        });}
    );
    $all_apps->append($panel138);
    $power115 = 'Gtk2::MenuItem'->new(q[Power Management]);
    $power115->show;
    $power115->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-power-preferences];
        });}
    );
    $all_apps->append($power115);
    $preferred125 = 'Gtk2::MenuItem'->new(q[Preferred Applications]);
    $preferred125->show;
    $preferred125->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[libfm-pref-apps];
        });}
    );
    $all_apps->append($preferred125);
    $printing133 = 'Gtk2::MenuItem'->new(q[Printing]);
    $printing133->show;
    $printing133->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[system-config-printer];
        });}
    );
    $all_apps->append($printing133);
    $qt121 = 'Gtk2::MenuItem'->new(q[Qt 4 Settings]);
    $qt121->show;
    $qt121->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/bin/qtconfig-qt4];
        });}
    );
    $all_apps->append($qt121);
    $removable131 = 'Gtk2::MenuItem'->new(q[Removable Drives and Media]);
    $removable131->show;
    $removable131->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/thunar-volman/thunar-volman-settings];
        });}
    );
    $all_apps->append($removable131);
    $screensaver122 = 'Gtk2::MenuItem'->new(q[Screensaver]);
    $screensaver122->show;
    $screensaver122->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xscreensaver-demo];
        });}
    );
    $all_apps->append($screensaver122);
    $software120 = 'Gtk2::MenuItem'->new(q[Software Sources]);
    $software120->show;
    $software120->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[su-to-root -X -c /usr/bin/software-properties-gtk];
        });}
    );
    $all_apps->append($software120);
    $sound144 = 'Gtk2::MenuItem'->new(q[Sound]);
    $sound144->show;
    $sound144->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-volume-control];
        });}
    );
    $all_apps->append($sound144);
    $startup124 = 'Gtk2::MenuItem'->new(q[Startup Applications]);
    $startup124->show;
    $startup124->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-session-properties];
        });}
    );
    $all_apps->append($startup124);
    $sun117 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Policy Tool]);
    $sun117->show;
    $sun117->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/policytool];
        });}
    );
    $all_apps->append($sun117);
    $sun142 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Plugin Control Panel]);
    $sun142->show;
    $sun142->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/ControlPanel];
        });}
    );
    $all_apps->append($sun142);
    $synaptic127 = 'Gtk2::MenuItem'->new(q[Synaptic Package Manager]);
    $synaptic127->show;
    $synaptic127->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[su-to-root -X -c /usr/sbin/synaptic];
        });}
    );
    $all_apps->append($synaptic127);
    $windows137 = 'Gtk2::MenuItem'->new(q[Windows]);
    $windows137->show;
    $windows137->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-window-properties];
        });}
    );
    $all_apps->append($windows137);
    $xfce134 = 'Gtk2::MenuItem'->new(q[Xfce 4 Power Manager]);
    $xfce134->show;
    $xfce134->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xfce4-power-manager-settings];
        });}
    );
    $all_apps->append($xfce134);
    $category9->set_submenu($all_apps);
    $menu->append($category9);

				# # # # # # # # # # # # # # # # # # # # System # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category10 = 'Gtk2::MenuItem'->new(q[System]);
    $bleachbit152 = 'Gtk2::MenuItem'->new(q[BleachBit]);
    $bleachbit152->show;
    $bleachbit152->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[bleachbit];
        });}
    );
    $all_apps->append($bleachbit152);
    $bleachbit153 = 'Gtk2::MenuItem'->new(q[BleachBit (as root)]);
    $bleachbit153->show;
    $bleachbit153->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[su-to-root -X -c bleachbit];
        });}
    );
    $all_apps->append($bleachbit153);
    $bulk160 = 'Gtk2::MenuItem'->new(q[Bulk Rename]);
    $bulk160->show;
    $bulk160->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[/usr/lib/thunar/ThunarBulkRename];
        });}
    );
    $all_apps->append($bulk160);
    $cairo151 = 'Gtk2::MenuItem'->new(q[Cairo Composite Manager]);
    $cairo151->show;
    $cairo151->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[cairo-compmgr];
        });}
    );
    $all_apps->append($cairo151);
    $cd158 = 'Gtk2::MenuItem'->new(q[CD/DVD Creator]);
    $cd158->show;
    $cd158->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-default-window --no-desktop burn:/// ];
        });}
    );
    $all_apps->append($cd158);
    $file149 = 'Gtk2::MenuItem'->new(q[File Browser]);
    $file149->show;
    $file149->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[nautilus --no-desktop --browser];
        });}
    );
    $all_apps->append($file149);
    $gdebi150 = 'Gtk2::MenuItem'->new(q[GDebi Package Installer]);
    $gdebi150->show;
    $gdebi150->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gdebi-gtk];
        });}
    );
    $all_apps->append($gdebi150);
    $htop161 = 'Gtk2::MenuItem'->new(q[Htop]);
    $htop161->show;
    $htop161->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e htop];
        });}
    );
    $all_apps->append($htop161);
    $manage155 = 'Gtk2::MenuItem'->new(q[Manage Print Jobs]);
    $manage155->show;
    $manage155->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[system-config-printer-applet --no-tray-icon];
        });}
    );
    $all_apps->append($manage155);
    $open154 = 'Gtk2::MenuItem'->new(q[Open Folder with Thunar]);
    $open154->show;
    $open154->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[Thunar];
        });}
    );
    $all_apps->append($open154);
    $power157 = 'Gtk2::MenuItem'->new(q[Power Statistics]);
    $power157->show;
    $power157->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-power-statistics];
        });}
    );
    $all_apps->append($power157);
    $synaptic156 = 'Gtk2::MenuItem'->new(q[Synaptic Package Manager]);
    $synaptic156->show;
    $synaptic156->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[synaptic];
        });}
    );
    $all_apps->append($synaptic156);
    $system159 = 'Gtk2::MenuItem'->new(q[System Monitor]);
    $system159->show;
    $system159->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[gnome-system-monitor];
        });}
    );
    $all_apps->append($system159);
    $thunar148 = 'Gtk2::MenuItem'->new(q[Thunar File Manager]);
    $thunar148->show;
    $thunar148->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[Thunar];
        });}
    );
    $all_apps->append($thunar148);
    $category10->set_submenu($all_apps);
    $menu->append($category10);

				# # # # # # # # # # # # # # # # # # # # Menutray # # # # # # # # # # # # # # # # # # # #

    $all_apps = 'Gtk2::Menu'->new->new;
    $category11 = 'Gtk2::MenuItem'->new(q[Menutray]);
    $edit164 = 'Gtk2::MenuItem'->new(q[Edit menutray menu]);
    $edit164->show;
    $edit164->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e nano /home/hangar/.config/menutray/menutray.pl];
        });}
    );
    $all_apps->append($edit164);
    $edit165 = 'Gtk2::MenuItem'->new(q[Edit menutray schema]);
    $edit165->show;
    $edit165->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e nano /home/hangar/.config/menutray/menutray.schema];
        });}
    );
    $all_apps->append($edit165);
    $edit166 = 'Gtk2::MenuItem'->new(q[Edit menutray configuration]);
    $edit166->show;
    $edit166->signal_connect('activate', sub {
        'threads'->create(sub {
            system q[xterm -e nano /home/hangar/.config/menutray/menutray.conf];
        });}
    );
    $all_apps->append($edit166);
    $category11->set_submenu($all_apps);
    $menu->append($category11);
    $separator = Gtk2::SeparatorMenuItem->new;
    $menu->append($separator);
    $item169 = 'Gtk2::MenuItem'->new(q[Regenerate]);
    $item169->show;
    $item169->signal_connect('activate', sub { `menutray -g`;
        'threads'->exit;
    });
    $menu->append($item169);
    $quit = 'Gtk2::MenuItem'->new('Quit');
    $quit->show;
    $quit->signal_connect('activate', sub { 'threads'->exit; exit; });

    $menu->append($quit);
    $menu->show_all;
    $menu->popup(undef, undef, sub {
        return Gtk2::StatusIcon::position_menu($menu, 0, 0, $icon);
    }
    , [1, 1], 0, 0);
}
'Gtk2'->main;