home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / sun / volume1 / tooltool2.1c / part01 / samples / calc.tt next >
Encoding:
Text File  |  1989-06-06  |  1.1 KB  |  64 lines
  1. application "bc"
  2.    size 2 by 20 characters
  3.    label "<< Calculator >>"
  4. gadgets
  5.    bottom
  6.    proportional
  7.    font "/usr/lib/fonts/fixedwidthfonts/screen.b.14"
  8.    button
  9.       normal    " Clear "    send "c\n";
  10.    end_button
  11.    button
  12.       normal    " Close "    close;
  13.       shift    " Quit "    exit;
  14.    end_button
  15.    button
  16.       normal    " 7 "        send "7";
  17.    end_button
  18.    button
  19.       normal    " 8 "        send "8";
  20.    end_button
  21.    button
  22.       normal    " 9 "        send "9";
  23.    end_button
  24.    button
  25.       normal    " / "        send "/";
  26.    end_button
  27.    button
  28.       normal    " 4 "        send "4";
  29.    end_button
  30.    button
  31.       normal    " 5 "        send "5";
  32.    end_button
  33.    button
  34.       normal    " 6 "        send "6";
  35.    end_button
  36.    button
  37.       normal    " X "        send "*";
  38.    end_button
  39.    button
  40.       normal    " 1 "        send "1";
  41.    end_button
  42.    button
  43.       normal    " 2 "        send "2";
  44.    end_button
  45.    button
  46.       normal    " 3 "        send "3";
  47.    end_button
  48.    button
  49.       normal    " - "        send "-";
  50.    end_button
  51.    button
  52.       normal    " 0 "        send "0";
  53.    end_button
  54.    button
  55.       normal    " . "        send ".";
  56.    end_button
  57.    button
  58.       normal    " = "        send "\n";
  59.    end_button
  60.    button
  61.       normal    " + "        send "+";
  62.    end_button
  63. end_gadgets
  64.