Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Aug 4th, 2011  |  syntax: None  |  size: 37.52 KB  |  views: 63  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. #!/usr/bin/perl
  2.  
  3. use Gtk2 ('-init');
  4. use threads ('yield', 'stack_size', 262144, 'exit', 'threads_only', 'stringify');
  5.  
  6. $icon = 'Gtk2::StatusIcon'->new;
  7. $icon->set_from_stock('gtk-home');
  8. $icon->set_visible(1);
  9. $icon->signal_connect('button-release-event', sub {
  10.     show_icon_menu();
  11. });
  12. $icon->set_tooltip('Click for menu...');
  13.  
  14. sub show_icon_menu {
  15.     $menu = 'Gtk2::Menu'->new;
  16.  
  17.     $item15 = 'Gtk2::MenuItem'->new(q[File Manager]);
  18.     $item15->show;
  19.     $item15->signal_connect('activate', sub {
  20.         'threads'->create(sub {
  21.             system q[thunar];
  22.         });}
  23.     );
  24.     $menu->append($item15);
  25.     $item16 = 'Gtk2::MenuItem'->new(q[Terminal]);
  26.     $item16->show;
  27.     $item16->signal_connect('activate', sub {
  28.         'threads'->create(sub {
  29.             system q[xterm];
  30.         });}
  31.     );
  32.     $menu->append($item16);
  33.     $item17 = 'Gtk2::MenuItem'->new(q[Web Browser]);
  34.     $item17->show;
  35.     $item17->signal_connect('activate', sub {
  36.         'threads'->create(sub {
  37.             system q[firefox];
  38.         });}
  39.     );
  40.     $menu->append($item17);
  41.     $item18 = 'Gtk2::MenuItem'->new(q[Text Editor]);
  42.     $item18->show;
  43.     $item18->signal_connect('activate', sub {
  44.         'threads'->create(sub {
  45.             system q[xterm -e nano];
  46.         });}
  47.     );
  48.     $menu->append($item18);
  49.     $separator = Gtk2::SeparatorMenuItem->new;
  50.     $menu->append($separator);
  51.  
  52.                                 # # # # # # # # # # # # # # # # # # # # Accessories # # # # # # # # # # # # # # # # # # # #
  53.  
  54.     $all_apps = 'Gtk2::Menu'->new->new;
  55.     $category0 = 'Gtk2::MenuItem'->new(q[Accessories]);
  56.     $about32 = 'Gtk2::MenuItem'->new(q[About GNOME]);
  57.     $about32->show;
  58.     $about32->signal_connect('activate', sub {
  59.         'threads'->create(sub {
  60.             system q[gnome-about];
  61.         });}
  62.     );
  63.     $all_apps->append($about32);
  64.     $archive26 = 'Gtk2::MenuItem'->new(q[Archive Manager]);
  65.     $archive26->show;
  66.     $archive26->signal_connect('activate', sub {
  67.         'threads'->create(sub {
  68.             system q[file-roller];
  69.         });}
  70.     );
  71.     $all_apps->append($archive26);
  72.     $calculator27 = 'Gtk2::MenuItem'->new(q[Calculator]);
  73.     $calculator27->show;
  74.     $calculator27->signal_connect('activate', sub {
  75.         'threads'->create(sub {
  76.             system q[gcalctool];
  77.         });}
  78.     );
  79.     $all_apps->append($calculator27);
  80.     $catfish31 = 'Gtk2::MenuItem'->new(q[Catfish]);
  81.     $catfish31->show;
  82.     $catfish31->signal_connect('activate', sub {
  83.         'threads'->create(sub {
  84.             system q[catfish];
  85.         });}
  86.     );
  87.     $all_apps->append($catfish31);
  88.     $file23 = 'Gtk2::MenuItem'->new(q[File Manager]);
  89.     $file23->show;
  90.     $file23->signal_connect('activate', sub {
  91.         'threads'->create(sub {
  92.             system q[pcmanfm];
  93.         });}
  94.     );
  95.     $all_apps->append($file23);
  96.     $gedit29 = 'Gtk2::MenuItem'->new(q[gedit]);
  97.     $gedit29->show;
  98.     $gedit29->signal_connect('activate', sub {
  99.         'threads'->create(sub {
  100.             system q[gedit];
  101.         });}
  102.     );
  103.     $all_apps->append($gedit29);
  104.     $kupfer30 = 'Gtk2::MenuItem'->new(q[Kupfer]);
  105.     $kupfer30->show;
  106.     $kupfer30->signal_connect('activate', sub {
  107.         'threads'->create(sub {
  108.             system q[kupfer];
  109.         });}
  110.     );
  111.     $all_apps->append($kupfer30);
  112.     $panel24 = 'Gtk2::MenuItem'->new(q[Panel]);
  113.     $panel24->show;
  114.     $panel24->signal_connect('activate', sub {
  115.         'threads'->create(sub {
  116.             system q[gnome-panel];
  117.         });}
  118.     );
  119.     $all_apps->append($panel24);
  120.     $root25 = 'Gtk2::MenuItem'->new(q[Root Terminal]);
  121.     $root25->show;
  122.     $root25->signal_connect('activate', sub {
  123.         'threads'->create(sub {
  124.             system q[gksu /usr/bin/x-terminal-emulator];
  125.         });}
  126.     );
  127.     $all_apps->append($root25);
  128.     $terminator28 = 'Gtk2::MenuItem'->new(q[Terminator]);
  129.     $terminator28->show;
  130.     $terminator28->signal_connect('activate', sub {
  131.         'threads'->create(sub {
  132.             system q[terminator];
  133.         });}
  134.     );
  135.     $all_apps->append($terminator28);
  136.     $tilda22 = 'Gtk2::MenuItem'->new(q[Tilda]);
  137.     $tilda22->show;
  138.     $tilda22->signal_connect('activate', sub {
  139.         'threads'->create(sub {
  140.             system q[tilda];
  141.         });}
  142.     );
  143.     $all_apps->append($tilda22);
  144.     $category0->set_submenu($all_apps);
  145.     $menu->append($category0);
  146.  
  147.                                 # # # # # # # # # # # # # # # # # # # # Development # # # # # # # # # # # # # # # # # # # #
  148.  
  149.     $all_apps = 'Gtk2::Menu'->new->new;
  150.     $category1 = 'Gtk2::MenuItem'->new(q[Development]);
  151.     $python35 = 'Gtk2::MenuItem'->new(q[Python (v2.6)]);
  152.     $python35->show;
  153.     $python35->signal_connect('activate', sub {
  154.         'threads'->create(sub {
  155.             system q[xterm -e /usr/bin/python2.6];
  156.         });}
  157.     );
  158.     $all_apps->append($python35);
  159.     $python36 = 'Gtk2::MenuItem'->new(q[Python (v2.5)]);
  160.     $python36->show;
  161.     $python36->signal_connect('activate', sub {
  162.         'threads'->create(sub {
  163.             system q[xterm -e /usr/bin/python2.5];
  164.         });}
  165.     );
  166.     $all_apps->append($python36);
  167.     $category1->set_submenu($all_apps);
  168.     $menu->append($category1);
  169.  
  170.                                 # # # # # # # # # # # # # # # # # # # # Graphics # # # # # # # # # # # # # # # # # # # #
  171.  
  172.     $all_apps = 'Gtk2::Menu'->new->new;
  173.     $category4 = 'Gtk2::MenuItem'->new(q[Graphics]);
  174.     $document41 = 'Gtk2::MenuItem'->new(q[Document Viewer]);
  175.     $document41->show;
  176.     $document41->signal_connect('activate', sub {
  177.         'threads'->create(sub {
  178.             system q[evince];
  179.         });}
  180.     );
  181.     $all_apps->append($document41);
  182.     $gcolor243 = 'Gtk2::MenuItem'->new(q[Gcolor2]);
  183.     $gcolor243->show;
  184.     $gcolor243->signal_connect('activate', sub {
  185.         'threads'->create(sub {
  186.             system q[gcolor2];
  187.         });}
  188.     );
  189.     $all_apps->append($gcolor243);
  190.     $gnu44 = 'Gtk2::MenuItem'->new(q[GNU Image Manipulation Program]);
  191.     $gnu44->show;
  192.     $gnu44->signal_connect('activate', sub {
  193.         'threads'->create(sub {
  194.             system q[gimp-2.6];
  195.         });}
  196.     );
  197.     $all_apps->append($gnu44);
  198.     $inkscape42 = 'Gtk2::MenuItem'->new(q[Inkscape]);
  199.     $inkscape42->show;
  200.     $inkscape42->signal_connect('activate', sub {
  201.         'threads'->create(sub {
  202.             system q[inkscape];
  203.         });}
  204.     );
  205.     $all_apps->append($inkscape42);
  206.     $libreoffice45 = 'Gtk2::MenuItem'->new(q[LibreOffice Draw]);
  207.     $libreoffice45->show;
  208.     $libreoffice45->signal_connect('activate', sub {
  209.         'threads'->create(sub {
  210.             system q[libreoffice -draw];
  211.         });}
  212.     );
  213.     $all_apps->append($libreoffice45);
  214.     $mirage47 = 'Gtk2::MenuItem'->new(q[Mirage]);
  215.     $mirage47->show;
  216.     $mirage47->signal_connect('activate', sub {
  217.         'threads'->create(sub {
  218.             system q[mirage];
  219.         });}
  220.     );
  221.     $all_apps->append($mirage47);
  222.     $viewnior46 = 'Gtk2::MenuItem'->new(q[Viewnior]);
  223.     $viewnior46->show;
  224.     $viewnior46->signal_connect('activate', sub {
  225.         'threads'->create(sub {
  226.             system q[viewnior];
  227.         });}
  228.     );
  229.     $all_apps->append($viewnior46);
  230.     $category4->set_submenu($all_apps);
  231.     $menu->append($category4);
  232.  
  233.                                 # # # # # # # # # # # # # # # # # # # # Multimedia # # # # # # # # # # # # # # # # # # # #
  234.  
  235.     $all_apps = 'Gtk2::Menu'->new->new;
  236.     $category5 = 'Gtk2::MenuItem'->new(q[Multimedia]);
  237.     $brasero52 = 'Gtk2::MenuItem'->new(q[Brasero]);
  238.     $brasero52->show;
  239.     $brasero52->signal_connect('activate', sub {
  240.         'threads'->create(sub {
  241.             system q[brasero];
  242.         });}
  243.     );
  244.     $all_apps->append($brasero52);
  245.     $mixer55 = 'Gtk2::MenuItem'->new(q[Mixer]);
  246.     $mixer55->show;
  247.     $mixer55->signal_connect('activate', sub {
  248.         'threads'->create(sub {
  249.             system q[xfce4-mixer];
  250.         });}
  251.     );
  252.     $all_apps->append($mixer55);
  253.     $outrec50 = 'Gtk2::MenuItem'->new(q[outRec]);
  254.     $outrec50->show;
  255.     $outrec50->signal_connect('activate', sub {
  256.         'threads'->create(sub {
  257.             system q[/usr/bin/outrec.gambas];
  258.         });}
  259.     );
  260.     $all_apps->append($outrec50);
  261.     $sound54 = 'Gtk2::MenuItem'->new(q[Sound Recorder]);
  262.     $sound54->show;
  263.     $sound54->signal_connect('activate', sub {
  264.         'threads'->create(sub {
  265.             system q[gnome-sound-recorder];
  266.         });}
  267.     );
  268.     $all_apps->append($sound54);
  269.     $vlc51 = 'Gtk2::MenuItem'->new(q[VLC media player]);
  270.     $vlc51->show;
  271.     $vlc51->signal_connect('activate', sub {
  272.         'threads'->create(sub {
  273.             system q[vlc];
  274.         });}
  275.     );
  276.     $all_apps->append($vlc51);
  277.     $xfburn53 = 'Gtk2::MenuItem'->new(q[Xfburn]);
  278.     $xfburn53->show;
  279.     $xfburn53->signal_connect('activate', sub {
  280.         'threads'->create(sub {
  281.             system q[xfburn];
  282.         });}
  283.     );
  284.     $all_apps->append($xfburn53);
  285.     $category5->set_submenu($all_apps);
  286.     $menu->append($category5);
  287.  
  288.                                 # # # # # # # # # # # # # # # # # # # # Network # # # # # # # # # # # # # # # # # # # #
  289.  
  290.     $all_apps = 'Gtk2::Menu'->new->new;
  291.     $category6 = 'Gtk2::MenuItem'->new(q[Network]);
  292.     $bluetooth65 = 'Gtk2::MenuItem'->new(q[Bluetooth]);
  293.     $bluetooth65->show;
  294.     $bluetooth65->signal_connect('activate', sub {
  295.         'threads'->create(sub {
  296.             system q[bluetooth-properties];
  297.         });}
  298.     );
  299.     $all_apps->append($bluetooth65);
  300.     $gftp66 = 'Gtk2::MenuItem'->new(q[gFTP]);
  301.     $gftp66->show;
  302.     $gftp66->signal_connect('activate', sub {
  303.         'threads'->create(sub {
  304.             system q[gftp];
  305.         });}
  306.     );
  307.     $all_apps->append($gftp66);
  308.     $google58 = 'Gtk2::MenuItem'->new(q[Google Chrome]);
  309.     $google58->show;
  310.     $google58->signal_connect('activate', sub {
  311.         'threads'->create(sub {
  312.             system q[/opt/google/chrome/google-chrome];
  313.         });}
  314.     );
  315.     $all_apps->append($google58);
  316.     $heybuddy62 = 'Gtk2::MenuItem'->new(q[Heybuddy - Identi.ca client]);
  317.     $heybuddy62->show;
  318.     $heybuddy62->signal_connect('activate', sub {
  319.         'threads'->create(sub {
  320.             system q[heybuddy];
  321.         });}
  322.     );
  323.     $all_apps->append($heybuddy62);
  324.     $iceweasel63 = 'Gtk2::MenuItem'->new(q[Iceweasel]);
  325.     $iceweasel63->show;
  326.     $iceweasel63->signal_connect('activate', sub {
  327.         'threads'->create(sub {
  328.             system q[iceweasel];
  329.         });}
  330.     );
  331.     $all_apps->append($iceweasel63);
  332.     $network60 = 'Gtk2::MenuItem'->new(q[Network Proxy]);
  333.     $network60->show;
  334.     $network60->signal_connect('activate', sub {
  335.         'threads'->create(sub {
  336.             system q[gnome-network-properties];
  337.         });}
  338.     );
  339.     $all_apps->append($network60);
  340.     $network67 = 'Gtk2::MenuItem'->new(q[Network Connections]);
  341.     $network67->show;
  342.     $network67->signal_connect('activate', sub {
  343.         'threads'->create(sub {
  344.             system q[nm-connection-editor];
  345.         });}
  346.     );
  347.     $all_apps->append($network67);
  348.     $sun59 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Web Start]);
  349.     $sun59->show;
  350.     $sun59->signal_connect('activate', sub {
  351.         'threads'->create(sub {
  352.             system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/javaws];
  353.         });}
  354.     );
  355.     $all_apps->append($sun59);
  356.     $transmission61 = 'Gtk2::MenuItem'->new(q[Transmission]);
  357.     $transmission61->show;
  358.     $transmission61->signal_connect('activate', sub {
  359.         'threads'->create(sub {
  360.             system q[transmission];
  361.         });}
  362.     );
  363.     $all_apps->append($transmission61);
  364.     $xchat64 = 'Gtk2::MenuItem'->new(q[XChat IRC]);
  365.     $xchat64->show;
  366.     $xchat64->signal_connect('activate', sub {
  367.         'threads'->create(sub {
  368.             system q[xchat];
  369.         });}
  370.     );
  371.     $all_apps->append($xchat64);
  372.     $category6->set_submenu($all_apps);
  373.     $menu->append($category6);
  374.  
  375.                                 # # # # # # # # # # # # # # # # # # # # Office # # # # # # # # # # # # # # # # # # # #
  376.  
  377.     $all_apps = 'Gtk2::Menu'->new->new;
  378.     $category7 = 'Gtk2::MenuItem'->new(q[Office]);
  379.     $dictionary75 = 'Gtk2::MenuItem'->new(q[Dictionary]);
  380.     $dictionary75->show;
  381.     $dictionary75->signal_connect('activate', sub {
  382.         'threads'->create(sub {
  383.             system q[gnome-dictionary];
  384.         });}
  385.     );
  386.     $all_apps->append($dictionary75);
  387.     $gnumeric71 = 'Gtk2::MenuItem'->new(q[Gnumeric]);
  388.     $gnumeric71->show;
  389.     $gnumeric71->signal_connect('activate', sub {
  390.         'threads'->create(sub {
  391.             system q[gnumeric];
  392.         });}
  393.     );
  394.     $all_apps->append($gnumeric71);
  395.     $libreoffice70 = 'Gtk2::MenuItem'->new(q[LibreOffice Math]);
  396.     $libreoffice70->show;
  397.     $libreoffice70->signal_connect('activate', sub {
  398.         'threads'->create(sub {
  399.             system q[libreoffice -math];
  400.         });}
  401.     );
  402.     $all_apps->append($libreoffice70);
  403.     $libreoffice72 = 'Gtk2::MenuItem'->new(q[LibreOffice Calc]);
  404.     $libreoffice72->show;
  405.     $libreoffice72->signal_connect('activate', sub {
  406.         'threads'->create(sub {
  407.             system q[libreoffice -calc];
  408.         });}
  409.     );
  410.     $all_apps->append($libreoffice72);
  411.     $libreoffice73 = 'Gtk2::MenuItem'->new(q[LibreOffice Base]);
  412.     $libreoffice73->show;
  413.     $libreoffice73->signal_connect('activate', sub {
  414.         'threads'->create(sub {
  415.             system q[libreoffice -base];
  416.         });}
  417.     );
  418.     $all_apps->append($libreoffice73);
  419.     $libreoffice74 = 'Gtk2::MenuItem'->new(q[LibreOffice Impress]);
  420.     $libreoffice74->show;
  421.     $libreoffice74->signal_connect('activate', sub {
  422.         'threads'->create(sub {
  423.             system q[libreoffice -impress];
  424.         });}
  425.     );
  426.     $all_apps->append($libreoffice74);
  427.     $libreoffice76 = 'Gtk2::MenuItem'->new(q[LibreOffice Writer]);
  428.     $libreoffice76->show;
  429.     $libreoffice76->signal_connect('activate', sub {
  430.         'threads'->create(sub {
  431.             system q[libreoffice -writer];
  432.         });}
  433.     );
  434.     $all_apps->append($libreoffice76);
  435.     $libreoffice77 = 'Gtk2::MenuItem'->new(q[LibreOffice ]);
  436.     $libreoffice77->show;
  437.     $libreoffice77->signal_connect('activate', sub {
  438.         'threads'->create(sub {
  439.             system q[libreoffice];
  440.         });}
  441.     );
  442.     $all_apps->append($libreoffice77);
  443.     $category7->set_submenu($all_apps);
  444.     $menu->append($category7);
  445.  
  446.                                 # # # # # # # # # # # # # # # # # # # # Others # # # # # # # # # # # # # # # # # # # #
  447.  
  448.     $all_apps = 'Gtk2::Menu'->new->new;
  449.     $category8 = 'Gtk2::MenuItem'->new(q[Others]);
  450.     $abstractile93 = 'Gtk2::MenuItem'->new(q[Abstractile]);
  451.     $abstractile93->show;
  452.     $abstractile93->signal_connect('activate', sub {
  453.         'threads'->create(sub {
  454.             system q[/usr/lib/xscreensaver/abstractile -root];
  455.         });}
  456.     );
  457.     $all_apps->append($abstractile93);
  458.     $autorun101 = 'Gtk2::MenuItem'->new(q[Autorun Prompt]);
  459.     $autorun101->show;
  460.     $autorun101->signal_connect('activate', sub {
  461.         'threads'->create(sub {
  462.             system q[nautilus-autorun-software];
  463.         });}
  464.     );
  465.     $all_apps->append($autorun101);
  466.     $brasero80 = 'Gtk2::MenuItem'->new(q[Brasero]);
  467.     $brasero80->show;
  468.     $brasero80->signal_connect('activate', sub {
  469.         'threads'->create(sub {
  470.             system q[brasero -c];
  471.         });}
  472.     );
  473.     $all_apps->append($brasero80);
  474.     $computer97 = 'Gtk2::MenuItem'->new(q[Computer]);
  475.     $computer97->show;
  476.     $computer97->signal_connect('activate', sub {
  477.         'threads'->create(sub {
  478.             system q[nautilus --no-desktop computer:];
  479.         });}
  480.     );
  481.     $all_apps->append($computer97);
  482.     $cwaves109 = 'Gtk2::MenuItem'->new(q[CWaves]);
  483.     $cwaves109->show;
  484.     $cwaves109->signal_connect('activate', sub {
  485.         'threads'->create(sub {
  486.             system q[/usr/lib/xscreensaver/cwaves -root];
  487.         });}
  488.     );
  489.     $all_apps->append($cwaves109);
  490.     $deco107 = 'Gtk2::MenuItem'->new(q[Deco]);
  491.     $deco107->show;
  492.     $deco107->signal_connect('activate', sub {
  493.         'threads'->create(sub {
  494.             system q[/usr/lib/xscreensaver/deco -root];
  495.         });}
  496.     );
  497.     $all_apps->append($deco107);
  498.     $distort106 = 'Gtk2::MenuItem'->new(q[Distort]);
  499.     $distort106->show;
  500.     $distort106->signal_connect('activate', sub {
  501.         'threads'->create(sub {
  502.             system q[/usr/lib/xscreensaver/distort -root];
  503.         });}
  504.     );
  505.     $all_apps->append($distort106);
  506.     $execute103 = 'Gtk2::MenuItem'->new(q[Execute in Kupfer]);
  507.     $execute103->show;
  508.     $execute103->signal_connect('activate', sub {
  509.         'threads'->create(sub {
  510.             system q[kupfer-exec];
  511.         });}
  512.     );
  513.     $all_apps->append($execute103);
  514.     $fiberlamp99 = 'Gtk2::MenuItem'->new(q[Fiberlamp]);
  515.     $fiberlamp99->show;
  516.     $fiberlamp99->signal_connect('activate', sub {
  517.         'threads'->create(sub {
  518.             system q[/usr/lib/xscreensaver/fiberlamp -root];
  519.         });}
  520.     );
  521.     $all_apps->append($fiberlamp99);
  522.     $file94 = 'Gtk2::MenuItem'->new(q[File Manager]);
  523.     $file94->show;
  524.     $file94->signal_connect('activate', sub {
  525.         'threads'->create(sub {
  526.             system q[nautilus];
  527.         });}
  528.     );
  529.     $all_apps->append($file94);
  530.     $font111 = 'Gtk2::MenuItem'->new(q[Font Viewer]);
  531.     $font111->show;
  532.     $font111->signal_connect('activate', sub {
  533.         'threads'->create(sub {
  534.             system q[gnome-font-viewer];
  535.         });}
  536.     );
  537.     $all_apps->append($font111);
  538.     $fuzzyflakes82 = 'Gtk2::MenuItem'->new(q[FuzzyFlakes]);
  539.     $fuzzyflakes82->show;
  540.     $fuzzyflakes82->signal_connect('activate', sub {
  541.         'threads'->create(sub {
  542.             system q[/usr/lib/xscreensaver/fuzzyflakes -root];
  543.         });}
  544.     );
  545.     $all_apps->append($fuzzyflakes82);
  546.     $galaxy81 = 'Gtk2::MenuItem'->new(q[Galaxy]);
  547.     $galaxy81->show;
  548.     $galaxy81->signal_connect('activate', sub {
  549.         'threads'->create(sub {
  550.             system q[/usr/lib/xscreensaver/galaxy -root];
  551.         });}
  552.     );
  553.     $all_apps->append($galaxy81);
  554.     $help110 = 'Gtk2::MenuItem'->new(q[Help]);
  555.     $help110->show;
  556.     $help110->signal_connect('activate', sub {
  557.         'threads'->create(sub {
  558.             system q[yelp];
  559.         });}
  560.     );
  561.     $all_apps->append($help110);
  562.     $home83 = 'Gtk2::MenuItem'->new(q[Home Folder]);
  563.     $home83->show;
  564.     $home83->signal_connect('activate', sub {
  565.         'threads'->create(sub {
  566.             system q[nautilus --no-desktop];
  567.         });}
  568.     );
  569.     $all_apps->append($home83);
  570.     $libreoffice84 = 'Gtk2::MenuItem'->new(q[LibreOffice Small Device Format Importer]);
  571.     $libreoffice84->show;
  572.     $libreoffice84->signal_connect('activate', sub {
  573.         'threads'->create(sub {
  574.             system q[libreoffice -writer];
  575.         });}
  576.     );
  577.     $all_apps->append($libreoffice84);
  578.     $m650290 = 'Gtk2::MenuItem'->new(q[m6502]);
  579.     $m650290->show;
  580.     $m650290->signal_connect('activate', sub {
  581.         'threads'->create(sub {
  582.             system q[/usr/lib/xscreensaver/m6502 -root];
  583.         });}
  584.     );
  585.     $all_apps->append($m650290);
  586.     $menu95 = 'Gtk2::MenuItem'->new(q[Menu Editor]);
  587.     $menu95->show;
  588.     $menu95->signal_connect('activate', sub {
  589.         'threads'->create(sub {
  590.             system q[gmenu-simple-editor];
  591.         });}
  592.     );
  593.     $all_apps->append($menu95);
  594.     $metaballs89 = 'Gtk2::MenuItem'->new(q[MetaBalls]);
  595.     $metaballs89->show;
  596.     $metaballs89->signal_connect('activate', sub {
  597.         'threads'->create(sub {
  598.             system q[/usr/lib/xscreensaver/metaballs -root];
  599.         });}
  600.     );
  601.     $all_apps->append($metaballs89);
  602.     $metacity108 = 'Gtk2::MenuItem'->new(q[Metacity]);
  603.     $metacity108->show;
  604.     $metacity108->signal_connect('activate', sub {
  605.         'threads'->create(sub {
  606.             system q[metacity];
  607.         });}
  608.     );
  609.     $all_apps->append($metacity108);
  610.     $network91 = 'Gtk2::MenuItem'->new(q[Network]);
  611.     $network91->show;
  612.     $network91->signal_connect('activate', sub {
  613.         'threads'->create(sub {
  614.             system q[nautilus --no-desktop network:];
  615.         });}
  616.     );
  617.     $all_apps->append($network91);
  618.     $open88 = 'Gtk2::MenuItem'->new(q[Open Folder]);
  619.     $open88->show;
  620.     $open88->signal_connect('activate', sub {
  621.         'threads'->create(sub {
  622.             system q[nautilus --no-desktop];
  623.         });}
  624.     );
  625.     $all_apps->append($open88);
  626.     $openbox85 = 'Gtk2::MenuItem'->new(q[Openbox Session]);
  627.     $openbox85->show;
  628.     $openbox85->signal_connect('activate', sub {
  629.         'threads'->create(sub {
  630.             system q[openbox-session];
  631.         });}
  632.     );
  633.     $all_apps->append($openbox85);
  634.     $penrose96 = 'Gtk2::MenuItem'->new(q[Penrose]);
  635.     $penrose96->show;
  636.     $penrose96->signal_connect('activate', sub {
  637.         'threads'->create(sub {
  638.             system q[/usr/lib/xscreensaver/penrose -root];
  639.         });}
  640.     );
  641.     $all_apps->append($penrose96);
  642.     $ripples102 = 'Gtk2::MenuItem'->new(q[Ripples]);
  643.     $ripples102->show;
  644.     $ripples102->signal_connect('activate', sub {
  645.         'threads'->create(sub {
  646.             system q[/usr/lib/xscreensaver/ripples -root];
  647.         });}
  648.     );
  649.     $all_apps->append($ripples102);
  650.     $shadebobs105 = 'Gtk2::MenuItem'->new(q[ShadeBobs]);
  651.     $shadebobs105->show;
  652.     $shadebobs105->signal_connect('activate', sub {
  653.         'threads'->create(sub {
  654.             system q[/usr/lib/xscreensaver/shadebobs -root];
  655.         });}
  656.     );
  657.     $all_apps->append($shadebobs105);
  658.     $slidescreen87 = 'Gtk2::MenuItem'->new(q[SlideScreen]);
  659.     $slidescreen87->show;
  660.     $slidescreen87->signal_connect('activate', sub {
  661.         'threads'->create(sub {
  662.             system q[/usr/lib/xscreensaver/slidescreen -root];
  663.         });}
  664.     );
  665.     $all_apps->append($slidescreen87);
  666.     $sun92 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Runtime]);
  667.     $sun92->show;
  668.     $sun92->signal_connect('activate', sub {
  669.         'threads'->create(sub {
  670.             system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/java -jar];
  671.         });}
  672.     );
  673.     $all_apps->append($sun92);
  674.     $swirl86 = 'Gtk2::MenuItem'->new(q[Swirl]);
  675.     $swirl86->show;
  676.     $swirl86->signal_connect('activate', sub {
  677.         'threads'->create(sub {
  678.             system q[/usr/lib/xscreensaver/swirl -root];
  679.         });}
  680.     );
  681.     $all_apps->append($swirl86);
  682.     $theme104 = 'Gtk2::MenuItem'->new(q[Theme Installer]);
  683.     $theme104->show;
  684.     $theme104->signal_connect('activate', sub {
  685.         'threads'->create(sub {
  686.             system q[gnome-appearance-properties -i];
  687.         });}
  688.     );
  689.     $all_apps->append($theme104);
  690.     $window100 = 'Gtk2::MenuItem'->new(q[Window Manager]);
  691.     $window100->show;
  692.     $window100->signal_connect('activate', sub {
  693.         'threads'->create(sub {
  694.             system q[gnome-wm];
  695.         });}
  696.     );
  697.     $all_apps->append($window100);
  698.     $xlyap98 = 'Gtk2::MenuItem'->new(q[XLyap]);
  699.     $xlyap98->show;
  700.     $xlyap98->signal_connect('activate', sub {
  701.         'threads'->create(sub {
  702.             system q[/usr/lib/xscreensaver/xlyap -root];
  703.         });}
  704.     );
  705.     $all_apps->append($xlyap98);
  706.     $category8->set_submenu($all_apps);
  707.     $menu->append($category8);
  708.  
  709.                                 # # # # # # # # # # # # # # # # # # # # Settings # # # # # # # # # # # # # # # # # # # #
  710.  
  711.     $all_apps = 'Gtk2::Menu'->new->new;
  712.     $category9 = 'Gtk2::MenuItem'->new(q[Settings]);
  713.     $about126 = 'Gtk2::MenuItem'->new(q[About Me]);
  714.     $about126->show;
  715.     $about126->signal_connect('activate', sub {
  716.         'threads'->create(sub {
  717.             system q[gnome-about-me];
  718.         });}
  719.     );
  720.     $all_apps->append($about126);
  721.     $appearance140 = 'Gtk2::MenuItem'->new(q[Appearance]);
  722.     $appearance140->show;
  723.     $appearance140->signal_connect('activate', sub {
  724.         'threads'->create(sub {
  725.             system q[lxappearance];
  726.         });}
  727.     );
  728.     $all_apps->append($appearance140);
  729.     $assistive116 = 'Gtk2::MenuItem'->new(q[Assistive Technologies]);
  730.     $assistive116->show;
  731.     $assistive116->signal_connect('activate', sub {
  732.         'threads'->create(sub {
  733.             system q[gnome-at-properties];
  734.         });}
  735.     );
  736.     $all_apps->append($assistive116);
  737.     $control139 = 'Gtk2::MenuItem'->new(q[Control Center]);
  738.     $control139->show;
  739.     $control139->signal_connect('activate', sub {
  740.         'threads'->create(sub {
  741.             system q[gnome-control-center];
  742.         });}
  743.     );
  744.     $all_apps->append($control139);
  745.     $disk135 = 'Gtk2::MenuItem'->new(q[Disk Manager]);
  746.     $disk135->show;
  747.     $disk135->signal_connect('activate', sub {
  748.         'threads'->create(sub {
  749.             system q[/usr/sbin/disk-manager-root];
  750.         });}
  751.     );
  752.     $all_apps->append($disk135);
  753.     $file118 = 'Gtk2::MenuItem'->new(q[File Manager]);
  754.     $file118->show;
  755.     $file118->signal_connect('activate', sub {
  756.         'threads'->create(sub {
  757.             system q[thunar-settings];
  758.         });}
  759.     );
  760.     $all_apps->append($file118);
  761.     $file141 = 'Gtk2::MenuItem'->new(q[File Management]);
  762.     $file141->show;
  763.     $file141->signal_connect('activate', sub {
  764.         'threads'->create(sub {
  765.             system q[nautilus-file-management-properties];
  766.         });}
  767.     );
  768.     $all_apps->append($file141);
  769.     $gparted114 = 'Gtk2::MenuItem'->new(q[GParted]);
  770.     $gparted114->show;
  771.     $gparted114->signal_connect('activate', sub {
  772.         'threads'->create(sub {
  773.             system q[gksu /usr/sbin/gparted];
  774.         });}
  775.     );
  776.     $all_apps->append($gparted114);
  777.     $keyboard123 = 'Gtk2::MenuItem'->new(q[Keyboard Shortcuts]);
  778.     $keyboard123->show;
  779.     $keyboard123->signal_connect('activate', sub {
  780.         'threads'->create(sub {
  781.             system q[gnome-keybinding-properties];
  782.         });}
  783.     );
  784.     $all_apps->append($keyboard123);
  785.     $keyboard129 = 'Gtk2::MenuItem'->new(q[Keyboard]);
  786.     $keyboard129->show;
  787.     $keyboard129->signal_connect('activate', sub {
  788.         'threads'->create(sub {
  789.             system q[gnome-keyboard-properties];
  790.         });}
  791.     );
  792.     $all_apps->append($keyboard129);
  793.     $main119 = 'Gtk2::MenuItem'->new(q[Main Menu]);
  794.     $main119->show;
  795.     $main119->signal_connect('activate', sub {
  796.         'threads'->create(sub {
  797.             system q[alacarte];
  798.         });}
  799.     );
  800.     $all_apps->append($main119);
  801.     $monitors145 = 'Gtk2::MenuItem'->new(q[Monitors]);
  802.     $monitors145->show;
  803.     $monitors145->signal_connect('activate', sub {
  804.         'threads'->create(sub {
  805.             system q[gnome-display-properties];
  806.         });}
  807.     );
  808.     $all_apps->append($monitors145);
  809.     $mouse130 = 'Gtk2::MenuItem'->new(q[Mouse]);
  810.     $mouse130->show;
  811.     $mouse130->signal_connect('activate', sub {
  812.         'threads'->create(sub {
  813.             system q[gnome-mouse-properties];
  814.         });}
  815.     );
  816.     $all_apps->append($mouse130);
  817.     $multimedia128 = 'Gtk2::MenuItem'->new(q[Multimedia Systems Selector]);
  818.     $multimedia128->show;
  819.     $multimedia128->signal_connect('activate', sub {
  820.         'threads'->create(sub {
  821.             system q[gstreamer-properties];
  822.         });}
  823.     );
  824.     $all_apps->append($multimedia128);
  825.     $multiple143 = 'Gtk2::MenuItem'->new(q[Multiple screens]);
  826.     $multiple143->show;
  827.     $multiple143->signal_connect('activate', sub {
  828.         'threads'->create(sub {
  829.             system q[grandr];
  830.         });}
  831.     );
  832.     $all_apps->append($multiple143);
  833.     $openbox136 = 'Gtk2::MenuItem'->new(q[Openbox Configuration Manager]);
  834.     $openbox136->show;
  835.     $openbox136->signal_connect('activate', sub {
  836.         'threads'->create(sub {
  837.             system q[obconf];
  838.         });}
  839.     );
  840.     $all_apps->append($openbox136);
  841.     $panel132 = 'Gtk2::MenuItem'->new(q[Panel tint2]);
  842.     $panel132->show;
  843.     $panel132->signal_connect('activate', sub {
  844.         'threads'->create(sub {
  845.             system q[tint2conf];
  846.         });}
  847.     );
  848.     $all_apps->append($panel132);
  849.     $panel138 = 'Gtk2::MenuItem'->new(q[Panel]);
  850.     $panel138->show;
  851.     $panel138->signal_connect('activate', sub {
  852.         'threads'->create(sub {
  853.             system q[xfce4-panel -c];
  854.         });}
  855.     );
  856.     $all_apps->append($panel138);
  857.     $power115 = 'Gtk2::MenuItem'->new(q[Power Management]);
  858.     $power115->show;
  859.     $power115->signal_connect('activate', sub {
  860.         'threads'->create(sub {
  861.             system q[gnome-power-preferences];
  862.         });}
  863.     );
  864.     $all_apps->append($power115);
  865.     $preferred125 = 'Gtk2::MenuItem'->new(q[Preferred Applications]);
  866.     $preferred125->show;
  867.     $preferred125->signal_connect('activate', sub {
  868.         'threads'->create(sub {
  869.             system q[libfm-pref-apps];
  870.         });}
  871.     );
  872.     $all_apps->append($preferred125);
  873.     $printing133 = 'Gtk2::MenuItem'->new(q[Printing]);
  874.     $printing133->show;
  875.     $printing133->signal_connect('activate', sub {
  876.         'threads'->create(sub {
  877.             system q[system-config-printer];
  878.         });}
  879.     );
  880.     $all_apps->append($printing133);
  881.     $qt121 = 'Gtk2::MenuItem'->new(q[Qt 4 Settings]);
  882.     $qt121->show;
  883.     $qt121->signal_connect('activate', sub {
  884.         'threads'->create(sub {
  885.             system q[/usr/bin/qtconfig-qt4];
  886.         });}
  887.     );
  888.     $all_apps->append($qt121);
  889.     $removable131 = 'Gtk2::MenuItem'->new(q[Removable Drives and Media]);
  890.     $removable131->show;
  891.     $removable131->signal_connect('activate', sub {
  892.         'threads'->create(sub {
  893.             system q[/usr/lib/thunar-volman/thunar-volman-settings];
  894.         });}
  895.     );
  896.     $all_apps->append($removable131);
  897.     $screensaver122 = 'Gtk2::MenuItem'->new(q[Screensaver]);
  898.     $screensaver122->show;
  899.     $screensaver122->signal_connect('activate', sub {
  900.         'threads'->create(sub {
  901.             system q[xscreensaver-demo];
  902.         });}
  903.     );
  904.     $all_apps->append($screensaver122);
  905.     $software120 = 'Gtk2::MenuItem'->new(q[Software Sources]);
  906.     $software120->show;
  907.     $software120->signal_connect('activate', sub {
  908.         'threads'->create(sub {
  909.             system q[su-to-root -X -c /usr/bin/software-properties-gtk];
  910.         });}
  911.     );
  912.     $all_apps->append($software120);
  913.     $sound144 = 'Gtk2::MenuItem'->new(q[Sound]);
  914.     $sound144->show;
  915.     $sound144->signal_connect('activate', sub {
  916.         'threads'->create(sub {
  917.             system q[gnome-volume-control];
  918.         });}
  919.     );
  920.     $all_apps->append($sound144);
  921.     $startup124 = 'Gtk2::MenuItem'->new(q[Startup Applications]);
  922.     $startup124->show;
  923.     $startup124->signal_connect('activate', sub {
  924.         'threads'->create(sub {
  925.             system q[gnome-session-properties];
  926.         });}
  927.     );
  928.     $all_apps->append($startup124);
  929.     $sun117 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Policy Tool]);
  930.     $sun117->show;
  931.     $sun117->signal_connect('activate', sub {
  932.         'threads'->create(sub {
  933.             system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/policytool];
  934.         });}
  935.     );
  936.     $all_apps->append($sun117);
  937.     $sun142 = 'Gtk2::MenuItem'->new(q[Sun Java 6 Plugin Control Panel]);
  938.     $sun142->show;
  939.     $sun142->signal_connect('activate', sub {
  940.         'threads'->create(sub {
  941.             system q[/usr/lib/jvm/java-6-sun-1.6.0.26/bin/ControlPanel];
  942.         });}
  943.     );
  944.     $all_apps->append($sun142);
  945.     $synaptic127 = 'Gtk2::MenuItem'->new(q[Synaptic Package Manager]);
  946.     $synaptic127->show;
  947.     $synaptic127->signal_connect('activate', sub {
  948.         'threads'->create(sub {
  949.             system q[su-to-root -X -c /usr/sbin/synaptic];
  950.         });}
  951.     );
  952.     $all_apps->append($synaptic127);
  953.     $windows137 = 'Gtk2::MenuItem'->new(q[Windows]);
  954.     $windows137->show;
  955.     $windows137->signal_connect('activate', sub {
  956.         'threads'->create(sub {
  957.             system q[gnome-window-properties];
  958.         });}
  959.     );
  960.     $all_apps->append($windows137);
  961.     $xfce134 = 'Gtk2::MenuItem'->new(q[Xfce 4 Power Manager]);
  962.     $xfce134->show;
  963.     $xfce134->signal_connect('activate', sub {
  964.         'threads'->create(sub {
  965.             system q[xfce4-power-manager-settings];
  966.         });}
  967.     );
  968.     $all_apps->append($xfce134);
  969.     $category9->set_submenu($all_apps);
  970.     $menu->append($category9);
  971.  
  972.                                 # # # # # # # # # # # # # # # # # # # # System # # # # # # # # # # # # # # # # # # # #
  973.  
  974.     $all_apps = 'Gtk2::Menu'->new->new;
  975.     $category10 = 'Gtk2::MenuItem'->new(q[System]);
  976.     $bleachbit152 = 'Gtk2::MenuItem'->new(q[BleachBit]);
  977.     $bleachbit152->show;
  978.     $bleachbit152->signal_connect('activate', sub {
  979.         'threads'->create(sub {
  980.             system q[bleachbit];
  981.         });}
  982.     );
  983.     $all_apps->append($bleachbit152);
  984.     $bleachbit153 = 'Gtk2::MenuItem'->new(q[BleachBit (as root)]);
  985.     $bleachbit153->show;
  986.     $bleachbit153->signal_connect('activate', sub {
  987.         'threads'->create(sub {
  988.             system q[su-to-root -X -c bleachbit];
  989.         });}
  990.     );
  991.     $all_apps->append($bleachbit153);
  992.     $bulk160 = 'Gtk2::MenuItem'->new(q[Bulk Rename]);
  993.     $bulk160->show;
  994.     $bulk160->signal_connect('activate', sub {
  995.         'threads'->create(sub {
  996.             system q[/usr/lib/thunar/ThunarBulkRename];
  997.         });}
  998.     );
  999.     $all_apps->append($bulk160);
  1000.     $cairo151 = 'Gtk2::MenuItem'->new(q[Cairo Composite Manager]);
  1001.     $cairo151->show;
  1002.     $cairo151->signal_connect('activate', sub {
  1003.         'threads'->create(sub {
  1004.             system q[cairo-compmgr];
  1005.         });}
  1006.     );
  1007.     $all_apps->append($cairo151);
  1008.     $cd158 = 'Gtk2::MenuItem'->new(q[CD/DVD Creator]);
  1009.     $cd158->show;
  1010.     $cd158->signal_connect('activate', sub {
  1011.         'threads'->create(sub {
  1012.             system q[nautilus --no-default-window --no-desktop burn:/// ];
  1013.         });}
  1014.     );
  1015.     $all_apps->append($cd158);
  1016.     $file149 = 'Gtk2::MenuItem'->new(q[File Browser]);
  1017.     $file149->show;
  1018.     $file149->signal_connect('activate', sub {
  1019.         'threads'->create(sub {
  1020.             system q[nautilus --no-desktop --browser];
  1021.         });}
  1022.     );
  1023.     $all_apps->append($file149);
  1024.     $gdebi150 = 'Gtk2::MenuItem'->new(q[GDebi Package Installer]);
  1025.     $gdebi150->show;
  1026.     $gdebi150->signal_connect('activate', sub {
  1027.         'threads'->create(sub {
  1028.             system q[gdebi-gtk];
  1029.         });}
  1030.     );
  1031.     $all_apps->append($gdebi150);
  1032.     $htop161 = 'Gtk2::MenuItem'->new(q[Htop]);
  1033.     $htop161->show;
  1034.     $htop161->signal_connect('activate', sub {
  1035.         'threads'->create(sub {
  1036.             system q[xterm -e htop];
  1037.         });}
  1038.     );
  1039.     $all_apps->append($htop161);
  1040.     $manage155 = 'Gtk2::MenuItem'->new(q[Manage Print Jobs]);
  1041.     $manage155->show;
  1042.     $manage155->signal_connect('activate', sub {
  1043.         'threads'->create(sub {
  1044.             system q[system-config-printer-applet --no-tray-icon];
  1045.         });}
  1046.     );
  1047.     $all_apps->append($manage155);
  1048.     $open154 = 'Gtk2::MenuItem'->new(q[Open Folder with Thunar]);
  1049.     $open154->show;
  1050.     $open154->signal_connect('activate', sub {
  1051.         'threads'->create(sub {
  1052.             system q[Thunar];
  1053.         });}
  1054.     );
  1055.     $all_apps->append($open154);
  1056.     $power157 = 'Gtk2::MenuItem'->new(q[Power Statistics]);
  1057.     $power157->show;
  1058.     $power157->signal_connect('activate', sub {
  1059.         'threads'->create(sub {
  1060.             system q[gnome-power-statistics];
  1061.         });}
  1062.     );
  1063.     $all_apps->append($power157);
  1064.     $synaptic156 = 'Gtk2::MenuItem'->new(q[Synaptic Package Manager]);
  1065.     $synaptic156->show;
  1066.     $synaptic156->signal_connect('activate', sub {
  1067.         'threads'->create(sub {
  1068.             system q[synaptic];
  1069.         });}
  1070.     );
  1071.     $all_apps->append($synaptic156);
  1072.     $system159 = 'Gtk2::MenuItem'->new(q[System Monitor]);
  1073.     $system159->show;
  1074.     $system159->signal_connect('activate', sub {
  1075.         'threads'->create(sub {
  1076.             system q[gnome-system-monitor];
  1077.         });}
  1078.     );
  1079.     $all_apps->append($system159);
  1080.     $thunar148 = 'Gtk2::MenuItem'->new(q[Thunar File Manager]);
  1081.     $thunar148->show;
  1082.     $thunar148->signal_connect('activate', sub {
  1083.         'threads'->create(sub {
  1084.             system q[Thunar];
  1085.         });}
  1086.     );
  1087.     $all_apps->append($thunar148);
  1088.     $category10->set_submenu($all_apps);
  1089.     $menu->append($category10);
  1090.  
  1091.                                 # # # # # # # # # # # # # # # # # # # # Menutray # # # # # # # # # # # # # # # # # # # #
  1092.  
  1093.     $all_apps = 'Gtk2::Menu'->new->new;
  1094.     $category11 = 'Gtk2::MenuItem'->new(q[Menutray]);
  1095.     $edit164 = 'Gtk2::MenuItem'->new(q[Edit menutray menu]);
  1096.     $edit164->show;
  1097.     $edit164->signal_connect('activate', sub {
  1098.         'threads'->create(sub {
  1099.             system q[xterm -e nano /home/hangar/.config/menutray/menutray.pl];
  1100.         });}
  1101.     );
  1102.     $all_apps->append($edit164);
  1103.     $edit165 = 'Gtk2::MenuItem'->new(q[Edit menutray schema]);
  1104.     $edit165->show;
  1105.     $edit165->signal_connect('activate', sub {
  1106.         'threads'->create(sub {
  1107.             system q[xterm -e nano /home/hangar/.config/menutray/menutray.schema];
  1108.         });}
  1109.     );
  1110.     $all_apps->append($edit165);
  1111.     $edit166 = 'Gtk2::MenuItem'->new(q[Edit menutray configuration]);
  1112.     $edit166->show;
  1113.     $edit166->signal_connect('activate', sub {
  1114.         'threads'->create(sub {
  1115.             system q[xterm -e nano /home/hangar/.config/menutray/menutray.conf];
  1116.         });}
  1117.     );
  1118.     $all_apps->append($edit166);
  1119.     $category11->set_submenu($all_apps);
  1120.     $menu->append($category11);
  1121.     $separator = Gtk2::SeparatorMenuItem->new;
  1122.     $menu->append($separator);
  1123.     $item169 = 'Gtk2::MenuItem'->new(q[Regenerate]);
  1124.     $item169->show;
  1125.     $item169->signal_connect('activate', sub { `menutray -g`;
  1126.         'threads'->exit;
  1127.     });
  1128.     $menu->append($item169);
  1129.     $quit = 'Gtk2::MenuItem'->new('Quit');
  1130.     $quit->show;
  1131.     $quit->signal_connect('activate', sub { 'threads'->exit; exit; });
  1132.  
  1133.     $menu->append($quit);
  1134.     $menu->show_all;
  1135.     $menu->popup(undef, undef, sub {
  1136.         return Gtk2::StatusIcon::position_menu($menu, 0, 0, $icon);
  1137.     }
  1138.     , [1, 1], 0, 0);
  1139. }
  1140. 'Gtk2'->main;
clone this paste RAW Paste Data