 
 (def *quit-icon* {:name "Quit" :icon "???" :handler (fn [frame _] (.dispose frame))})
 
-(def *standard-icons* [*quit-icon* {}])
+; shortcuts for toolbar creation
+(def | {})
+
+(def *standard-icons* [*quit-icon* |])
 
 
 ;;; Tabs

  (:import [javax.swing JFrame JMenuBar JMenu JMenuItem Box JToolBar JPanel
	                JButton ImageIcon JSeparator JTabbedPane JSplitPane
	                JLabel]
	   [java.awt GridLayout BorderLayout Dimension]
	   [java.awt.event KeyEvent ActionListener]
	   [java.io File])
  (:use clojure.contrib.repl-utils

(defn get-toolbar [frame]
  (get-component frame #(= (class %) JToolBar)))

(def *default-icon* (File. "images/default.jpg"))
(def *icon-size* 17)

(defn make-icon [frame icon-hash]
  (let [button (JButton.)]
