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

(run-byte-code "FAv" [(bad-arg missing-arg void-value invalid-function) backtrace-on-error] 3)
(defvar version "0.38")
(defvar glade-file "/opt/gnome/share/sawfish/0.38/themer.glade")
(defvar locale-dir "/opt/gnome/share/locale")
(run-byte-code "	] @	 	H@
H	v" [get-command-line-option "--disable-nls" file-directory-p locale-dir require rep.i18n.gettext bindtextdomain "sawfish" textdomain] 3)
(require (quote gui.gtk.gtk))
(require (quote gui.gtk.libglade))
(require (quote sawfish.client))
(defvar reload-themes-after-saving t)
(defvar filter-when-saving nil)
(defvar help-launcher nil)
(defvar preferences-attrs (run-byte-code "	IKKIKK	IKKIKKIKKv" [reload-themes-after-saving boolean _ "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 "@KIKK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 "	KK	KK	KK		KKIKKKKKIKKIKK
Kv" [border optional v-and labelled _ "[left]" (number) "[right]" "[top]" "[bottom]" ((tiled boolean))] 9))
(defvar window-types (quote (default transient shaped shaped-transient unframed)))
(defvar and-direction (quote horizontal))
(defvar current-filename nil)
(defvar xml (run-byte-code "@	 @
 3@	
D0 	 * FAH@
E 3		v" [file-exists-p glade-file glade-xml-new "top-level-window" expand-file-name "themer.glade" file-name-directory load-filename error "can't open file themer.glade"] 1049604))
(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] 	F v" [quotient /] 2)
(defmacro save-entry-contents #["01IKKIKKIK KKKIKKKIKKKv" [let __save_entry_text__ gtk-entry-get-text unwind-protect progn gtk-entry-set-text (__save_entry_text__)] 2097159])
(defmacro with-clist-frozen #["01IKK KIKKIKKKIKKKv" [progn gtk-clist-freeze unwind-protect gtk-clist-thaw] 2097159])
(defun make-item #["01DL F2zF3  MKv
v" [item-maker error "No item type %s"] 4195332])
(defun set-item-enabled #["01	 
v" [set-widget-enabled widget] 2097155])
(defun make-symbol-item #["01DU8	H  8 K
HCv" [gtk-combo-new gtk-signal-connect gtk-combo-entry "changed" gtk-combo-set-popdown-strings "" symbol-name #["F0a Cv a Cv a Cv a &8v a /v" [set #["08	   	 
v" [gtk-entry-set-text gtk-combo-entry symbol-name ""] 1048580] clear #["8	
v" [gtk-entry-set-text gtk-combo-entry ""] 3] get #["8			v" [string-to-symbol gtk-entry-get-text gtk-combo-entry] 4] widget validp symbolp] 1048579]] 2098181])
(run-byte-code "{v" [symbol item-maker make-symbol-item] 3)
(defun make-string-item #["0DU8 HCv" [gtk-entry-new gtk-signal-connect "changed" #["F0a Cv a Cv a Cv a &8v a /v" [set #["08 
v" [gtk-entry-set-text] 1048579] clear #["8
v" [gtk-entry-set-text ""] 3] get #["8	DF0` 
Iv v" [gtk-entry-get-text ""] 1049603] widget validp stringp] 1048579]] 1049604])
(run-byte-code "{v" [string item-maker make-string-item] 3)
(defun make-number-item #["012   DU8HCv" [gtk-spin-button-new gtk-adjustment-new gtk-signal-connect "changed" #["F0a Cv a v a Cv a %8v a .v" [set #["F0p 8 
v" [gtk-spin-button-set-value] 1048580] clear nop get #["8	v" [gtk-spin-button-get-value-as-int] 2] widget validp numberp] 1048579]] 3146760])
(run-byte-code "{v" [number item-maker make-number-item] 3)
(defun make-boolean-item #["01   	 DU8HCv" [gtk-check-button-new-with-label gtk-check-button-new gtk-signal-connect "toggled" #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["08 
v" [gtk-toggle-button-set-state] 1048579] clear #["8I
v" [gtk-toggle-button-set-state] 3] get #["8	v" [gtk-toggle-button-active] 2] widget validp #["Jv" [] 1]] 1048579]] 2098180])
(run-byte-code "{v" [boolean item-maker make-boolean-item] 3)
(defun make-color-item #["UDIU8	U8CHCv" [button-new-with-color gtk-signal-connect "clicked" #["		DU: 8	:	
H8		CH
8	CH8CH
8		H8	H8	v" [gtk-color-selection-dialog-new _ "Select color" gtk-color-selection-set-color-interp gtk-color-selection-dialog-colorsel gdk-color-parse-interp gtk-signal-connect gtk-color-selection-dialog-ok-button "clicked" #["8		DF0 I 	 	 	
*9:
H;H8	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] 1049608] gtk-color-selection-dialog-cancel-button #["8	v" [gtk-widget-destroy] 2] "delete_event" gtk-widget-hide gtk-color-selection-dialog-help-button gtk-widget-show gtk-grab-add] 1028] #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["F0)89
v" [set-button-color] 1048580] clear #["I)8I
v" [set-button-color] 3] get #["9v" [] 1] widget validp #["F0q  
v" [string-match "^#"] 1048580]] 1048579]] 1028])
(run-byte-code "{v" [color item-maker make-color-item] 3)
(defun make-font-item #["0DI
UU		198
H9
H8 H	CH
Cv" [gtk-hbox-new gtk-entry-new gtk-button-new-with-label _ "Browse..." gtk-box-pack-start gtk-signal-connect "changed" "clicked" #["		DU89	
H8	CH	8	
CH8
CH8	H
8	v" [gtk-font-selection-dialog-new _ "Select font" gtk-font-selection-dialog-set-font-name gtk-entry-get-text gtk-signal-connect gtk-font-selection-dialog-ok-button "clicked" #["98	
H8	v" [gtk-entry-set-text gtk-font-selection-dialog-get-font-name gtk-widget-destroy] 4] gtk-font-selection-dialog-cancel-button #["8	v" [gtk-widget-destroy] 2] "delete_event" gtk-widget-show gtk-grab-add] 1028] #["F0a Cv a Cv a Cv a &9v a 0Cv" [set #["08 q 
 
v" [gtk-entry-set-text] 1048579] clear #["8
v" [gtk-entry-set-text ""] 3] get #["8	DF0q  v" [gtk-entry-get-text] 1049603] widget validp #["F0] 	 qv" [] 1048578]] 1048579]] 2098180])
(run-byte-code "{v" [font item-maker make-font-item] 3)
(defun make-pattern-item #["0DU8	 HC
HCv" [gtk-combo-new gtk-signal-connect gtk-combo-entry "changed" add-hook patterns-changed-hook #["ID8		D0 8	 
H , u8@K
EI v" [frame-part-selection gtk-entry-get-text gtk-combo-entry gtk-entry-set-text gtk-combo-set-popdown-strings "" car patterns-alist] 1051654] #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["08	 
v" [gtk-entry-set-text gtk-combo-entry] 1048579] clear #["8	
v" [gtk-entry-set-text gtk-combo-entry ""] 3] get #["8		DF0@  v" [gtk-entry-get-text gtk-combo-entry patterns-alist] 1049604] widget validp #["F0q  @v" [patterns-alist] 1048579]] 1048579]] 1049604])
(run-byte-code "{v" [pattern item-maker make-pattern-item] 3)
(defun make-image-item #["UI
				IDUU01U89JFH8IFH8 IFH	CH 
CH9;HCv" [gtk-hbox-new gtk-button-new-with-label _ "Browse..." "Properties..." gtk-entry-new gtk-box-pack-start gtk-signal-connect "clicked" #["		DU8:	
H8	CH	8	
CH8
CH8	H
8	v" [gtk-file-selection-new _ "Select Image" gtk-file-selection-set-filename gtk-entry-get-text gtk-signal-connect gtk-file-selection-ok-button "clicked" #["8	D08	H: 
v" [gtk-file-selection-get-filename gtk-widget-destroy gtk-entry-set-text] 1049603] gtk-file-selection-cancel-button #["8	v" [gtk-widget-destroy] 2] "delete_event" gtk-grab-add gtk-widget-show] 1028] #["D@
0 
U 
1@TI2C@UC3	C4
 H
 H
	 TFLD5	 Q
EHM A9	
HJFH
H
HD58Te I 8PM	8PL<M	H8PL		FhH8PM	FhHh5 zEH9	H9	v" [glade-xml-new glade-file "props-dialog" glade-xml-get-widget "props-vbox" gtk-table-new image-attrs #["F0L 
Kv" [make-item nop] 1048581] #["C8,ID0  <,I<F0 EH=H9	v" [#["F0L M	Kv" [get] 1048580] gtk-widget-destroy] 1049602] #["9	v" [gtk-widget-destroy] 2] glade-xml-signal-connect "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-table-attach-defaults gtk-label-new symbol-name widget gtk-widget-show-all gtk-grab-add] 6293511] "changed" #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["09 L
H MF*v" [gtk-entry-set-text] 1048579] clear #["9
HIF*v" [gtk-entry-set-text ""] 3] get #["9	DF0` 
Iv :Kv" [gtk-entry-get-text ""] 1049603] widget validp #["F0o 
 Lqv" [] 1048578]] 1048579]] 2098181])
(run-byte-code "{v" [image item-maker make-image-item] 3)
(defun make-or-item #["UUC9)DI
UC:0C:UIUCUCUDU8>Te 1I e8<PCH	=8 P
H	8 P8<P
H	8 P8>P
	
H8hEDU %EH9HCv" [#["0 8
v" [make-item] 1048579] gtk-vbox-new #["I
v" [gtk-hbox-new] 3] #["v" [gtk-check-button-new] 1] #["DU= \"FLD0 9 a
H8:P9 a
H8hF(EHM E;v" [set-item-enabled gtk-toggle-button-set-state] 1050629] #["F0=P9a  :P	  :P	  =PF)H8v" [gtk-toggle-button-active] 1048580] gtk-signal-connect "toggled" #["98	v" [] 2] gtk-box-pack-start widget #["F0a Cv a Cv a Cv a &<v a 0Cv" [set #["F0 F* d: $:	 	 $:	 	 ds d uD1>Te 7I W>P	 	 P>PF*	 	HJtHh1 +EHI	 	EH9v" [validp set done message format _ "No matching item for %S"] 2099206] clear #["I*> FLDF0	EHM 9v" [clear] 1049604] get #[": :	v" [get] 2] widget validp #["0 
s 4 uD1>Te I 2>P	 	 +JtHh1 EEv" [out validp] 2099202]] 1048579]] 1050628])
(run-byte-code "{v" [or item-maker make-or-item] 3)
(defun make-and-item #["UUC9)@a  I
DUD0 :Te )I 98 :P	
H h0 EHCv" [#["0 8
v" [make-item] 1048579] and-direction horizontal gtk-hbox-new gtk-vbox-new gtk-box-pack-start widget #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["0D1:Te Iv:P	 P	Hh1 " [set] 2098179] clear #[": FLDF0	EHM Iv" [clear] 1049604] get #["C:v" [#["F0	v" [get] 1048579]] 2] widget validp #["F0] H o  T:T Ivs H uD1:Te -I D:P	 P	] =ItHh1 \"EHEJv" [out validp] 2099204]] 1048579]] 1050628])
(run-byte-code "{HC{HC{v" [and item-maker make-and-item h-and #["0D v" [horizontal and-direction make-and-item] 1049602] v-and #["0D v" [vertical and-direction make-and-item] 1049602]] 3)
(defun make-labelled-item #["U01I
DU9
)89	
H8 	
H8	HCv" [gtk-hbox-new make-item gtk-box-pack-start widget gtk-label-new gtk-widget-show-all #["F0a 
8v9 	v" [widget] 1048579]] 2098180])
(run-byte-code "{v" [labelled item-maker make-labelled-item] 3)
(defun make-optional-item #["UUI
DUU;:
+89
H8;	
H9CH9I
H	;	I
H
Cv" [gtk-hbox-new gtk-check-button-new make-item gtk-box-pack-start widget gtk-signal-connect "toggled" #[";	9	
H:v" [set-widget-enabled widget gtk-toggle-button-active] 4] gtk-toggle-button-set-state set-widget-enabled #["F0a Cv a Cv a Cv a &8v a 0Cv" [set #["F0 ;	 	H;	 
H9 
v" [set set-widget-enabled widget gtk-toggle-button-set-state] 1048580] clear #[";	H;	I
H9I
v" [clear set-widget-enabled widget gtk-toggle-button-set-state] 3] get #["9	 
;	v" [gtk-toggle-button-active get] 2] widget validp #["F0] ;	 	v" [validp] 1048579]] 1048579]] 1028])
(run-byte-code "{v" [optional item-maker make-optional-item] 3)
(defun update-theme-name #["@@ @	 
v" [gtk-entry-set-text theme-name-entry theme-name symbol-name ""] 4])
(defun on-theme-name-entry-changed #["@		FAv" [string-to-symbol gtk-entry-get-text theme-name-entry theme-name] 3])
(defun clear-readme-text #["@
H@@	
v" [gtk-text-set-point theme-about-text gtk-text-forward-delete gtk-text-get-length] 4])
(defun write-readme-file #["0@@	 

D12 3 %	H 3 u
EI v" [gtk-editable-get-chars theme-about-text gtk-text-get-length open-file expand-file-name "README" write close-file] 3147781])
(defun read-readme-file #["0D 
1	 
F2 L !	H L uIDUH =@IFF8FTH		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] 3148809])
(defun patterns-format-pattern #["F0MF0q  v n  L	vv" [file-name-nondirectory ""] 1048579])
(defun patterns-format-list #["U8LC@Kv" [vector #["F08MDF1 	vv" [patterns-format-pattern ""] 2098179] pattern-attrs] 4])
(defun patterns-update-all #["@	H @	H k u@ bFLDF0M SFLDF1DF2q O	] O@ OMF@	
	@	
NEEHM \"
@ 	
EHM EIF v" [gtk-clist-freeze patterns-clist gtk-clist-thaw patterns-alist file-name-absolute-p current-filename expand-file-name file-name-directory local-file-name default-directory gtk-clist-append patterns-format-list] 3149834])
(defun on-patterns-add #["D@
F0IK1@IK
FAH@	
H@@TiH	
	HI
	 	v" [make-new-name "pattern" car patterns-alist nconc gtk-clist-append patterns-clist patterns-format-list gtk-clist-select-row call-hook patterns-changed-hook message format _ "Added pattern `%s'"] 2098182])
(defun on-patterns-copy #["Iv" [] 1])
(defun on-patterns-delete #["@ #@D0IFAH @P@FAH	H@ 
Ev" [patterns-selection patterns-alist call-hook patterns-changed-hook gtk-clist-remove patterns-clist] 1049603])
(defun on-patterns-clist-select-row #["012@a] F@PDF3 @@L
H@ 6FLDF4M	LMM	EHM $@J
EHFAv" [patterns-selection patterns-alist gtk-entry-set-text patterns-name-entry patterns-item-alist set set-widget-enabled patterns-table] 5244933])
(defun on-patterns-clist-unselect-row #["IFAH@
H@ FLDF0M	EHM @I
v" [patterns-selection gtk-entry-set-text patterns-name-entry "" patterns-item-alist clear set-widget-enabled patterns-table] 1049604])
(defun on-patterns-entry-changed #["H	v" [patterns-update-alist call-hook patterns-changed-hook] 2])
(defun patterns-update-alist #["@ {@@P@	C@D0U1@@8HD2 Te 0I G@@h P	Hh2 %EH8	` SIF(HID2  lFLDF3M iKF2EHM [28NHOEEv" [patterns-selection patterns-alist gtk-entry-get-text patterns-name-entry #["F0L M	Kv" [get] 1048580] patterns-item-alist gtk-clist-set-text patterns-clist patterns-format-pattern ""] 4197384])
(defun create-patterns-items #["C@FAHD0 @Te I 2@ @PM	 h VH h0 EH@	H@v" [#["F0@
Kv" [make-item pattern-type patterns-update-alist] 1048581] pattern-attrs patterns-item-alist gtk-table-attach-defaults patterns-table widget gtk-widget-show-all] 1049608])
(defmacro current-frame #["v" [(and frame-selection (nth frame-selection frames-alist))] 1])
(defun frames-update-all #["IFAHIFAH@	H @	H c u@	H .@	H ^ &u@	H@	H@ UFLD0@	 L	
EHM DEIF &EI v" [frame-selection frame-part-selection gtk-clist-freeze frames-name-clist gtk-clist-thaw frames-part-clist clist-delete-all frames-alist gtk-clist-append vector] 1051655])
(defun on-frames-add #["		DF0 @ @] @@ IKIK
FAH@ 	
HH	
	HI
	 	v" [string-dialog _ "Frame name" frames-alist nconc gtk-clist-append frames-name-clist vector update-frame-names-clist call-hook frames-changed-hook message format "Added frame `%s'"] 1049606])
(defun on-frames-copy #["@ Q		@@PMD0F1 P@] P@ 	KIK
FAH@		
H
H	H
I		Ev" [frame-selection string-dialog _ "Frame name" frames-alist nconc copy-tree gtk-clist-append frames-name-clist vector update-frame-names-clist call-hook frames-changed-hook message format "Added frame `%s'"] 2098182])
(defun on-frames-delete #["@ #@D0IFAH @P@FAH	H@ 
Ev" [frame-selection frames-alist call-hook frames-changed-hook gtk-clist-remove frames-name-clist] 1049603])
(defun on-frames-name-clist-select #["012@a] lFAH@@  @@PL
H@	H 4@	H e +u@	H@ H@@PM \\FLD3@		
EHM LEIF +H
@J
v" [frame-selection gtk-frame-set-label frames-frame frames-alist gtk-clist-freeze frames-part-clist gtk-clist-thaw clist-delete-all gtk-clist-append frame-part-columns set-widget-enabled] 4196358])
(defun on-frames-name-clist-unselect #["D@ @@PMTiUIFAH@
H@	H -@	H J #u ?@8
H8i(8e 4EI #H	@I
v" [frame-selection frames-alist gtk-frame-set-label frames-frame "" gtk-clist-freeze frames-part-clist gtk-clist-thaw gtk-clist-remove set-widget-enabled] 2052])
(defun update-frame-names-clist #["DU@	H @	H 9 u@ 0FLD0@8 LH8hF(EHM EIF v" [gtk-clist-freeze frames-name-clist gtk-clist-thaw frames-alist gtk-clist-set-text] 1051655])
(defun frame-part-columns #["0 C D12 M	 	 )I +
v" [class #["F0La]v" [class] 1048579] vector symbol-name _ "<none>" format "%S" "()"] 3146758])
(defun update-frame-part #["@ /D@@ @@PMP0 	1@@SH@@SEv" [frame-part-selection frame-selection frames-alist frame-part-columns gtk-clist-set-text frames-part-clist] 2098182])
(defun on-frames-part-clist-select #["012@a] FAHH@J
v" [frame-part-selection update-frame-part-table set-widget-enabled frames-part-table-viewport] 3145731])
(defun on-frames-part-clist-unselect #["@D0IFAHH@I
v" [frame-part-selection clear-frame-part-table set-widget-enabled frames-part-table-viewport] 1049603])
(defun on-frames-add-part #["@ 
@@PDF0 0ID1  MIK
OH@	
H@ MTiEv" [frame-selection frames-alist nconc gtk-clist-append frames-part-clist frame-part-columns gtk-clist-select-row] 2099206])
(defun on-frames-delete-part #["@ )@ @@P@D01IFAH MPMOH@ 
Ev" [frame-part-selection frame-selection frames-alist gtk-clist-remove frames-part-clist] 2098179])
(defun update-frame-part-table #["@ ?@ ?D@ @@P0@ MPF1 :FLDF2L@MDF3 6	M	EEHM  EIv" [frame-selection frame-part-selection frames-alist frame-part-table-items set] 4197380])
(defun clear-frame-part-table #["@ FLDF0M	EHM Iv" [frame-part-table-items clear] 1049604])
(defun on-frame-part-attr-changed #["F0 f @@ @@PD12 e@ eD@MP3L4 	F5 T B 	O a@MQL 	KKN a a@MQNHEEv" [frame-part-table-items frame-selection frames-alist frame-part-selection get update-frame-part] 6293509])
(defun create-frame-part-table #["D@TI0U 
H 
HIFAH@ FLD1I
I
IDU23C
(L8K@KFAH	
L		
H8	JFH
 9FhH
 9FhH9hF)EEHM !@	 FLD1@
EHM @ 
H@
,
H 	H v" [gtk-table-new frame-part-attrs gtk-table-set-row-spacings gtk-table-set-col-spacings frame-part-table-items gtk-hbox-new make-item #["8	v" [on-frame-part-attr-changed] 2] gtk-box-pack-end gtk-label-new symbol-name gtk-box-pack-start widget gtk-table-attach-defaults gtk-container-children frames-part-table-viewport gtk-container-remove gtk-container-add gtk-paned-set-position glade-xml-get-widget xml "frames-part-vpaned" gtk-widget-show-all] 4197384])
(defun mappings-update-all #["@	H @	H < u@	H@ 3FLD0@ L	 M

EHM EIF v" [gtk-clist-freeze mapping-clist gtk-clist-thaw clist-delete-all mapping-alist gtk-clist-append vector symbol-name] 1050631])
(defun on-mapping-add #["C@
	D0@ KIK
FAH@	
 	

H@@TiH
	HI	 	v" [intern make-new-name "type" #["0 L	v" [symbol-name] 1048578] mapping-alist nconc "" gtk-clist-append mapping-clist vector symbol-name gtk-clist-select-row call-hook mappings-changed-hook message format _ "Added frame type `%s'"] 1049605])
(defun on-mapping-delete #["@ #@D0IFAH @P@FAH	H@ 
Ev" [mapping-selection mapping-alist call-hook mappings-changed-hook gtk-clist-remove mapping-clist] 1049603])
(defun on-mapping-from-changed #["@ ,@@P@			D01  + NH@@L	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] 2098182])
(defun on-mapping-to-changed #["@  @@PDF0@		OH@@ MEv" [mapping-selection mapping-alist gtk-entry-get-text gtk-combo-entry mapping-to-combo gtk-clist-set-text mapping-clist] 1049606])
(defun on-mapping-clist-select #["012FAH@J
H@	@@PL	
H@	@@PM
v" [mapping-selection set-widget-enabled mapping-combo-hbox gtk-entry-set-text gtk-combo-entry mapping-from-combo symbol-name mapping-alist mapping-to-combo] 3145733])
(defun on-mapping-clist-unselect #["IFAH@	
H@	
H@I
v" [mapping-selection gtk-entry-set-text gtk-combo-entry mapping-from-combo "" mapping-to-combo set-widget-enabled mapping-combo-hbox] 3])
(defun mapping-update-combos #["ID@		D0 @	 
H - u@@
EI EH@		D0 G@	 
H ^ ;u@	
@K
EI ;v" [mapping-selection gtk-entry-get-text gtk-combo-entry mapping-from-combo gtk-entry-set-text gtk-combo-set-popdown-strings symbol-name window-types mapping-to-combo "" car frames-alist] 1051654])
(run-byte-code "
v" [add-hook frames-changed-hook mapping-update-combos] 3)
(defun on-preview #[" | I	8	v u	
@IKK	@IKK	@IKKIKKKKIKKK	H
@] i@
 W	D0 	H 
F
AEv" [remote-sawfish message format _ "error while building frame: %S" sawfish-eval progn (require (quote sawfish.wm.theming.make-theme-preview)) make-theme-preview quote patterns-alist frames-alist mapping-alist preview-window glade-xml-new glade-file "preview-window" error "something happened" glade-xml-signal-autoconnect glade-xml-get-widget] 1050633])
(defun on-preview-close #["@ 	@	HIFAv" [preview-window gtk-widget-destroy] 3])
(defun filter-unused-frames #["U0C v" [#["F0L8v" [] 1048579]] 1048578])
(defun filter-unused-patterns #["01IFD23  NFLDF4M IFLDF5 DFLDF6L@ AMF2 A] AKF3EHM EM EM 
v" [pattern-classes] 7344134])
(defun print-list #["0U  
D12(
H C8Ln )8L h

 /8LH8MF(n B

H
H8n 8 R8H)
H	v" [make-string-output-stream make-string write print-list format "%S" " . %S" get-output-stream-string] 3146758])
(defun update-all #["HHHv" [update-theme-name patterns-update-all frames-update-all mappings-update-all] 1])
(defun set-current-filename #["F0FAH@   	 
v" [current-filename gtk-entry-set-text theme-dir-entry file-name-directory ""] 1048581])
(defun save-to-file #["0 | 
I8	v u 
DF1  +	H  #uH	
H

H
H@DU 
8L	DF2n n8L
 v8LEH8MF( 
H8 REH
HH
H
HI	 	EI #v" [file-error message format "%S" open-file write 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'"] 3150857])
(defun generate-patterns #["U0C v" [#["F0LC MKv" [#["FUMDFUn aD8L0 	:
1 	 &	 & 
H `] R	 A 		
 R 
H	I
 	H	8MK(9L8KF)EH9v" [expand-file-name file-name-nondirectory file-exists-p error "No such image: %s" time-later-p file-modtime copy-file message format "%s -> %s/%s"] 2099207]] 1048580]] 1048578])
(defun generate-theme #["0 	  	]  
H 	]  	H 
	H@ I	
@@
F
AH
@
@
F
AH
@ 
D
@	EH 	HI	 	H@ @IKKIKK	v" [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 frames-alist mapping-alist filter-unused-patterns patterns-alist 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] 1049605])
(defun new-theme #["@	H @	H  u@	EI H@	H .@	H ; &u@	EI &H@	H L@	H Y Du@	EI DH@ jFLDF0IEHM `FAH	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] 1049605])
(defun load-from-file #["0H 
DF1  	H o u )| %I i  u	DF2La d TFLDF3L@ QLEHM >I	
	 	EH -EEI H 	H
 		Hv" [new-theme open-file read 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] 4199431])
(defun on-save #["@ @		vv" [current-filename generate-theme file-name-directory on-save-as] 3])
(defun on-save-as #["	@ 
@	
DF0  	v" [file-dialog _ "Theme Directory" current-filename file-name-directory generate-theme] 1049605])
(defun do-open #["U8	 8
	 8
F( 	H 1| &I8	v !u	8	v" [file-directory-p file-exists-p expand-file-name "theme.jl" error "Can only load from directories with theme.jl files" message format "%S" load-from-file] 1029])
(defun on-open #["	@
DF0  	v" [file-dialog _ "Open" current-filename do-open] 1049604])
(defun on-new-theme #["I	Hv" [set-current-filename new-theme] 2])
(defun save-preferences #["	] 
	H
DF0 G   	H G u@ >FLD1 	L
L	EHM *EIF v" [file-exists-p "~/.sawfish" make-directory open-file "~/.sawfish/themer-prefs" write close-file preferences-attrs format "(setq %s '%S)
" symbol-value] 2100233])
(defun load-preferences #["	 JFFv" [file-exists-p "~/.sawfish/themer-prefs" load] 5])
(defun on-settings-preferences #["D@
0 
U 
1C@UC2C3	 
H	 H
H
9	
H	 [FLD4	 X
EHM H8 ~FLDF4M	L		HM	
EHM b9	H9	v" [glade-xml-new glade-file "props-dialog" glade-xml-get-widget "props-vbox" #["F0L 
Kv" [make-item nop] 1048581] preferences-attrs #["8 FLDF0L M	EHM H9	v" [get save-preferences gtk-widget-destroy] 1049605] #["9	v" [gtk-widget-destroy] 2] glade-xml-signal-connect "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] 5244934])
(defun gnome-help-launcher #["FU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' &"] 6])
(run-byte-code "FAv" [gnome-help-launcher help-launcher] 3)
(defun on-help-window-frames #["@	v" [help-launcher frames] 2])
(defun on-help-frame-classes #["@	v" [help-launcher classes] 2])
(defun on-help-frame-part-definitions #["@	v" [help-launcher defs] 2])
(defun on-help-themes #["@	v" [help-launcher themes] 2])
(defun on-help-about #["D@
 	0 
U 
1C2 	H
I
@
H8	v" [glade-xml-new glade-file "about-dialog" error "Can't create about dialog" glade-xml-get-widget "about-label" #["8	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] 3146758])
(defun on-quit #["tv" [quit] 2])
(defun copy-tree #["UIFFDUUU 8;Ln ;L	 ;L*9 -9:IKOH9MF) 4:IKF(F)H;M+;n 9 G9;OH8v;v" [copy-tree] 1028])
(defun string-to-symbol #["0 | 
Iv u 	DF1y v" [error read-from-string] 2099203])
(defun make-new-name #["01D2 
h2I  
Iv" [format "%s%d"] 3146757])
(defun string-dialog #["0D@
 	1
2
U
3CU	C4
C5H
H 
H 
H	H X	H r Pu es m _uEEI Pv" [glade-xml-new glade-file "string-dialog" error "Can't create string-dialog widget" glade-xml-get-widget "string-dialog-entry" "string-dialog-label" #["0 tv" [string-dialog-out] 1048578] #["89		v" [gtk-entry-get-text] 3] #["8I	v" [] 2] glade-xml-signal-connect "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] 6294532])
(defun file-dialog #["01	DU  8 
H8	CH8	CH8CH	8	H
8	H D8	H ^ <u Qs Y Ku
EEI <v" [gtk-file-selection-new gtk-file-selection-set-filename gtk-signal-connect gtk-file-selection-ok-button "clicked" #["8	tv" [filesel-out gtk-file-selection-get-filename] 3] gtk-file-selection-cancel-button #["Itv" [filesel-out] 2] "delete_event" gtk-grab-add gtk-widget-show gtk-widget-destroy filesel-out recursive-edit] 2100228])
(run-byte-code "IDUUCHCHCH
v" [remove-message #["@
D0  
H8i(8d 
F)v" [glade-xml-get-widget xml "statusbar" gtk-statusbar-pop] 1049603] message #["0@
D1H H8h(IF)v" [glade-xml-get-widget xml "statusbar" remove-message gtk-statusbar-push] 2098180] append-message #["09 
D1H	v" [concat remove-message message] 2098179] add-hook idle-hook] 1027)
(defun set-button-label #["01	 FLD2	  
EHM 
Iv" [gtk-container-children gtk-label-p gtk-label-set] 3146756])
(defun clist-delete-all #["0 
 
H 	d v" [gtk-clist-remove gtk-clist-rows] 1048579])
(defun set-widget-enabled #["01 
v" [gtk-widget-set-sensitive] 2097155])
(defvar color-preview-width 28)
(defvar color-preview-height 16)
(defun set-preview-color #["01@Y	IDU2( D8Y 	 ~RH8Yh 	 ~RH8YV 	 ~RH8h(8@f ( \\8@
H8h(8@f Pv" [make-string color-preview-width gdk-color-red gdk-color-green gdk-color-blue gtk-preview-draw-row color-preview-height] 3146758])
(defun button-new-with-color #["0	   	D123@@H $
H
Hv" [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] 4195332])
(defun set-button-color #["01   	DF2 0	 ,FLD3	 )
H	EHM Iv" [gdk-color-parse-interp gtk-container-children gtk-preview-p set-preview-color gtk-widget-draw-interp] 4196357])
(defun sawfish-eval #["01 ]
v" [sawfish-client-eval] 2097155])
(defun sawfish-eval-async #["0 	v" [sawfish-client-eval-async] 1048578])
(run-byte-code "HHHHHHHHH	
@JH@	H
@ N
@L	 N
@L	H
@MF
AHFAHv" [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 command-line-args file-exists-p do-open exit interrupt-mode recursive-edit] 4)
