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

(require (quote define))
(require (quote gtk))
(define-value (quote menu-selected) nil)
(define-value (quote with-accels) (jade-byte-code "xv" [gtk-menu-ensure-uline-accel-group] 1))
(defun remove-underscores #[(string) "8
 88

w  8v" [substring string-match "_" concat match-start match-end] 5])
(defun create-menu #[(spec &optional bar) "D8 
 4 8	6; FLD6IFD66	: 7:Ly 7
:L	FH: DF  M:L R:L	:MFLn v:q v
:	D69	:8
E 8	9CH 9	L8
D6:<8FEH9 9	H=  <9
H9	EEHM 9v" [with-accels gtk-menu-item-new-with-label gtk-menu-bar-new gtk-menu-new menu gtk-menu-ensure-uline-accel-group accels cell item label symbol-value gtk-menu-item-new remove-underscores create-menu sub gtk-menu-item-set-submenu gtk-signal-connect "activate" #[nil ":LFv" [menu-selected] 2] gtk-label-parse-uline gtk-container-children hkey gtk-widget-add-accelerator "activate_item" gtk-widget-lock-accelerators gtk-menu-bar-append gtk-menu-append gtk-widget-show] 9])
(defun popup-menu #[(spec &optional timestamp position) ":	D28HI8IF: 9HHv" [menu-selected create-menu menu gtk-signal-connect "deactivate" gtk-main-quit gtk-menu-popup-interp gtk-main] 7])
(jade-byte-code "x v" [gtk-set-locale] 1)
(jade-byte-code " | I 6I u	D48L	8M
H		 1
	EH EGHv" [standard-output end-of-stream read standard-input input format "%S
" apply symbol-value filep flush-file] 7)
