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

(require (quote gtk))
(defvar sawmill-client-program "sawmill-client")
(defvar ui-debug nil)
(defvar ui-group t)
(defvar ui-socket-id nil)
(defvar ui-window nil)
(defvar ui-root nil)
(defvar ui-apply-widget nil)
(defvar ui-revert-widget nil)
(defvar ui-ok-widget nil)
(defvar ui-values-to-apply nil)
(defvar ui-apply-changed-hook nil)
(defvar ui-original-values nil)
(defvar ui-changed-variables nil)
(defconst ui-box-spacing 4)
(defconst ui-box-border 5)
(defvar ui-enable-refresh nil)
(defvar ui-pages-style (quote list))
(defvar ui-set-style (quote menu))
(defvar ui-match-window-max-matchers 3)
(defvar ui-lang (jade-byte-code "	 	 	" [getenv "LC_ALL" "LC_MESSAGES" "LANG"] 2))
(defvar ui-lang-base (jade-byte-code " 
 	 " [ui-lang string-match "^([^_.]+)_.*" expand-last-match "\\1"] 3))
(defvar ui-color-preview-width 28)
(defvar ui-color-preview-height 16)
(defun sawmill-eval #[(form &optional read-back) "D0	1J4II	

k 7	  3
I
	 < <	E" [output process make-string-output-stream make-process print-escape call-process sawmill-client-program "-e" format "%S" form get-output-stream-string read-back read make-string-input-stream error "can't call sawmill-client"] 9])
(defun sawmill-eval-async #[(form) "DI	J20II	k] \"
	E" [process make-process print-escape call-process sawmill-client-program "-q" "-e" format "%S" form error "can't call sawmill-client"] 10])
(defmacro get-key #[(spec key) "+**" [car cdr memq key spec] 5])
(defmacro key-exists-p #[(spec key) "+" [memq key spec] 3])
(defun set-key #[(spec key value) "DF2 MN *
E" [key spec cell value nconc] 5])
(defun build-ui #[(spec) "DLzF1 	 
E" [spec fun builder error "Unknown ui element: %S"] 4])
(defun build-pages #[(spec) "a :D2

H	HM 2FLD0	L	EHM E a D	MT	66	13
HJH
H	
H
HM FLD0DL	
	56
	H
LKREEHM  !CH\"FHE" [page clist book hbox spec widget ui-pages-style build-ui contents frame row notebook gtk-notebook-new gtk-notebook-set-scrollable gtk-notebook-popup-enable gtk-notebook-append-page gtk-label-new list gtk-hpaned-new gtk-clist-new gtk-frame-new make-vector gtk-container-border-width gtk-clist-set-column-auto-resize gtk-paned-add1 gtk-paned-add2 gtk-clist-set-selection-mode browse gtk-clist-append vector gtk-widget-show-all gtk-signal-connect "select_row" #[(clist row col) "" [build-pages:select-row contents row frame] 4] gtk-clist-select-row] 6])
(put (quote pages) (quote builder) build-pages)
(defun build-pages:select-row #[(contents row frame) "	 FLD1
EHM SL
HSM
" [frame w contents row gtk-container-children gtk-container-remove gtk-frame-set-label gtk-container-add] 4])
(defun build-box #[(spec) "DLa I
 I
0
H
HM 8FLD2		IFEHM 'E" [box spec widget vbox gtk-vbox-new gtk-hbox-new gtk-box-set-spacing gtk-container-border-width gtk-box-pack-start build-ui] 6])
(put (quote vbox) (quote builder) build-box)
(put (quote hbox) (quote builder) build-box)
(defun build-table #[(spec) "DLI2 *FLD0	LLLEHM E" [cell spec table gtk-table-new gtk-table-attach-defaults build-ui] 8])
(put (quote table) (quote builder) build-table)
(defun build-label #[(spec) "D	0
HJ
HE" [label gtk-label-new spec gtk-label-set-justify left gtk-label-set-line-wrap] 3])
(put (quote label) (quote builder) build-label)
(defun build-text #[(spec) "D0I
H
HIFFTHE" [text spec gtk-text-new gtk-text-set-editable gtk-text-set-word-wrap gtk-text-insert] 7])
(put (quote text) (quote builder) build-text)
(defun build-frame #[(spec) "D	1 	
HE" [spec frame gtk-frame-new gtk-container-add build-ui] 4])
(put (quote frame) (quote builder) build-frame)
(defun build-separator #[(spec) "La  " [spec hsep gtk-hseparator-new gtk-vseparator-new] 2])
(put (quote hsep) (quote builder) build-separator)
(put (quote vsep) (quote builder) build-separator)
(defun build-toggle #[(spec) "D	0	  FLD2	 
EHM  7 =		 =
IH
CHE" [toggle spec w :value gtk-check-button-new-with-label gtk-container-children gtk-label-p gtk-label-set-justify left gtk-button-clicked set-key gtk-signal-connect "clicked" #[(w) "D]1E" [spec value :value ui-set :variable] 4]] 4])
(put (quote toggle) (quote builder) build-toggle)
(defun build-entry #[(spec) "DI31 +La #I '
 1	IH
C#
*
 E" [spec entry :value id gtk-entry-new gtk-entry-set-text number format "%s" set-key gtk-signal-connect "changed" #[(w) "	" [build-entry:changed spec] 2] nconc :widget] 7])
(put (quote string) (quote builder) build-entry)
(defun build-number-entry #[(spec) "] HD3L !M (1	
CH
*
 E" [spec entry :value range set-key :range gtk-spin-button-new gtk-adjustment-new 1000000 gtk-signal-connect "changed" #[(w) "	" [build-entry:changed spec] 2] nconc :widget] 8])
(put (quote number) (quote builder) build-number-entry)
(defun build-entry:changed #[(spec) "] C	HHI" [:in-apply-hook spec ui-add-apply-hook #[nil "	" [build-entry:set spec] 2] ui-set-button-states set-key] 4])
(defun build-entry:set #[(spec) "D	F0`  IF  LLa L 2| ,IF  II &u	I
	F p] IIF EGHH
IH
E" [value spec gtk-entry-get-text :widget "" :allow-nil number error read make-string-input-stream set-key :in-apply-hook ui-set :variable] 6])
(defun build-font #[(spec) "D 		1	 )FLD3	 &	J
EHM ] 9
IH
CH*
 E" [spec button :value w gtk-button-new-with-label build-font:abbrev "" gtk-container-children gtk-label-p gtk-label-set-line-wrap set-key gtk-signal-connect "clicked" #[(w) "	" [build-font:clicked spec] 2] nconc :widget] 4])
(put (quote font) (quote builder) build-font)
(defun build-font:clicked #[(spec) "D		0 	
H
	CH	CH
CH	H	E" [fontsel gtk-signal-connect :value spec "clicked" #[(w) "	" [gtk-widget-destroy fontsel] 2] gtk-font-selection-dialog-new _ "Select font" gtk-font-selection-dialog-set-font-name gtk-font-selection-dialog-ok-button #[(w) "D	F0`  IF HH	
	
H	E" [value spec fontsel gtk-font-selection-dialog-get-font-name "" :allow-nil ui-set :variable ui-set-button-label :widget build-font:abbrev gtk-widget-destroy] 5] gtk-font-selection-dialog-cancel-button "delete_event" gtk-widget-show gtk-grab-add] 4])
(defun build-font:abbrev #[(font-name) "
 
	 " [font-name string-match "-[^-]+-([^-]+)-" expand-last-match "\\1"] 3])
(defun build-color #[(spec) "D	1] IHCH	*
 E" [spec button :value ui-button-new-with-color set-key gtk-signal-connect "clicked" #[(w) "	" [build-color:clicked spec] 2] nconc :widget] 4])
(put (quote color) (quote builder) build-color)
(defun build-color:clicked #[(spec) "D		0 	
		
H	
CH	CHCH		H	H	E" [colorsel gtk-signal-connect :value spec "clicked" #[(w) "	" [gtk-widget-destroy colorsel] 2] gtk-color-selection-dialog-new _ "Select color" gtk-color-selection-set-color-interp gtk-color-selection-dialog-colorsel gdk-color-parse-interp gtk-color-selection-dialog-ok-button #[(w) "D		F0 I			
	
F2 * >
H
H	E" [color spec name colorsel gtk-color-selection-get-color-interp gtk-color-selection-dialog-colorsel format "#%04x%04x%04x" gdk-color-red gdk-color-green gdk-color-blue :allow-nil ui-set :variable ui-set-button-color :widget gtk-widget-destroy] 8] gtk-color-selection-dialog-cancel-button "delete_event" gtk-widget-hide gtk-color-selection-dialog-help-button gtk-widget-show gtk-grab-add] 5])
(defun build-file #[(spec) "D 		1	 )FLD3	 &	J
EHM ] 9
IH
CH*
 E" [spec button :value w gtk-button-new-with-label file-name-nondirectory "" gtk-container-children gtk-label-p gtk-label-set-line-wrap set-key gtk-signal-connect "clicked" #[(w) "	" [build-file:clicked spec] 2] nconc :widget] 4])
(put (quote file-name) (quote builder) build-file)
(defun build-file:clicked #[(spec) "D		0 	
H
	CH	CH
CH	E" [filesel gtk-signal-connect :value spec "clicked" #[(w) "	" [gtk-widget-destroy filesel] 2] gtk-file-selection-new _ "Select file" gtk-file-selection-set-filename gtk-file-selection-ok-button #[(w) "D	F0`  IF HH	
	
H	E" [value spec filesel gtk-file-selection-get-filename "" :allow-nil ui-set :variable ui-set-button-label :widget file-name-nondirectory gtk-widget-destroy] 5] gtk-file-selection-cancel-button "delete_event" gtk-widget-show] 4])
(defun build-symbol #[(spec) "D1T	2 60I6] )LHa DI666	 k PI TiS
L	
RHS
HLa {SJ
HF&HS	HS
+++IHh M! C	
H 	
H	E a*D!	4\"JH#$
H%&
L		
HLa'H(I
Hh M! )*CH+,*
#E-aD.I
6/kJINiS
L	
RHLag0SJ
H1SIFHS
2+++IHh M!=EE" [i values buttons spec clist :value type menu history omenu symbol-name gtk-signal-connect box "toggled" lambda (w) when build-symbol:select-row make-vector :widget ui-set-style group set-key gtk-option-menu-new gtk-menu-new gtk-radio-menu-item-new-with-label-from-widget gtk-menu-append gtk-check-menu-item-set-state gtk-widget-show (gtk-check-menu-item-active w) gtk-option-menu-set-menu gtk-option-menu-set-history list gtk-clist-new gtk-clist-set-column-auto-resize gtk-clist-set-selection-mode browse gtk-clist-append vector gtk-clist-select-row gtk-clist-moveto "select_row" #[(clist row col) "
" [build-symbol:select-row spec row] 3] nconc :clist radio gtk-vbox-new gtk-radio-button-new-with-label-from-widget gtk-toggle-button-set-state gtk-box-pack-start (gtk-toggle-button-active w)] 10])
(put (quote symbol) (quote builder) build-symbol)
(defun build-symbol:select-row #[(spec row) "P" [spec ui-set :variable row] 5])
(defvar ui-keymap-shell nil)
(defun build-keymap #[(spec) "DI
I
I
												
	506
666
612
H
H
H
HJHJH 
H!\"FH# ȟdH
H$
H
H
H
H

H%M FLD6&M'I(L

EHM )*+,-.
&.CH/CH
0CH12CH3
H4
5
H
HE" [clist vbox hbox gtk-container-add _ scroller spec vbox-2 gtk-signal-connect gtk-button-new-with-label deleteb copy insert label cell "clicked" gtk-vbox-new vector gtk-box-set-spacing gtk-container-border-width gtk-clist-set-column-auto-resize gtk-hbox-new gtk-label-new :doc "Insert" "Copy" "Delete" gtk-clist-new-with-titles "Key" "Command" gtk-scrolled-window-new gtk-clist-set-selection-mode browse gtk-scrolled-window-set-policy automatic gtk-widget-set-usize gtk-box-pack-end :value gtk-clist-append format "%S" nconc :shell ui-keymap-shell :clist :selection #[nil "	" [build-keymap:copy spec] 2] #[nil "	" [build-keymap:insert spec] 2] #[nil "	" [build-keymap:delete spec] 2] "select_row" #[(w row col) "H	" [spec set-key :selection row build-keymap:select-row] 4] gtk-box-pack-start gtk-label-set-justify left] 12])
(put (quote keymap) (quote builder) build-keymap)
(defun build-keymap:select-row #[(spec) "D31MPF2 #ML *	E" [spec shell binding row build-keymap-shell:set-binding :selection :shell :value "" nop] 5])
(defun build-keymap:insert #[(spec) "D1QF3KMKOH	H

H
E" [spec map :selection pred "Null" :clist :value nop ui-set :variable gtk-clist-insert vector "nop" gtk-clist-select-row] 7])
(defun build-keymap:copy #[(spec) "D3MP2QF4LMKMKOHH	
MIL
H
FhHE" [spec :selection binding map pred :clist :value ui-set :variable gtk-clist-insert vector format "%S" set-key gtk-clist-select-row] 10])
(defun build-keymap:delete #[(spec) "D1QFF4OHH
E" [spec map :selection :value pred ui-set :variable gtk-clist-remove :clist] 5])
(defun ui-bind-key #[(spec index new) "D2MQF3L`] ILMKNH	
HMHILE" [spec new map cell gtk-clist-set-text :clist index :value :selection ui-set :variable format "%S"] 9])
(defun build-keymap-shell #[(spec) "D6'6I
4I
5I
1(6I
6)*		6+			266
,-	6.			666	/T	6
H
H
H
H
H
H F&0H

H12
HFOH345678
9:.
  FH! ȟdH
H\"JH;FLD6#$<#		
EHM
H
H%
H
H&=CH>?CH@ACH	 FH\"JHBC
H!	dFH	
H	
H
HFLD6
D$
L	
6
L
D
	RHESS	EEHM&FCHGFH%JFHJFH
IJHE" [spec vbox map-clist gtk-container-add hbox-1 vbox-2 cmd-clist vector scroller scroller-2 page entry entry-hbox doc-frame doc-label maps gtk-signal-connect pages _ entry-button frame gtk-box-set-spacing gtk-container-border-width gtk-box-pack-end row gtk-hbox-new gtk-vbox-new gtk-clist-new-with-titles gtk-frame-new gtk-scrolled-window-new :doc-path gtk-scrolled-window-set-policy automatic gtk-widget-set-usize gtk-clist-set-column-auto-resize c gtk-clist-append gtk-box-pack-start "select_row" ui-keymap-shell gtk-entry-new gtk-button-new-with-label "Grab key..." "Keymaps" gtk-label-new "" "Commands" make-vector documentation-files gtk-label-set-justify left nconc :maps :frame :cmd-clist :entry :doc-frame :doc-label :active-map :commands symbol-name #[(w row col) "H	" [spec set-key :active-cmd row build-keymap-shell:set-command] 4] "changed" #[(w) "	" [build-keymap-shell:set-event spec] 2] "clicked" #[nil "	" [build-keymap-shell:grab spec] 2] gtk-clist-set-selection-mode browse build-ui gtk-widget-show-all #[(w row col) "" [build-keymap-shell:select-map spec maps row] 4] gtk-clist-select-row] 16])
(put (quote keymap-shell) (quote builder) build-keymap-shell)
(defun build-keymap-shell:current-binding #[(spec) "DS0SF5SMPE" [map spec :maps :active-map :selection binding :value] 5])
(defun build-keymap-shell:select-map #[(spec maps row) "D0H	 !FLD4	
EHM 
SS
HSS
HSS	E" [frame row maps spec w :frame set-key :active-map gtk-container-children gtk-container-remove gtk-frame-set-label gtk-container-add build-keymap:select-row] 4])
(defun build-keymap-shell:set-binding #[(spec event command) "y ,DF4TTX1HI
E 3	H	

H	" [spec c-row :cmd-clist command commands :commands gtk-clist-select-row gtk-clist-moveto gtk-clist-unselect-all gtk-entry-set-text :entry event build-keymap-shell:update-doc] 7])
(defun build-keymap-shell:set-event #[(spec) "D	3S0	SF4
SMPF1 9LK!SE" [map value spec text binding gtk-entry-get-text :entry :maps :active-map :selection :value ui-bind-key] 5])
(defun build-keymap-shell:set-command #[(spec) "D P3S1	SF5
SMPF2 @ @MKF\"HSH	E" [spec map value command :active-cmd binding :commands :maps :active-map :selection :value ui-bind-key build-keymap-shell:update-doc] 5])
(defun build-keymap-shell:update-doc #[(spec) "D2	3
	LF0n LF H Ey ED	4	
H @
	
E Q
H
E" [command spec frame label doc gtk-frame-set-label gtk-label-set "" :doc-frame :doc-label build-keymap-shell:current-binding documentation symbol-name _ "Undocumented"] 5])
(defun build-keymap-shell:grab #[(spec) "DJ
0
H	E" [event spec sawmill-eval (event-name (read-event)) gtk-entry-set-text :entry build-keymap-shell:set-event] 3])
(defun build-frame-style #[(spec) "DI
I
				IFF6266166	66
6
34
H
H
H
H	
H	
H

H
H
H
H
H	
H] LH  L	
\"!

HLa \"J
HF&H#	H$%&'()*+L*+++IHh&M!& ,

H-

H./	*
 0	HE" [spec values button hbox vbox gtk-container-add history i frame readme-label omenu previous doc-label menu :value gtk-label-new _ "Details" gtk-box-set-spacing gtk-container-border-width gtk-label-set-justify left gtk-vbox-new gtk-hbox-new gtk-option-menu-new gtk-menu-new :doc "" gtk-frame-new gtk-frame-set-label set-key gtk-radio-menu-item-new-with-label-from-widget symbol-name gtk-menu-append gtk-check-menu-item-set-state gtk-widget-show gtk-signal-connect "toggled" lambda (w) when (gtk-check-menu-item-active w) build-frame-style:set quote gtk-option-menu-set-menu gtk-option-menu-set-history nconc :readme build-frame-style:update-readme] 12])
(put (quote frame-style) (quote builder) build-frame-style)
(defun build-frame-style:set #[(spec value) "H	" [spec ui-set :variable value build-frame-style:update-readme] 4])
(defun build-frame-style:update-readme #[(spec) " s  uD
	5 FLD3D	
1 1s ^ ,u YFLD6
DI
3	 U!JtEEHM :EI 	
	!	 D
60 	H  u
H	 
 F H
EI E 
HJtEEHM 
EE" [text full spec dir out theme file gtk-label-set :readme expand-file-name suf "" symbol-name :value :theme-path ("%s" "%s.tar#tar/%s" "%s.tar.gz#tar/%s" "%s.tar.Z#tar/%s" "%s.tar.bz2#tar/%s") format file-directory-p i18n-filename "README" file-exists-p make-string-output-stream open-file read close-file copy-stream get-output-stream-string string-match "\\s+$" substring match-start] 7])
(defun match-window:edit #[(spec cell &optional callback) "D7+68+69:	6	;I
6
<6=		6 >		6!,?		6\",@		6#-TI2-.I6I6
I3AC6BCC6] DK)IKF&HEFCGC
&H	/	
HI	/	
H0
H
H0

H

H1
H2
H
H1
H2
H
HJK
HD0gD3L		6$644MK
HFhHFhH$FhHK
K&
%$&NCHhF EH.f
&
 LFLD65
PL	LML	
H
PMM
HhF EHM{E	

H'
#
H
\"
HO

H\"
H#
H 
H!
HD0I6FLD1DLMM5Pa^DQL		6'RJ
H<FhKi FhH]&LKKF#ESaD6(L		6)I*

HFhHFhHLKK#IF&ETaD3(L		64FhHFhH4K
H5			
HLKK#IF&EUaD(L		VJ
66666
H6
H'JFH'JFH)I*L
H)I*M
HFhHFhHLKKK#IF&EHhF EEHME#% &WCH%!&XCHY		HZ		H	E" [i prop table prop-widget-alist combo current table-1 entry gtk-table-attach-defaults window vbox hbox-2 _ match-widget-alist gtk-entry-set-text symbol-name use-rhs properties gtk-container-add label "" widget entry-2 entry-1 attach-label cell gtk-container-border-width gtk-entry-new matcher hbox x-properties gtk-button-new-with-label ok cancel frame frame-1 button gtk-signal-connect "clicked" gtk-box-pack-start gtk-label-new format "%d" spec gtk-frame-new gtk-table-new ui-match-window-max-matchers "Match window properties" gtk-box-set-spacing gtk-table-set-col-spacings gtk-table-set-row-spacings gtk-combo-new gtk-combo-set-popdown-strings gtk-combo-entry gtk-widget-set-usize :x-properties :properties gtk-window-new dialog gtk-vbox-new gtk-hbutton-box-new "OK" "Cancel" "Actions" "Matchers" #[nil " 	s uDCIFF3145 ]FLD0DL		M	6	F6
` =	
`] YL O
	F&	KKF$EEHM ] iItHFLD0M	 M	LJKKF!M	 M		F#LKKF!M	 M		F#
`]L
	KKF!Mn	DIF66		&		&LKKKF!E	EHM oEEK" [cell actions gtk-entry-get-text tem matchers read-num atom y x re "" out gtk-combo-entry intern #[(string) "
 
I
	" [string string-match "^[+-]?\\d+$" read make-string-input-stream] 4] match-widget-alist x-properties prop-widget-alist gtk-check-button-p gtk-toggle-button-active gtk-entry-p gtk-combo-p error "Unknown widget type"] 5] make-cell #[(table label &rest args) "DI
0
HE" [box gtk-hbox-new gtk-box-pack-end label apply gtk-table-attach-defaults table args] 5] WM_NAME nconc #[(p) "a" [p boolean] 2] #[(p) "a]" [p boolean] 2] gtk-window-set-title gtk-widget-set-name gtk-button-box-set-layout end "Grab..." cdr #[nil "D		1I0 &*J
F q] F H	
E" [prop string gtk-entry-get-text gtk-combo-entry combo sawmill-eval match-window-grab-x-property "" gtk-entry-set-text entry] 4] gtk-box-pack-end boolean gtk-check-button-new-with-label gtk-toggle-button-set-state number symbol pair gtk-hbox-new #[nil "D0  	EH	" [item callback make-cell gtk-widget-destroy window] 2] #[nil "	" [gtk-widget-destroy window] 2] gtk-widget-show-all gtk-grab-add] 8])
(defun build-match-window #[(spec) "DI
2I
13		
	0		6			6
 		6!6\"#6$I5%C6&C6'C6(C6)C6
H
H
H
HJHJH*+
H,-FH. H/JFH0
H	
H
H

H
H1 FLD62	
H] F%EHM 3H	
H

H
H4H56CHE" [clist hbox vbox scroller _ selection gtk-signal-connect gtk-container-add gtk-button-new-with-label add-b delete-b edit-b spec "clicked" select-row-callback format-cell add-callback delete-callback edit-callback gtk-box-set-spacing gtk-container-border-width gtk-clist-set-column-auto-resize item gtk-vbox-new gtk-hbox-new gtk-scrolled-window-new gtk-clist-new-with-titles vector "Matchers" "Actions" "Add..." "Delete" "Edit..." :x-properties x-properties :properties properties #[(w row col) "F!" [row selection] 2] #[(cell) "DIF01L 7FLD3 KF!HDILM *LMF2KF!EEHM 
M wFLD4 MKF HDILM2

 mF\"HKF EEHM ?	

	


E" [actions matchers string match action cell ", " format "%s=%s" apply concat x-properties string-match "=t$" substring match-start vector] 7] #[nil "IC" [match-window:edit spec #[(cell) "D0)
 	
H	E" [value spec cell :value append gtk-clist-append clist format-cell ui-set :variable] 4]] 4] #[nil " 9D0PF4 
HTe -TiF!f -IF!HE" [value selection spec :value item gtk-clist-remove clist ui-set :variable] 5] #[nil " DP2CE" [selection spec old-item :value match-window:edit #[(new-item) "DF30		2 M  \"L
a] HNHHSHSE" [ptr spec vec value new-item gtk-clist-set-text clist selection :value format-cell old-item ui-set :variable] 7]] 4] gtk-clist-set-selection-mode browse gtk-scrolled-window-set-policy automatic gtk-widget-set-usize gtk-box-pack-start gtk-box-pack-end :value gtk-clist-append gtk-clist-select-row "select_row" "button_press_event" #[(w ev) "	a 
" [gdk-event-type ev 2button-press edit-callback] 2]] 5])
(put (quote match-window) (quote builder) build-match-window)
(defun show-ui #[(spec) "DIFFF 	 		I
IFFFF6	6
666
04616666IJIH] 		&
 		&!		& u\"		&
#		&	$	
H%	
H&'H
H
H
H
H
H()
H]#*
H
+H,H	-H.CH 
/H
H
H
H	
H#

H
H0H1	H:2H6E" [hbox ui-window _ gtk-container-add vbox gtk-signal-connect gtk-button-new-with-label "clicked" ui-socket-id cancel refresh ui-revert-widget ui-apply-widget ui-ok-widget ui-enable-refresh ui-root "Sawmill configurator" gtk-box-set-spacing gtk-container-border-width gtk-plug-new gtk-window-new toplevel build-ui spec gtk-vbox-new gtk-hbutton-box-new ui-changed-variables ui-original-values ui-values-to-apply ui-apply-changed-hook gtk-window-set-policy "OK" "Try" "Revert" "Refresh" "Cancel" gtk-window-set-title gtk-widget-set-name "delete_event" ui-quit gtk-button-box-set-layout end gtk-box-pack-end ui-ok ui-apply ui-cancel #[nil "" [ui-revert] 1] ui-refresh ui-set-button-states gtk-widget-show-all gtk-main] 13])
(defun ui-set-button-states #[nil "] .  
H 
H . - -
" [gtk-widget-set-sensitive ui-apply-widget ui-values-to-apply ui-apply-changed-hook ui-revert-widget ui-changed-variables ui-ok-widget ui-socket-id] 3])
(defun ui-set-button-label #[(button text) "	 FLD0	 
EHM I" [w gtk-container-children button gtk-label-p gtk-label-set text] 4])
(defun ui-add-apply-hook #[(fun) " l l H
" [ui-apply-changed-hook ui-socket-id ui-values-to-apply ui-capplet-state-changed add-hook fun] 3])
(defun ui-set #[(spec symbol value) " l l H
HC KK 	
H" [ui-values-to-apply spec value ui-socket-id ui-apply-changed-hook ui-capplet-state-changed ui-set-original symbol #[(x) "La" [x spec] 2] set-key :value ui-set-button-states] 4])
(defun ui-set-original #[(spec symbol) "] KKF " [ui-original-values symbol :value spec] 3])
(defun ui-quit #[nil "	H	Ht" [sawmill-eval-async (customize-write-user-file) gtk-widget-destroy ui-window quit] 2])
(defun ui-set-variables #[nil "DC1K	HI I%E" [ui-values-to-apply commands #[(cell) "DL0M4F1] KF\"H 'IH	**+E" [spec symbol ui-changed-variables cell new-value :in-apply-hook quote :variable set-key customize-set] 5] ui-command progn ui-apply-changed-hook ui-set-button-states] 3])
(defun ui-apply #[nil "	HHIF " [ui-apply-changed-hook call-hook ui-set-variables] 2])
(defun ui-ok #[nil "H" [ui-apply ui-quit] 1])
(defun ui-revert #[(&optional dont-refresh) "DC1K	HI%I ] E" [ui-changed-variables commands #[(symbol) "*M*+" [quote symbol customize-set ui-original-values] 5] ui-command progn ui-values-to-apply dont-refresh ui-refresh] 3])
(defun ui-cancel #[nil "J	H" [ui-revert ui-quit] 2])
(defun ui-command #[(form) "l 	 " [form ui-debug sawmill-eval-async format standard-error "ui-command: %S
"] 4])
(defun ui-get-spec #[nil "**+J
" [sawmill-eval progn (require (quote customize)) customize-ui-spec quote ui-group] 6])
(defun ui-refresh #[nil "D	I12
H	H!I&I&I&	
	 
H
	HE" [ui-root spec vbox gtk-widget-parent gtk-container-remove gtk-widget-destroy ui-get-spec ui-changed-variables ui-values-to-apply ui-original-values build-ui gtk-box-pack-start gtk-widget-show-all ui-window ui-set-button-states] 3])
(defun ui-capplet-input #[nil "D	0 | I iI 	u
 &	 U

 3 U
 A U

 UJ	H	HIF\"H
H	Hl iEGHE" [tem string-match ui-window ui-revert standard-output read-line standard-input end-of-stream "apply" ui-apply "revert" "ok" ui-ok "cancel" gtk-widget-destroy write flush-file gtk-main-quit] 4])
(defun ui-capplet-state-changed #[nil "c
H	" [standard-output write flush-file] 3])
(defun flatten-doc-string #[(string) "D0 h RH  E" [point string match-start match-end string-match "[^
]
[^
]"] 4])
(defun documentation #[(symbol &optional is-var) "**+*)J
" [quote sawmill-eval list* let doc documentation symbol is-var ((and doc (_ doc)))] 8])
(defun i18n-filename #[(file) " .	 . 1 0.	 0. 1" [file concat ui-lang ui-lang-base file-exists-p] 5])
(defun ui-set-preview-color #[(preview color) "DY	I01  AY	 ZRHYh	 ZRHYV	 ZRHh f   Y	
Hh 
f LE" [i buf ui-color-preview-width color make-string gdk-color-red gdk-color-green gdk-color-blue gtk-preview-draw-row preview ui-color-preview-height] 6])
(defun ui-button-new-with-color #[(color-name) "D	 	I6012	
H &
H
H

HE" [color preview button color-name gtk-button-new gtk-preview-new gdk-color-parse-interp i gtk-preview-size ui-color-preview-width ui-color-preview-height ui-set-preview-color gtk-container-border-width gtk-container-add] 4])
(defun ui-set-button-color #[(button color-name) "D 	F2 /	 +FLD0	 (
H	EHM IE" [w color-name color gdk-color-parse-interp gtk-container-children button gtk-preview-p ui-set-preview-color gtk-widget-draw-interp] 5])
(jade-byte-code "x " [gtk-set-locale] 1)
(jade-byte-code "DI0J
F  	F$H	 F&HJ
F  3	
I
	F&E" [tem get-command-line-option "--group" intern ui-group "--notebook" notebook ui-pages-style "--socket-id" read make-string-input-stream ui-socket-id] 4)
(jade-byte-code " 
" [ui-socket-id set-input-handler standard-input ui-capplet-input] 3)
(jade-byte-code "DJ
0	] ! !	H
H		E" [locale-dir "sawmill" sawmill-eval (and (featurep (quote gettext)) (bindtextdomain "sawmill")) get-command-line-option "--disable-nls" require gettext bindtextdomain textdomain] 3)
(show-ui (ui-get-spec))