[clfswm-devel] Some news: new Exposé mode, new toolbar system.

[Philippe Brochard]

Valentin Plechinger writes:

>> I have made some more work in the last commit (9161892).
>> Here is how to do what you want (not only for testing if you want):
>>
>> --------------------------------------------------
>> (let ((toolbar nil))
>>   (defun create-my-toolbar ()
>>     "Create a new toolbar"
>>     (setf toolbar (add-toolbar 0 0 :vert 70 'middle-right-root-placement
>>                                '((clfswm-menu 1) (label 50)
>>                                  (clickable-clock 99))))
>>     (open-toolbar toolbar))
>>
>>   (defun remove-my-toolbar ()
>>     "Close my new toolbar"
>>     (remove-toolbar toolbar)))
>>
>> (defun my-toolbar-keybinding ()
>>   (define-second-key ("F2") 'create-my-toolbar)
>>   (define-second-key ("F2" :control) 'remove-my-toolbar))
>>
>> (add-hook *binding-hook* 'my-toolbar-keybinding)
>> --------------------------------------------------
>>
>> Please, if you can, test intensively. This is young code.
>>
>> Regards,
>>
>> Philippe
>
> I fetched the last commit and tried your function but it gives me an error.
>     let: variable *EVENT-EXPOSURE-HOOK* has no value
>
Please can you attach the full backtrace? Which lisp and clx are you
using? Do you try to remove the toolbar before its creation? If this is
the case, this will be corrected on the next commit.

Philippe