Re: [Sawfish] Re: Patches for styletab and compton

[fuchur <flohtransporter@xxxxxxxxx>]

Hi,

On Tue, 16 Sep 2014 17:59:06 +0200
wrote fuchur <flohtransporter@xxxxxxxxx>:

>Hi,
>
>On Mon, 15 Sep 2014 17:28:52 +0200
>wrote Christopher Roy Bratusek <nano@xxxxxxxxxxx>:
>
>>works fine.
>
>No. I can reproduces this. I have a copy from StyleTab in
>~/,sawfish/themes/My-StyleTab. If i start sawfish with StyleTab and
>then load My-StyleTab and restart sawfish i got "Lisp backtraces".
>I try to fix this (if i found what is wrong).
>

I now know what the problem is. If you run make-image after the theme
file is loaded sawfish crash. Put this in theme.jl from Styletab after
the other defcustom:


(defvar make-image-start nil)
(setq make-image-start (make-image "Default/left-frame-maximize-button-f.png"))

(defvar make-image-load nil)
(define (make-image-l)
  (setq make-image-load (make-image "Default/left-frame-maximize-button-f.png")))
(make-image-load)


(defcustom styletab-c:make-image nil "Crash sawfish."
  :group (appearance StyleTab:group)
  :type boolean
  :after-set (lambda () (crash-make-image)))

(defvar crash-image nil)
(define (crash-make-image)
  (setq crash-image (make-image "Default/left-frame-maximize-button-f.png")))




Now restart sawfish. Open sawfish-client:

client > make-image-start
#<image 20x32>
client > make-image-load
#<image 20x32>
client > crash-image
()

If you now enable or disable the checkbox "Crash sawfish." you got
"Lisp backtraces".

I can't fix this. Can you fix this?


-- 
Regards,
Fuchur

GPG Fingerprint: CA3B 8204 5B3E 6D48 6D53  C116 E5BC 70D5 B8D7 B2B0

Attachment: signature.asc
Description: PGP signature