home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 June / ccd0605.iso / Software / Freeware / Comunicatii / jIRCii / jerk.jar / resource / menus.irc < prev    next >
Text File  |  2005-05-08  |  11KB  |  696 lines
  1. ##################################################################################
  2. # menu.irc - Default jIRC Menu Items and Keyboard Shortcuts
  3. ##################################################################################
  4.  
  5. bind Ctrl+X
  6. {
  7.    cycleQuery();
  8. }
  9.  
  10. bind Ctrl+W
  11. {
  12.    if (strlen($active) > 0)
  13.    {
  14.       call("/window $active");
  15.    }
  16. }
  17.  
  18. bind Ctrl+D
  19. {
  20.    closeWindow(getActiveWindow());
  21. }
  22.  
  23. bind Ctrl+N
  24. {
  25.    call("/newserver");
  26. }
  27.  
  28. bind Alt+H
  29. {
  30.    showHelpDialog("");
  31. }
  32.  
  33. bind Home
  34. {
  35.    setCursorPosition(getActiveWindow(), 0);
  36. }
  37.  
  38. bind End
  39. {
  40.    setCursorPosition(getActiveWindow(), strlen(getInputText(getActiveWindow())));
  41. }
  42.  
  43. bind Meta+N
  44. {
  45.    call("/newserver");
  46. }
  47.  
  48. bind Meta+T
  49. {
  50.    call("/newserver");
  51. }
  52.  
  53. bind Alt+O
  54. {
  55.    showOptionDialog("");
  56. }
  57.  
  58. bind Escape
  59. {
  60.    setInputText($active, "");
  61. #    setWindowState(getActiveWindow(), "MINIMIZED");
  62. }
  63.  
  64. bind Page_Up
  65. {
  66.    scrollWindow(getActiveWindow(), -5);
  67. }
  68.  
  69. bind Page_Down
  70. {
  71.    scrollWindow(getActiveWindow(), 5);
  72. }
  73.  
  74.  
  75. sub generateCommandString
  76. {
  77.    local('$string');
  78.    $string = "/server";
  79.  
  80.    if (isServerSecure())
  81.    {
  82.       $string = "$string -ssl";
  83.    }
  84.  
  85.    if (getServerPassword() ne $null)
  86.    {
  87.       $string = "$string -pass " . getServerPassword();
  88.    }
  89.  
  90.    $string = "$string " . getServerHost() . " " . getServerPort();
  91.  
  92.    return $string;
  93. }
  94.  
  95. on connect
  96. {
  97.    local('@server_list');
  98.    @server_list = getPropertyList("saved.servers");
  99.  
  100.    # note to /luser: $server !isin @server_list only works because @server_list is converted to a string as isin
  101.    #      is a string comparison operator.
  102.    if ($server !isin @server_list)
  103.    {
  104.       push(@server_list, $server . " " . generateCommandString());
  105.    }
  106.  
  107.    while (size(@server_list) > 5)
  108.    {
  109.       shift(@server_list);
  110.    }
  111.    setPropertyList("saved.servers", @server_list);
  112. }
  113.  
  114. menubar "&Connection"
  115. {
  116.    item "&New Server"
  117.    {
  118.       call("/newserver");
  119.    }
  120.  
  121.    addSeparator();
  122.  
  123.    menu "&Connect"
  124.    {
  125.       local('@saved_servers $x @stemp $v');
  126.       @saved_servers = getPropertyList("saved.servers");
  127.  
  128.       $x = 0;
  129.       foreach $var (@saved_servers)
  130.       {
  131.          @stemp = split(" ", $var);
  132.          $v = @stemp[0];
  133.         
  134.          item "& $+ $x $v"
  135.          {
  136.             local('@server_list $var $tokens $temp');
  137.  
  138.             $temp        = substr($command, 2);
  139.             @server_list = getPropertyList("saved.servers");
  140.             $tokens      = tokenize($var);
  141.  
  142.             foreach $var (@server_list)
  143.             {
  144.                if (getToken($tokens, 0) eq $temp && getTotalTokens($tokens) > 1)
  145.                {
  146.                   call(getTokenFrom(tokenize($var), 1));
  147.                   return;
  148.                }
  149.             }
  150.  
  151.             call("/server $temp"); # just in case we didn't find the server
  152.          }
  153.  
  154.          $x++;
  155.       }      
  156.  
  157.       if (size(@saved_servers) > 0)
  158.       {
  159.          addSeparator();
  160.       }
  161.  
  162.       item "&Servers..."
  163.       {
  164.          showOptionDialog("jIRCii Setup");
  165.       }
  166.    }
  167.  
  168.    item "&Disconnect" 
  169.    { 
  170.       call("/quit");
  171.    }
  172.  
  173.    addSeparator();
  174.  
  175.    item "&Close"
  176.    {
  177.       closeWindow("%STATUS%");
  178.    }
  179.  
  180.    item "&Exit"
  181.    {
  182.      exit();
  183.    }
  184. }
  185.  
  186. menubar "&View"
  187. {
  188.    item "&DCC Sessions"
  189.    {
  190.       call("/dcc stats");
  191.    }
  192.  
  193.    item "&Options"
  194.    {
  195.       showOptionDialog("");
  196.    }
  197. }
  198.  
  199. menubar "C&ommands"
  200. {
  201.    awayMenu();
  202.    joinMenu();
  203.    listMenu();
  204.    serverMenu();
  205. }
  206.  
  207. sub awayMenu
  208. {
  209.    menu "&Away"
  210.    {
  211.       item "&Set Away..."
  212.       {
  213.          $reason = showInputDialog("Away message:", "Away");
  214.          &call("/away $reason");
  215.       }
  216.  
  217.       item "&Set Back"
  218.       {
  219.          &call("/back");
  220.       }
  221.    }
  222. }
  223.  
  224. sub joinMenu
  225. {
  226.    menu "&Join"
  227.    {
  228.       @channel_list = getPropertyList("channel.list");
  229.  
  230.       foreach $var (@channel_list)
  231.       {
  232.          item "$var"
  233.          {
  234.             call("/join $command");
  235.          }
  236.       }
  237.  
  238.       if (size(@channel_list) > 0)
  239.       {
  240.          addSeparator();
  241.       }
  242.  
  243.       item "Add..."
  244.       {
  245.          $filter = showInputDialog("Name of channel:", "Add to Join List");
  246.          push(@channel_list, $filter);
  247.          setPropertyList("channel.list", @channel_list);
  248.       }
  249.  
  250.       if (size(@channel_list) > 0)
  251.       {
  252.          menu "&Remove"
  253.          {
  254.              foreach $var (@channel_list)
  255.              {
  256.                 item "$var"
  257.                 {
  258.                    remove(@channel_list, $command);
  259.                    setPropertyList("channel.list", @channel_list);
  260.                 }
  261.              }
  262.          }
  263.       }
  264.    }
  265. }
  266.  
  267. sub listMenu
  268. {
  269.    item "&List"
  270.    {
  271.      call("/list -gui");
  272.    }
  273. }
  274.  
  275. menubar "&Window"
  276. {
  277.    item "&Tile"
  278.    {
  279.       tileWindows();
  280.    }
  281.  
  282.    item "&Cascade"
  283.    {
  284.       cascadeWindows();
  285.    }
  286.  
  287.    addSeparator();
  288.  
  289.    item "&1 Status"
  290.    {
  291.       activateWindow("%STATUS%");
  292.    }
  293.  
  294.    @windows = getWindows();
  295.  
  296.    $x = 2;
  297.    foreach $var (@windows)
  298.    {
  299.       item "& $+ $x $var"
  300.       {
  301.          $temp = substr($command, indexOf($command, " ") + 1);
  302.          activateWindow($temp);
  303.       }
  304.       $x++;
  305.    }
  306. }
  307.  
  308. menubar "&Help"
  309. {
  310.    item "&Help"
  311.    {
  312.       showHelpDialog("");
  313.    }
  314.  
  315.    item "&About"
  316.    {
  317.       showAboutDialog();
  318.    }
  319. }
  320.  
  321. sub ctcpDccMenu
  322. {
  323.    menu "&Ctcp"
  324.    {
  325.       item "&Ping"
  326.       {
  327.         call("/ctcp $1 PING");
  328.       }
  329.  
  330.       item "&Time"
  331.       {
  332.         call("/ctcp $1 TIME");
  333.       }
  334.  
  335.       item "&Version"
  336.       {
  337.         call("/ctcp $1 VERSION");
  338.       }
  339.    }
  340.  
  341.    menu "&DCC"
  342.    {
  343.       item "&Chat"
  344.       {
  345.         call("/dcc chat $1");
  346.       }
  347.  
  348.       item "&Send"
  349.       {
  350.         call("/dcc send $1");
  351.       }
  352.    }
  353.  
  354. }
  355.  
  356. menu channel
  357. {
  358.    item "Show &Names"
  359.    {
  360.       call("/sc");
  361.    }
  362. }
  363.  
  364. menu query
  365. {
  366.    &addItem("&Whois", "/whois $1");
  367.    ctcpDccMenu();
  368. }
  369.  
  370. menu chat
  371. {
  372.    item "&Close Chat"
  373.    {
  374.       call("/dcc close " . substr($active, 1, strlen($active)));
  375.    }
  376. }
  377.  
  378. menu nicklist
  379. {
  380.    &addItem("&Whois", "/whois $1");
  381.    &addItem("&Query", "/window $1");
  382.  
  383.    &addSeparator();
  384.  
  385.    if ($me isop $0 || 1 == 1)
  386.    {
  387.       menu "&Control"
  388.       {
  389.          menu "&Give"
  390.          {
  391.             &addItem("+&o", "/op $1-");
  392.             &addItem("+&v", "/v $1-");
  393.             &addItem("+&h", "/ho $1-");
  394.          }
  395.          menu "&Take"
  396.          {
  397.             &addItem("-&o", "/do $1-");
  398.             &addItem("-&v", "/dv $1-");
  399.             &addItem("-&h", "/dh $1-");
  400.          }
  401.       }
  402.    }
  403.  
  404.    ctcpDccMenu();
  405. } 
  406.  
  407. menu input
  408. {
  409.    item "&Cut"
  410.    {
  411.       cutSelectedText();
  412.    }
  413.  
  414.    item "&Copy"
  415.    {
  416.       copySelectedText();
  417.    }
  418.  
  419.    item "&Paste"
  420.    {
  421.       pasteText();
  422.    }
  423.  
  424.    item "&Clear"
  425.    {
  426.       setInputText($active, "");
  427.    }
  428. }
  429.  
  430. menu status
  431. {
  432.    if ($me ison $active)
  433.    {
  434.       menu "$active"
  435.       {
  436.          item "&Window" { &call("/window $active"); }
  437.          &addSeparator();
  438.          item "&Part" { &call("/part $active"); }
  439.          item "&Cycle" { &call("/cycle"); }
  440.       }
  441.       &addSeparator();
  442.    }
  443.  
  444.    awayMenu();
  445.    joinMenu();
  446.    listMenu();
  447.    serverMenu();
  448. }
  449.  
  450. sub serverMenu
  451. {
  452.    menu "&Server"
  453.    {
  454.       item "&links" { &call("links"); }
  455.       item "l&users" { &call("lusers"); }
  456.       item "&motd" { &call("motd"); }
  457.       item "&time" { &call("time"); }
  458.    }
  459. }
  460.  
  461. menu tab
  462. {
  463.    item "&Close Session"
  464.    {
  465.       closeWindow("%STATUS%");
  466.    }
  467. }
  468.  
  469. bind Alt+1
  470. {
  471.    activateWindow("%STATUS%");
  472.    halt;
  473. }
  474.  
  475. bind Alt+2
  476. {
  477.    local('@windows');
  478.    @windows = getWindows();
  479.    if (size(@windows) > 0)
  480.    {
  481.       activateWindow(@windows[0]);
  482.       halt;
  483.    }
  484. }
  485.  
  486. bind Alt+3
  487. {
  488.    local('@windows');
  489.    @windows = getWindows();
  490.    if (size(@windows) > 1)
  491.    {
  492.       activateWindow(@windows[1]);
  493.       halt;
  494.    }
  495. }
  496.  
  497. bind Alt+4
  498. {
  499.    local('@windows');
  500.    @windows = getWindows();
  501.    if (size(@windows) > 2)
  502.    {
  503.       activateWindow(@windows[2]);
  504.       halt;
  505.    }
  506. }
  507.  
  508. bind Alt+5
  509. {
  510.    local('@windows');
  511.    @windows = getWindows();
  512.    if (size(@windows) > 3)
  513.    {
  514.       activateWindow(@windows[3]);
  515.       halt;
  516.    }
  517. }
  518.  
  519. bind Alt+6
  520. {
  521.    local('@windows');
  522.    @windows = getWindows();
  523.    if (size(@windows) > 4)
  524.    {
  525.       activateWindow(@windows[4]);
  526.       halt;
  527.    }
  528. }
  529.  
  530.  
  531. bind Alt+7
  532. {
  533.    local('@windows');
  534.    @windows = getWindows();
  535.    if (size(@windows) > 5)
  536.    {
  537.       activateWindow(@windows[5]);
  538.       halt;
  539.    }
  540. }
  541.  
  542.  
  543. bind Alt+8
  544. {
  545.    local('@windows');
  546.    @windows = getWindows();
  547.    if (size(@windows) > 6)
  548.    {
  549.       activateWindow(@windows[6]);
  550.       halt;
  551.    }
  552. }
  553.  
  554.  
  555. bind Alt+9
  556. {
  557.    local('@windows');
  558.    @windows = getWindows();
  559.    if (size(@windows) > 7)
  560.    {
  561.       activateWindow(@windows[7]);
  562.       halt;
  563.    }
  564. }
  565.  
  566. bind Alt+Left
  567. {
  568.    local('@windows $x');
  569.    @windows = copy(getWindows()); # pop is destructive and won't work on a r/o array
  570.  
  571.    for ($x = 0; @windows[$x] ne getActiveWindow() && $x < size(@windows); $x++) { }
  572.  
  573.    if ($x == 0)
  574.    {
  575.       activateWindow(pop(@windows));
  576.    }
  577.    else
  578.    {
  579.       activateWindow(@windows[($x - 1) % size(@windows)]);
  580.    }
  581. }
  582.  
  583. bind Alt+Right
  584. {
  585.    local('@windows $x');
  586.    @windows = getWindows();
  587.  
  588.    for ($x = 0; @windows[$x] ne getActiveWindow() && $x < size(@windows); $x++) { }
  589.  
  590.    activateWindow(@windows[($x + 1) % size(@windows)]);
  591. }
  592.  
  593.  
  594. bind Ctrl+Left
  595. {
  596.    if (getActiveSessionId() == 0)
  597.    {
  598.       activateSession(getTotalSessions() - 1);
  599.    }
  600.    else
  601.    {
  602.       activateSession((getActiveSessionId() - 1) % getTotalSessions());
  603.    }
  604. }
  605.  
  606. bind Ctrl+Right
  607. {
  608.    activateSession((getActiveSessionId() + 1) % getTotalSessions());
  609. }
  610.  
  611. bind Ctrl+1
  612. {
  613.    activateSession(0);
  614. }
  615.  
  616. bind Ctrl+2
  617. {
  618.    if (getTotalSessions() > 1)
  619.    {     
  620.       activateSession(1);
  621.    }
  622. }
  623.  
  624. bind Ctrl+3
  625. {
  626.    if (getTotalSessions() > 2)
  627.    {     
  628.       activateSession(2);
  629.    }
  630. }
  631.  
  632. bind Ctrl+4
  633. {
  634.    if (getTotalSessions() > 3)
  635.    {     
  636.       activateSession(3);
  637.    }
  638. }
  639.  
  640. bind Ctrl+5
  641. {
  642.    if (getTotalSessions() > 4)
  643.    {     
  644.       activateSession(4);
  645.    }
  646. }
  647.  
  648. bind Ctrl+6
  649. {
  650.    if (getTotalSessions() > 5)
  651.    {     
  652.       activateSession(5);
  653.    }
  654. }
  655.  
  656. bind Ctrl+7
  657. {
  658.    if (getTotalSessions() > 6)
  659.    {     
  660.       activateSession(6);
  661.    }
  662. }
  663.  
  664. bind Ctrl+8
  665. {
  666.    if (getTotalSessions() > 7)
  667.    {     
  668.       activateSession(7);
  669.    }
  670. }
  671.  
  672. bind Ctrl+9
  673. {
  674.    if (getTotalSessions() > 8)
  675.    {     
  676.       activateSession(8);
  677.    }
  678. }
  679.  
  680. menu dcc
  681. {
  682.    item "&Close"
  683.    {
  684.      closeDCC(getDCCConnection($this));
  685.    }
  686. }
  687.  
  688. menu switchbar
  689. {
  690.    item "&Close Window"
  691.    {
  692.       closeWindow($parms);
  693.    }
  694. }
  695.  
  696.