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

(run-byte-code "F!v" [(bad-arg missing-arg void-value invalid-function) backtrace-on-error] 2)
(defvar version "0.30.3")
(defvar glade-file "/usr/share/sawfish/0.30.3/themer.glade")
(defvar locale-dir "/usr/share/sawfish/0.30.3/locale")
(run-byte-code "	] 	 	H
H	v" [locale-dir "sawfish" get-command-line-option "--disable-nls" file-directory-p require gettext bindtextdomain textdomain] 3)
(require (quote gtk))
(require (quote libglade))
(defvar sawfish-client-program "sawfish-client")
(defvar reload-themes-after-saving t)
(defvar filter-when-saving nil)
(defvar help-launcher nil)
(defvar preferences-attrs (run-byte-code "	**	***v" [boolean _ reload-themes-after-saving "Reload themes in window manager after saving." filter-when-saving "Remove unused definitions when saving."] 5))
(defvar frame-part-classes (quote (title menu-button close-button iconify-button maximize-button top-border left-border right-border bottom-border top-left-corner top-right-corner bottom-left-corner bottom-right-corner)))
(defvar frame-part-attrs (run-byte-code "K*Kv" [class symbol frame-part-classes ((left-edge (optional number)) (right-edge (optional number)) (top-edge (optional number)) (bottom-edge (optional number)) (width (optional (number 1))) (height (optional (number 1))) (background (or pattern color)) (foreground (or pattern color)) (font (optional font)) (text (or (symbol window-name window-icon-name) string)) (x-justify (or (symbol left right center) number)) (y-justify (or (symbol top bottom center) number)) (cursor (optional symbol)) (removable boolean) (below-client boolean))] 3))
(defvar pattern-type (quote (or color image)))
(defvar pattern-attrs (run-byte-code "v" [(inactive focused highlighted inactive-highlighted clicked inactive-clicked)] 1))
(defvar pattern-classes (quote (background foreground)))
(defvar image-attrs (run-byte-code "				
	-**Kv" [list* labelled _ (number) border optional v-and "[left]" "[right]" "[top]" "[bottom]" ((tiled boolean))] 10))
(defvar window-types (quote (default transient shaped shaped-transient unframed)))
(defvar and-direction (quote horizontal))
(defvar current-filename nil)
(defvar xml (run-byte-code "	 

 ,	
DU8	 #8 
E ,		v" [glade-file file-exists-p glade-xml-new "top-level-window" expand-file-name "themer.glade" file-name-directory load-filename error "can't open file themer.glade"] 65540))
(defvar theme-name-entry (run-byte-code "
v" [glade-xml-get-widget xml "theme-name-entry"] 3))
(defvar theme-dir-entry (run-byte-code "
v" [glade-xml-get-widget xml "theme-dir-entry"] 3))
(defvar theme-about-text (run-byte-code "
v" [glade-xml-get-widget xml "theme-about-text"] 3))
(defvar theme-name (quote unnamed))
(defvar patterns-name-entry (run-byte-code "
v" [glade-xml-get-widget xml "patterns-name-entry"] 3))
(defvar patterns-clist (run-byte-code "
v" [glade-xml-get-widget xml "patterns-clist"] 3))
(defvar patterns-table (run-byte-code "
v" [glade-xml-get-widget xml "patterns-table"] 3))
(defvar patterns-changed-hook nil)
(defvar patterns-item-alist nil)
(defvar patterns-selection nil)
(defvar patterns-alist nil)
(defvar frames-name-clist (run-byte-code "
v" [glade-xml-get-widget xml "frames-name-clist"] 3))
(defvar frames-frame (run-byte-code "
v" [glade-xml-get-widget xml "frames-frame"] 3))
(defvar frames-part-table-viewport (run-byte-code "
v" [glade-xml-get-widget xml "frames-part-table-viewport"] 3))
(defvar frames-part-clist (run-byte-code "
v" [glade-xml-get-widget xml "frames-part-clist"] 3))
(defvar frames-alist nil)
(defvar frame-selection nil)
(defvar frame-part-selection nil)
(defvar frame-part-table-items nil)
(defvar mapping-combo-hbox (run-byte-code "
v" [glade-xml-get-widget xml "mapping-combo-hbox"] 3))
(defvar mapping-from-combo (run-byte-code "
v" [glade-xml-get-widget xml "mapping-from-combo"] 3))
(defvar mapping-to-combo (run-byte-code "
v" [glade-xml-get-widget xml "mapping-to-combo"] 3))
(defvar mapping-clist (run-byte-code "
v" [glade-xml-get-widget xml "mapping-clist"] 3))
(defvar mapping-alist nil)
(defvar mapping-selection nil)
(defvar preview-window nil)
(defvar saved-variables (quote (patterns-alist frames-alist mapping-alist theme-name)))
(run-byte-code "x] 	Fv" [quotient /] 2)
(defmacro mapseq #[3 "9*):+8K+v" [__mapseq-i__ let list* while < (__mapseq-i__) ((setq __mapseq-i__ (1+ __mapseq-i__)))] 7])
(defmacro save-entry-contents #[16777217 "8**)9K8++v" [let __save_entry_text__ gtk-entry-get-text unwind-protect progn list* gtk-entry-set-text (__save_entry_text__)] 8])
(defmacro with-clist-frozen #[16777217 "8*9K8*++v" [progn gtk-clist-freeze unwind-protect gtk-clist-thaw] 6])
(defun make-item #[2 "D8L 8FUzFU 8;:Mv9
v" [item-maker apply error "No item type %s"] 65541])
(defun set-item-enabled #[2 "8	9
v" [set-widget-enabled widget] 3])
(defun make-symbol-item #[16777217 "DU8	9H: 8:K
HCv" [gtk-combo-new gtk-signal-connect gtk-combo-entry "changed" gtk-combo-set-popdown-strings "" symbol-name #[1 "8a 	Cv8a Cv8a Cv8a $9v8a -v" [set #[1 ":	8 8	 
v" [gtk-entry-set-text gtk-combo-entry symbol-name ""] 4] clear #[0 "9	
v" [gtk-entry-set-text gtk-combo-entry ""] 3] get #[0 "9			v" [string-to-symbol gtk-entry-get-text gtk-combo-entry] 4] widget validp symbolp] 2]] 65541])
(run-byte-code "{v" [symbol item-maker make-symbol-item] 3)
(defun make-string-item #[1 "DU89HCv" [gtk-entry-new gtk-signal-connect "changed" #[1 "8a 	Cv8a Cv8a Cv8a $9v8a -v" [set #[1 ":8
v" [gtk-entry-set-text] 3] clear #[0 "9
v" [gtk-entry-set-text ""] 3] get #[0 "9	DFU` 
Iv8v" [gtk-entry-get-text ""] 65539] widget validp stringp] 2]] 65540])
(run-byte-code "{v" [string item-maker make-string-item] 3)
(defun make-number-item #[8193 "9 
: DU89HCv" [gtk-spin-button-new gtk-adjustment-new gtk-signal-connect "changed" #[1 "8a 	Cv8a v8a Cv8a #9v8a ,v" [set #[1 "8p 	:8
v" [gtk-spin-button-set-value] 3] clear nop get #[0 "9	v" [gtk-spin-button-get-value-as-int] 2] widget validp numberp] 2]] 65544])
(run-byte-code "{v" [number item-maker make-number-item] 3)
(defun make-boolean-item #[4097 "9 
9	 DU89HCv" [gtk-check-button-new-with-label gtk-check-button-new gtk-signal-connect "toggled" #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 ":8
v" [gtk-toggle-button-set-state] 3] clear #[0 "9I
v" [gtk-toggle-button-set-state] 3] get #[0 "9	v" [gtk-toggle-button-active] 2] widget validp #[0 "Jv" [] 1]] 2]] 65540])
(run-byte-code "{v" [boolean item-maker make-boolean-item] 3)
(defun make-color-item #[1 "DIU8	U8CHCv" [button-new-with-color gtk-signal-connect "clicked" #[0 "		DU: 8	:	
H	8	
CH8	CH8CH
8		H8	H8	v" [gtk-signal-connect "clicked" #[0 "8	v" [gtk-widget-destroy] 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 #[0 "8		DFU I8	8	8	
:;
H<H9	v" [gtk-color-selection-get-color-interp gtk-color-selection-dialog-colorsel format "#%04x%04x%04x" gdk-color-red gdk-color-green gdk-color-blue set-button-color gtk-widget-destroy] 65544] gtk-color-selection-dialog-cancel-button "delete_event" gtk-widget-hide gtk-color-selection-dialog-help-button gtk-widget-show gtk-grab-add] 65540] #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 "8:;
v" [set-button-color] 3] clear #[0 "I9I
v" [set-button-color] 3] get #[0 ":v" [] 1] widget validp #[1 "8q 	8
v" [string-match "^#"] 3]] 2]] 65540])
(run-byte-code "{v" [color item-maker make-color-item] 3)
(defun make-font-item #[1 "DI
UU		U:9
H:8
H9;H8	CH
Cv" [gtk-box-pack-start gtk-signal-connect gtk-hbox-new gtk-entry-new gtk-button-new-with-label _ "Browse..." "changed" "clicked" #[0 "		DU8:	
H8		CH
8	CH8CH8	H
8	v" [gtk-signal-connect "clicked" #[0 "8	v" [gtk-widget-destroy] 2] gtk-font-selection-dialog-new _ "Select font" gtk-font-selection-dialog-set-font-name gtk-entry-get-text gtk-font-selection-dialog-ok-button #[0 ":8	
H8	v" [gtk-entry-set-text gtk-font-selection-dialog-get-font-name gtk-widget-destroy] 4] gtk-font-selection-dialog-cancel-button "delete_event" gtk-widget-show gtk-grab-add] 65540] #[1 "8a 	Cv8a Cv8a Cv8a $;v8a .Cv" [set #[1 ";8q 8
v" [gtk-entry-set-text] 3] clear #[0 ":
v" [gtk-entry-set-text ""] 3] get #[0 ":	DFUq 8v" [gtk-entry-get-text] 65539] widget validp #[1 "8] 8qv" [] 1]] 2]] 65540])
(run-byte-code "{v" [font item-maker make-font-item] 3)
(defun make-pattern-item #[1 "DU8	9HC
HCv" [gtk-combo-new gtk-signal-connect gtk-combo-entry "changed" add-hook patterns-changed-hook #[0 "ID8		DU 9	8
H * 
u9K
EI 
v" [gtk-combo-entry frame-part-selection gtk-entry-get-text gtk-entry-set-text gtk-combo-set-popdown-strings "" car patterns-alist] 196614] #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 ":	8
v" [gtk-entry-set-text gtk-combo-entry] 3] clear #[0 "9	
v" [gtk-entry-set-text gtk-combo-entry ""] 3] get #[0 "9		DFU 8v" [gtk-entry-get-text gtk-combo-entry patterns-alist] 65540] widget validp #[1 "8q 8v" [patterns-alist] 2]] 2]] 65540])
(run-byte-code "{v" [pattern item-maker make-pattern-item] 3)
(defun make-image-item #[1 "I
				IDUUUUU8;JFH89IFH8:IFH9	CH:
CH;=HCv" [gtk-box-pack-start gtk-signal-connect gtk-button-new-with-label _ "clicked" gtk-hbox-new "Browse..." "Properties..." gtk-entry-new #[0 "		DU8<	
H8		CH
8	CH8CH8	H
8	v" [gtk-signal-connect "clicked" #[0 "8	v" [gtk-widget-destroy] 2] gtk-file-selection-new _ "Select Image" gtk-file-selection-set-filename gtk-entry-get-text gtk-file-selection-ok-button #[0 "8	DU9	H=8
v" [gtk-file-selection-get-filename gtk-widget-destroy gtk-entry-set-text] 65539] gtk-file-selection-cancel-button "delete_event" gtk-grab-add gtk-widget-show] 65540] #[0 "D
U8
U9
UTIU	CU
CUCU>9H>
8H<	 RFLDU8	 O=8
EHM ?=	
H<;JFH;
H;
HDU 8DFU<PM	8<PL>
M	H=8<PL		8FhH=8<PM	8FhEH8h8;Tf {EH=	H=	v" ["props-dialog" glade-xml-get-widget image-attrs glade-xml-signal-connect gtk-table-attach-defaults glade-xml-new glade-file "props-vbox" gtk-table-new #[1 "8L8
Kv" [make-item nop] 4] #[0 "C8	IDU 8>

I>
F EH>
H;	v" [#[1 "8L8M	Kv" [get] 3] gtk-widget-destroy] 65538] #[0 "<	v" [gtk-widget-destroy] 2] "on-props-ok" "on-props-cancel" gtk-container-children gtk-label-p gtk-container-remove gtk-window-set-title _ "Image Properties" gtk-box-pack-start gtk-table-set-col-spacings gtk-table-set-row-spacings set gtk-label-new symbol-name widget gtk-widget-show-all gtk-grab-add] 196616] "changed" #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 "=8L
H8MFv" [gtk-entry-set-text] 3] clear #[0 "<
HIFv" [gtk-entry-set-text ""] 3] get #[0 "<	DFU` 
Iv8>Kv" [gtk-entry-get-text ""] 65539] widget validp #[1 "8o 8Lqv" [] 1]] 2]] 65541])
(run-byte-code "{v" [image item-maker make-image-item] 3)
(defun make-or-item #[16777217 "C9DI
UC:UC;U<TI
UIUCUCUDU b8DU8>P	
CH>8>P
H8>P8>P
H8>P8>
P	
EH8h8>	Tf ,EH9HCv" [gtk-box-pack-start #[1 "89
v" [make-item] 3] gtk-vbox-new #[0 "I
v" [gtk-hbox-new] 3] #[0 "v" [gtk-check-button-new] 1] make-list #[0 "C>DU> )FLDU8:8a
H9<P:8a
H9hFEHM E=v" [#[1 "98av" [] 2] set-item-enabled gtk-toggle-button-set-state] 131077] #[1 "8>P:a 8<P	 8<P	 8>PFH9v" [gtk-toggle-button-active] 3] gtk-signal-connect "toggled" #[0 ":8	v" [] 2] widget #[1 "8a 	Cv8a Cv8a Cv8a %>v8a /Cv" [set #[1 "8 	F c< \"<	8	 \"<	8	 cs c uDU N8DFU>P	:	 I8>PF	:	HJtEH8h8>Tf ,EHI	8	EH;v" [validp set done message format _ "No matching item for %S"] 196614] clear #[0 "I>	 FLDFU	EHM :v" [clear] 65540] get #[0 "; ;	v" [get] 2] widget validp #[1 " s 2 uDU (8DFU>P	:	 #JtEH8h8>Tf EEv" [out validp] 196611]] 2]] 196612])
(run-byte-code "{v" [or item-maker make-or-item] 3)
(defun make-and-item #[16777217 "C9a  I
DUDU -8DU:8<P	
EH8h8;Tf EHCv" [#[1 "89
v" [make-item] 3] and-direction horizontal gtk-hbox-new gtk-vbox-new gtk-box-pack-start widget #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 "DU 8DFU>P	8:P	EH8h8=Tf v" [set] 131076] clear #[0 "; FLDFU	EHM Iv" [clear] 65540] get #[0 "C;v" [#[1 "8	v" [get] 2]] 2] widget validp #[1 "8] G8o 8T<T Ivs G uDU <8DFU>P	8:P	] 7ItEH8h8=Tf #EHEJv" [out validp] 196612]] 2]] 196612])
(run-byte-code "{HC{HC{v" [item-maker and make-and-item h-and #[16777216 "D8
v" [horizontal and-direction apply make-and-item] 65539] v-and #[16777216 "D8
v" [vertical and-direction apply make-and-item] 65539]] 3)
(defun make-labelled-item #[3 "I
DU;9
8;	
H8:	
H8	HCv" [gtk-box-pack-start gtk-hbox-new make-item widget gtk-label-new gtk-widget-show-all #[1 "8a 9v<8	v" [widget] 2]] 65540])
(run-byte-code "{v" [labelled item-maker make-labelled-item] 3)
(defun make-optional-item #[2 "I
DUU;:
89
H8;	
H9CH9I
H	;	I
H
Cv" [gtk-box-pack-start widget gtk-hbox-new gtk-check-button-new make-item gtk-signal-connect "toggled" #[0 ";	9	
H:v" [set-widget-enabled widget gtk-toggle-button-active] 4] gtk-toggle-button-set-state set-widget-enabled #[1 "8a 	Cv8a Cv8a Cv8a $9v8a .Cv" [set #[1 "8 	=	8	H=	8
H;8
v" [set set-widget-enabled widget gtk-toggle-button-set-state] 3] clear #[0 "<	H<	I
H:I
v" [clear set-widget-enabled widget gtk-toggle-button-set-state] 3] get #[0 ":	 
<	v" [gtk-toggle-button-active get] 2] widget validp #[1 "8] 
=	8	v" [validp] 2]] 2]] 65540])
(run-byte-code "{v" [optional item-maker make-optional-item] 3)
(defun update-theme-name #[0 " 	 

v" [theme-name gtk-entry-set-text theme-name-entry symbol-name ""] 4])
(defun on-theme-name-entry-changed #[0 "		F#v" [string-to-symbol gtk-entry-get-text theme-name-entry theme-name] 3])
(defun clear-readme-text #[0 "
H	
v" [theme-about-text gtk-text-set-point gtk-text-forward-delete gtk-text-get-length] 4])
(defun write-readme-file #[1 "	8

DUU9 . !9	H . u98
EI v" [theme-about-text write gtk-editable-get-chars gtk-text-get-length open-file expand-file-name "README" close-file] 131077])
(defun read-readme-file #[1 "D8
U8	 8
FU I 8	H I uIDUH :IFF8FTH	9	F -EEI v" [expand-file-name "README" file-exists-p open-file read close-file clear-readme-text gtk-text-insert theme-about-text read-line] 196617])
(defun patterns-format-pattern #[1 "8MFq 
8v8n 8L	vv" [file-name-nondirectory ""] 3])
(defun patterns-format-list #[1 "8LCv" [apply vector #[1 "89MDFU 8	vv" [patterns-format-pattern ""] 65539] pattern-attrs] 5])
(defun patterns-update-all #[0 "	H 	H ] u TFLDFUM FFLDFUDFUq B8	] B B9M8	
NEEHM 	8	
EHM EIF v" [patterns-clist current-filename gtk-clist-freeze gtk-clist-thaw patterns-alist file-name-absolute-p expand-file-name file-name-directory gtk-clist-append patterns-format-list] 262153])
(defun on-patterns-add #[0 "D
FU)U8)
 8	
HTiH	
	HI
	9	v" [patterns-alist patterns-clist make-new-name "pattern" car nconc gtk-clist-append patterns-format-list gtk-clist-select-row call-hook patterns-changed-hook message format _ "Added pattern `%s'"] 65542])
(defun on-patterns-copy #[0 "Iv" [] 1])
(defun on-patterns-delete #[0 " DUI 8P!	H8
Ev" [patterns-selection patterns-alist call-hook patterns-changed-hook gtk-clist-remove patterns-clist] 65539])
(defun on-patterns-clist-select-row #[3 "9a] :9PDFU 58L
H ,FLDFUM	8L9MM	EHM J
EH9F v" [patterns-selection patterns-alist gtk-entry-set-text patterns-name-entry patterns-item-alist set set-widget-enabled patterns-table] 131077])
(defun on-patterns-clist-unselect-row #[0 "I 
H FLDFUM	EHM I
v" [patterns-selection gtk-entry-set-text patterns-name-entry "" patterns-item-alist clear set-widget-enabled patterns-table] 65540])
(defun on-patterns-entry-changed #[0 "H	v" [patterns-update-alist call-hook patterns-changed-hook] 2])
(defun patterns-update-alist #[0 " pP	CDUUU9HDU 58DU8h8<P	EH8h8;Tf !EH9	` HIFHIDU; aFLDFUM ^89KFEHM P89:NH98OEEv" [patterns-selection gtk-clist-set-text patterns-clist patterns-alist gtk-entry-get-text patterns-name-entry #[1 "8L8M	Kv" [get] 3] patterns-item-alist patterns-format-pattern ""] 196616])
(defun create-patterns-items #[0 "C DU $8DU8PM	8h8VEH8h8Tf EH	Hv" [patterns-item-alist patterns-table #[1 "8
Kv" [make-item pattern-type patterns-update-alist] 4] pattern-attrs gtk-table-attach-defaults widget gtk-widget-show-all] 131080])
(defmacro current-frame #[0 "v" [(and frame-selection (nth frame-selection frames-alist))] 1])
(defun frames-update-all #[0 "I%I&	H 	H T u	H %	H O u	H	H FFLDU	8L	
EHM 6EIF EI v" [frames-name-clist frames-part-clist gtk-clist-freeze gtk-clist-thaw clist-delete-all frame-selection frame-part-selection frames-alist gtk-clist-append vector] 196615])
(defun on-frames-add #[0 "		DFU 88] 88))
 8	
HH	
	HI
	8	v" [frames-alist _ string-dialog "Frame name" nconc gtk-clist-append frames-name-clist vector update-frame-names-clist call-hook frames-changed-hook message format "Added frame `%s'"] 65542])
(defun on-frames-copy #[0 " G		PMDUFU F8] F89	K)
 	8	
H
H	H
I	8	Ev" [frames-alist frame-selection _ string-dialog "Frame name" nconc copy-tree gtk-clist-append frames-name-clist vector update-frame-names-clist call-hook frames-changed-hook message format "Added frame `%s'"] 65542])
(defun on-frames-delete #[0 " DUI 8P!	H8
Ev" [frame-selection frames-alist call-hook frames-changed-hook gtk-clist-remove frames-name-clist] 65539])
(defun on-frames-name-clist-select #[3 "9a] V9  PL
H	H $	H P u	H 4PM GFLDU	8	
EHM 8EIF H
J
v" [frame-selection frames-part-clist frames-frame frames-alist gtk-frame-set-label gtk-clist-freeze gtk-clist-thaw clist-delete-all gtk-clist-append frame-part-columns set-widget-enabled] 131078])
(defun on-frames-name-clist-unselect #[0 "D PMTiUI 
H	H #	H > u 38
H8i8e *EI H	I
v" [frame-selection frames-part-clist frames-frame frames-alist gtk-frame-set-label "" gtk-clist-freeze gtk-clist-thaw gtk-clist-remove set-widget-enabled] 131076])
(defun update-frame-names-clist #[0 "DU	H 	H 5 
u ,FLDU98LH9hFEHM EIF 
v" [frames-name-clist gtk-clist-freeze gtk-clist-thaw frames-alist gtk-clist-set-text] 196615])
(defun frame-part-columns #[1 "8C8DUU8 8M	 	9 'I9 )
v" [class #[1 "8La]v" [class] 2] vector symbol-name _ "<none>" format "%S" "()"] 65542])
(defun update-frame-part #[0 " &D 
PMPU8	U8SH8SEv" [frame-part-selection frame-selection gtk-clist-set-text frames-part-clist frames-alist frame-part-columns] 65542])
(defun on-frames-part-clist-select #[3 "9a] 9 HJ
v" [frame-part-selection update-frame-part-table set-widget-enabled frames-part-table-viewport] 3])
(defun on-frames-part-clist-unselect #[0 "DUI HI
v" [frame-part-selection clear-frame-part-table set-widget-enabled frames-part-table-viewport] 65539])
(defun on-frames-add-part #[0 " PDFU *IDU99M8)
OH8	
H9MTiEv" [frame-selection frames-part-clist frames-alist nconc gtk-clist-append frame-part-columns gtk-clist-select-row] 131077])
(defun on-frames-delete-part #[0 "   PDUUI 898MP8MOH9
Ev" [frame-part-selection frame-selection frames-alist gtk-clist-remove frames-part-clist] 65539])
(defun update-frame-part-table #[0 " 8 8D PU8MPFU 3FLDFULMDFU /8	9M	EEHM EIv" [frame-selection frame-part-selection frames-alist frame-part-table-items set] 196612])
(defun clear-frame-part-table #[0 " FLDFUM	EHM Iv" [frame-part-table-items clear] 65540])
(defun on-frame-part-attr-changed #[1 "8 \\8 PDUU9 [ [D9MPU9L8U<	FU K9 :9=	O W<MQ;L=	K:KN W9 W<MQ9:NHEEv" [frame-part-selection get frame-selection frame-part-table-items frames-alist update-frame-part] 131077])
(defun create-frame-part-table #[0 "DTIUU9
H9
HI  wFLDUI
I
IDUUU;	C
;L:KK 
8;L		
H
9:	JFH=8<FhH=9<FhH<hFEEHM 	 FLDU8
EHM 9
H
,
H9	H9v" [frame-part-table-items frames-part-table-viewport frame-part-attrs gtk-hbox-new gtk-table-attach-defaults gtk-table-new gtk-table-set-row-spacings gtk-table-set-col-spacings make-item #[0 ":	v" [on-frame-part-attr-changed] 2] gtk-box-pack-end gtk-label-new symbol-name gtk-box-pack-start widget gtk-container-children gtk-container-remove gtk-container-add gtk-paned-set-position glade-xml-get-widget xml "frames-part-vpaned" gtk-widget-show-all] 196616])
(defun mappings-update-all #[0 "	H 	H 7 u	H .FLDU8L	8M

EHM EIF v" [mapping-clist gtk-clist-freeze gtk-clist-thaw clist-delete-all mapping-alist gtk-clist-append vector symbol-name] 131079])
(defun on-mapping-add #[0 "C
	DU8K)
 	
8	

HTiH
	HI	8	v" [mapping-alist "" mapping-clist intern make-new-name "type" #[1 "8L	v" [symbol-name] 2] nconc gtk-clist-append vector symbol-name gtk-clist-select-row call-hook mappings-changed-hook message format _ "Added frame type `%s'"] 65541])
(defun on-mapping-delete #[0 " DUI 8P!	H8
Ev" [mapping-selection mapping-alist call-hook mappings-changed-hook gtk-clist-remove mapping-clist] 65539])
(defun on-mapping-from-changed #[0 " &P			DUU9 %89NH8L	Ev" [mapping-selection mapping-alist string-to-symbol gtk-entry-get-text gtk-combo-entry mapping-from-combo gtk-clist-set-text mapping-clist symbol-name] 65542])
(defun on-mapping-to-changed #[0 " PDFU		OH8MEv" [mapping-selection mapping-alist gtk-entry-get-text gtk-combo-entry mapping-to-combo gtk-clist-set-text mapping-clist] 65542])
(defun on-mapping-clist-select #[3 "9 J
H	PL	
H	PM
v" [mapping-selection gtk-entry-set-text gtk-combo-entry mapping-alist set-widget-enabled mapping-combo-hbox mapping-from-combo symbol-name mapping-to-combo] 5])
(defun on-mapping-clist-unselect #[0 "I#	
H	
HI
v" [gtk-entry-set-text gtk-combo-entry "" mapping-selection mapping-from-combo mapping-to-combo set-widget-enabled mapping-combo-hbox] 3])
(defun mapping-update-combos #[0 "ID		DU 	8
H ) u
EI EH		DU ?	8
H S 5u	
K
EI 5v" [gtk-combo-entry mapping-from-combo mapping-to-combo gtk-entry-get-text gtk-entry-set-text gtk-combo-set-popdown-strings mapping-selection symbol-name window-types "" car frames-alist] 196614])
(run-byte-code "
v" [add-hook frames-changed-hook mapping-update-combos] 3)
(defun on-preview #[0 "**	*,+	DU
8
 1
I			v] S
 D	DU8	H8
F!Ev" [quote preview-window "preview-window" sawfish-eval progn (require (quote make-theme-preview)) make-theme-preview patterns-alist frames-alist mapping-alist string-match "^error-->(.*)
" message format _ "error while building frame: %S" expand-last-match "\\1" glade-xml-new glade-file error "something happened" glade-xml-signal-autoconnect glade-xml-get-widget] 131080])
(defun on-preview-close #[0 " 	HIF v" [preview-window gtk-widget-destroy] 2])
(defun filter-unused-frames #[2 "C8v" [#[1 "8L:v" [] 2]] 2])
(defun filter-unused-patterns #[2 "IFDUU; GFLDFUM BFLDFU =FLDFUL :8M=F :<;] :<;KFEHM EM EM 	8v" [pattern-classes] 262150])
(defun print-list #[2 "9 
DUU8(
H ?:Ln %8:L;h

 +8:LH:MFn >8

H89
H:n : N8:H8)
H8	v" [write format make-string-output-stream make-string print-list "%S" " . %S" get-output-stream-string] 65542])
(defun update-all #[0 "HHHv" [update-theme-name patterns-update-all frames-update-all mappings-update-all] 1])
(defun set-current-filename #[1 "8 8 8	 
v" [current-filename gtk-entry-set-text theme-dir-entry file-name-directory ""] 4])
(defun save-to-file #[1 " | I8	v u8
DFU  )8	H  !u8H8	
H8

H8
HDU 
8L	DFUn k:9L8
 s:9L8EH8MF 9
H8 OEH8
H8H8
H8
HI	9	EI !v" [write format message file-error "%S" open-file close-file ";; theme file, written %s
" current-time-string ";; created by sawfish-themer -- DO NOT EDIT!

" "(require 'make-theme)

" "(let
    (" saved-variables symbol-value "(%s
      '%s)" print-list "(%s '%S)" "

     " ")

" "  (add-frame-style
   theme-name %S)
" (make-theme patterns-alist frames-alist mapping-alist) "  (when (boundp 'mark-frame-style-editable)
" "    (mark-frame-style-editable theme-name)))
" _ "Saved as `%s'"] 327689])
(defun generate-patterns #[2 "C8v" [#[1 "8LC8MKv" [#[1 "8MDFUn ^D8LU8	=
U9	 $8	 $9
H98`] O8	 >9	8	
 O98
H	I
98	H8	:MK;L:KFEH9v" [file-exists-p file-name-nondirectory file-modtime expand-file-name error "No such image: %s" time-later-p copy-file message format "%s -> %s/%s"] 131079]] 3]] 2])
(defun generate-theme #[1 "8	 8	] 8
H8	] 8	H	8
	H
 ;
!

F H8
D	EH8	HI	8	H m**	v" [patterns-alist frames-alist file-exists-p file-directory-p error "Not a directory: %s" make-directory set-current-filename expand-file-name "theme.jl" filter-when-saving filter-unused-frames mapping-alist filter-unused-patterns generate-patterns save-to-file current-filename write-readme-file message format _ "Generated theme in directory `%s'" reload-themes-after-saving sawfish-eval-async reload-frame-style quote theme-name] 65541])
(defun new-theme #[0 "	H 	H  u	EI H	H )	H 5 \"u	EI \"H	H D	H P =u	EI =H `FLDFUIAEHM V&	H
v" [gtk-clist-freeze patterns-clist gtk-clist-thaw clist-delete-all frames-name-clist mapping-clist saved-variables unnamed theme-name clear-readme-text update-all] 65541])
(defun load-from-file #[1 "H8
DFU } 8	H l u '| #I f u8	DFULa a8 QFLDFUL N8L8AEHM <I	
	:	EH +EEI H9	H
9		Hv" [read new-theme open-file close-file end-of-stream let saved-variables message format _ "Read theme from `%s'" set-current-filename read-readme-file file-name-directory update-all] 327687])
(defun on-save #[0 " 
		vv" [current-filename generate-theme file-name-directory on-save-as] 3])
(defun on-save-as #[0 "	 	
DFU 8	v" [current-filename file-dialog _ "Theme Directory" file-name-directory generate-theme] 65541])
(defun do-open #[1 "8	 8
	 8
F 	H /| $I8	v u	8	v" [expand-file-name "theme.jl" error file-directory-p file-exists-p "Can only load from directories with theme.jl files" message format "%S" load-from-file] 65541])
(defun on-open #[0 "	
DFU 8	v" [file-dialog _ "Open" current-filename do-open] 65540])
(defun on-new-theme #[0 "I	Hv" [set-current-filename new-theme] 2])
(defun save-preferences #[0 "	] 
	H
DFU F  8	H F u =FLDU9	8L
8L	EHM )EIF v" ["~/.sawfish" file-exists-p make-directory open-file "~/.sawfish/themer-prefs" write close-file preferences-attrs format "(setq %s '%S)
" symbol-value] 196617])
(defun load-preferences #[0 "	 JFFv" ["~/.sawfish/themer-prefs" file-exists-p load] 5])
(defun on-settings-preferences #[0 "D
U8
U9
UCUCU	CU=
9H=8H;
H
<	
H;	 XFLDU8	 U<8
EHM E: {FLDFUM	8L		H<8M	
EHM _<	H<	v" ["props-dialog" glade-xml-get-widget glade-xml-signal-connect glade-xml-new glade-file "props-vbox" #[1 "8L8
Kv" [make-item nop] 4] preferences-attrs #[0 "8 FLDFUL8M	AEHM H:	v" [get save-preferences gtk-widget-destroy] 65541] #[0 ";	v" [gtk-widget-destroy] 2] "on-props-ok" "on-props-cancel" gtk-container-border-width gtk-window-set-title _ "Preferences" gtk-container-children gtk-label-p gtk-container-remove set symbol-value gtk-box-pack-start widget gtk-widget-show-all gtk-grab-add] 131078])
(defun gnome-help-launcher #[1 "8M 8
I8	v" [((frames . "Frame_Basics") (classes . "Frame_Part_Classes") (defs . "Frame_Part_Definition") (themes . "Themes")) error "No help for %s!" system format "gnome-help-browser 'info:sawfish#%s' &"] 5])
(run-byte-code "F!v" [gnome-help-launcher help-launcher] 2)
(defun on-help-window-frames #[0 "	v" [help-launcher frames] 2])
(defun on-help-frame-classes #[0 "	v" [help-launcher classes] 2])
(defun on-help-frame-part-definitions #[0 "	v" [help-launcher defs] 2])
(defun on-help-themes #[0 "	v" [help-launcher themes] 2])
(defun on-help-about #[0 "D
 	U8
U9
UCU;	8H
9I

H:	v" ["about-dialog" glade-xml-get-widget glade-xml-new glade-file error "Can't create about dialog" "about-label" #[0 "9	v" [gtk-widget-destroy] 2] glade-xml-signal-connect "on-about-ok" gtk-label-set format "Sawfish Themer %s

Copyright (C) 2000 John Harper
<jsh@users.sourceforge.net>

This program allows window manager
themes for sawfish to be created
through a GUI.
" version gtk-grab-add] 65542])
(defun on-quit #[0 "tv" [quit] 2])
(defun copy-tree #[1 "IFFDUUU 6;Ln ;L	 ;L9 +9:IKOH9MF 2:IKFFH;M;n 
9 E9;OH8v;v" [copy-tree] 65540])
(defun string-to-symbol #[1 " 
| Iv u8	DFUy 8v" [error read-from-string] 131075])
(defun make-new-name #[2 "DU 	8hI98: I98v" [format "%s%d"] 65541])
(defun string-dialog #[1 "D
 	U8
U9
U:
U	CU
CUCU>9H>
8H=>
H;>
H=	H X=	H r Pu es m _uEEI Pv" [glade-xml-get-widget "string-dialog" glade-xml-signal-connect glade-xml-new glade-file error "Can't create string-dialog widget" "string-dialog-entry" "string-dialog-label" #[1 "8tv" [string-dialog-out] 2] #[0 "8:		v" [gtk-entry-get-text] 3] #[0 "9I	v" [] 2] "on-string-dialog-ok" "on-string-dialog-cancel" gtk-window-set-title gtk-label-set gtk-grab-add gtk-widget-destroy string-dialog-out recursive-edit] 196612])
(defun file-dialog #[4097 "8	DU: 
8:
H8	CH8	CH8CH	8	H
8	H ?8	H Y 7u Ls T Fu
EEI 7v" [gtk-signal-connect "clicked" #[0 "Itv" [filesel-out] 2] gtk-file-selection-new gtk-file-selection-set-filename gtk-file-selection-ok-button #[0 "8	tv" [filesel-out gtk-file-selection-get-filename] 3] gtk-file-selection-cancel-button "delete_event" gtk-grab-add gtk-widget-show gtk-widget-destroy filesel-out recursive-edit] 196612])
(run-byte-code "IDUUCCC
v" [remove-message #[0 "
DU 8
H9i9d 	Fv" [glade-xml-get-widget xml "statusbar" gtk-statusbar-pop] 65539] #[1 "
DUH89H:hIFv" [glade-xml-get-widget xml "statusbar" remove-message gtk-statusbar-push] 65540] message #[1 ":8
DUH8	v" [concat remove-message message] 65539] append-message add-hook idle-hook] 65539)
(defun set-button-label #[2 "8	 FLDU8	 8:
EHM Iv" [gtk-container-children gtk-label-p gtk-label-set] 65540])
(defun clist-delete-all #[1 " 8
H8	d v" [gtk-clist-remove gtk-clist-rows] 3])
(defun set-widget-enabled #[2 "89
v" [gtk-widget-set-sensitive] 3])
(defvar color-preview-width 28)
(defvar color-preview-height 16)
(defun set-preview-color #[2 "Y	IDUU ?89Y;	 ~RH89Yh;	 ~RH89YV;	 ~RH9h9f  U:89
H9h9f Jv" [color-preview-width make-string gdk-color-red gdk-color-green gdk-color-blue gtk-preview-draw-row color-preview-height] 65542])
(defun button-new-with-color #[1 "	8 8	IDUUUU9H: \"9:
H89
H8v" [gtk-button-new gtk-preview-new color gdk-color-parse-interp gtk-preview-size color-preview-width color-preview-height set-preview-color gtk-container-add] 65540])
(defun set-button-color #[2 "9 9	DFU ,9	 (FLDU8	 %89
H8	EHM Iv" [gdk-color-parse-interp gtk-container-children gtk-preview-p set-preview-color gtk-widget-draw-interp] 131077])
(defun sawfish-eval #[4097 "DU8	UJ8II:
k +9	; )	9	v9v
	v" [make-string-output-stream make-process print-escape call-process sawfish-client-program "-e" format "%S" get-output-stream-string read-from-string error "can't call sawfish-client"] 65545])
(defun sawfish-eval-async #[1 "I	JDU8II9k]  		v" [make-process print-escape call-process sawfish-client-program "-q" "-e" format "%S" error "can't call sawfish-client"] 65546])
(run-byte-code "HHHHHHHH	H
JH
	H CL	 CL	HMF H&v" [command-line-args load-preferences update-theme-name create-patterns-items on-patterns-clist-unselect-row on-frames-name-clist-unselect on-frames-part-clist-unselect on-mapping-clist-unselect mapping-update-combos create-frame-part-table gtk-clist-set-column-auto-resize frames-part-clist glade-xml-signal-autoconnect xml file-exists-p do-open exit interrupt-mode recursive-edit] 4)
