Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement