#!/bin/sh
exec rep "$0" "$@"
!#;; Source file: sawfish-menu.jl
(validate-byte-code 11 1)

(require (quote gui.gtk-2.gtk))
(require (quote rep.data.tables))
(%define menu-selected nil)
(%define group-table (run-byte-code "v" [make-fluid] 1))
(defun make-group-table #["
v" [make-table symbol-hash eq] 3])
(defun group-id-set #["01B v" [table-set group-table] 2097156])
(defun group-id-ref #["0B 
v" [table-ref group-table] 1048579])
(defun create-menu #["01D   2DI3C3 FLDUIFDUU: 4:Ly 4:L	F*H: @F) :L(:MF*Ln h:q h:	D4)98
H9
E :MD4D5M6	M6
M6 	6	 		)
9
  )9J
 F)H98H 9M
H 9I
EEH9CH9 9
H9	EEHM v" [gtk-menu-bar-new gtk-menu-new #["012D	3I
4IFJH  , 	D5IF
EH	H
v" [gtk-label-new-with-mnemonic gtk-hbox-new gtk-box-pack-start gtk-label-new gtk-box-pack-end gtk-widget-show-all gtk-container-add] 6293511] symbol-value gtk-menu-item-new create-menu gtk-menu-item-set-submenu check group insensitive shortcut group-id-ref gtk-radio-menu-item-new-from-widget group-id-set gtk-check-menu-item-new gtk-check-menu-item-set-active gtk-widget-set-sensitive g-signal-connect "activate" #[":LF v" [menu-selected] 2] gtk-menu-shell-append gtk-widget-show] 10491910])
(defun popup-menu #["012D	ED3HI&IF % H		 6
Hv" [group-table make-group-table create-menu g-signal-connect "deactivate" gtk-main-quit menu-selected gtk-menu-popup-interp visible GTK-WIDGET-FLAGS gtk-main] 4195335])
(run-byte-code " 
| Iv uJD@	D0@ L	 MH@	 4	@	EH " [end-of-stream %in-condition-case read standard-input format standard-output "%S
" symbol-value filep flush-file] 1051653)
