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

(require (quote gui.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   2	UDI3C3
FLDUIFDUU: 8:Ly 8:L	F*H: DF) :L(:MF*Ln m:q m:	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
H9	EEHM v" [gtk-menu-bar-new gtk-menu-new gtk-menu-ensure-uline-accel-group #["012D	3I
4
5IFJH  3 	D6IF
EH8FH	H
v" [gtk-label-new gtk-hbox-new gtk-label-parse-uline gtk-box-pack-start gtk-box-pack-end gtk-widget-add-accelerator "activate_item" gtk-widget-show-all gtk-container-add] 7342087] 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-show-toggle gtk-check-menu-item-set-state gtk-widget-set-sensitive gtk-signal-connect "activate" #[":LF v" [menu-selected] 2] gtk-widget-lock-accelerators gtk-menu-bar-append gtk-menu-append gtk-widget-show] 10491910])
(defun popup-menu #["012D	ED3HI&IF % HHv" [group-table make-group-table create-menu gtk-signal-connect "deactivate" gtk-main-quit menu-selected gtk-menu-popup-interp gtk-main] 4195335])
(run-byte-code " 
| Iv u@	D0@ L	 MH@	 /@	EH " [end-of-stream read standard-input format standard-output "%S
" symbol-value filep flush-file] 1050629)
