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

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

  8v" [substring string-match "_" concat match-start match-end] 5])
(defun create-menu #[4097 "D9 
 U 8	U: FLDUIFDUU: 2:Ly 2:L	FH: ?F  H:L M:L	:MFLn p:q p:	DU9		:8
E }8	
9CH 
9	L8
DU:<8FEH9 9	H>  <9
H9	EEHM 9v" [with-accels gtk-menu-item-new-with-label gtk-menu-bar-new gtk-menu-new gtk-menu-ensure-uline-accel-group symbol-value gtk-menu-item-new remove-underscores create-menu gtk-menu-item-set-submenu gtk-signal-connect "activate" #[0 ":LFv" [menu-selected] 2] gtk-label-parse-uline gtk-container-children gtk-widget-add-accelerator "activate_item" gtk-widget-lock-accelerators gtk-menu-bar-append gtk-menu-append gtk-widget-show] 262153])
(defun popup-menu #[8193 "8	DU8HI8IF: ;HHv" [menu-selected create-menu gtk-signal-connect "deactivate" gtk-main-quit gtk-menu-popup-interp gtk-main] 65543])
(run-byte-code "x H | Iv u	DU8L	8M
H		 6
	EH " [standard-output gtk-set-locale end-of-stream read standard-input format "%S
" apply symbol-value filep flush-file] 131078)
