Pierre CHATEL a écrit :
> Desole pour le perl, c'etait un "lapsus"...d'autant plus que je
> programme en scheme, honte sur moi...
> Pour repondre a ta question le but recherche est effectivement d'ajouter
> un "Iconify All Windows" dans un environment gnome utilisant sawfish.
>
> > Quelques précisions:
> > Sawmill a été rebaptisé sawfish pour des raisons obscures (TRade mark)
> > Le menu actif se trouve (mdk 8.0) en
> > /usr/share/sawfish/0.38/lisp/menus.jl
> >
Tout part de :
(defvar root-menu
`((,(_ "_Windows") . window-menu)
(,(_ "Work_spaces") . workspace-menu)
(,(_ "_Preferred") . pref-menu)
(,(_ "_Programs") . apps-menu)
Pour mes besoins personnels, j'ai ajouté pref-menu, défini peu après:
(defvar pref-menu
(list
'("Xterm" (system "xterm -geometry 88x33 -fn 9x15 &"))
'("J.Pilot" (system "/usr/bin/jpilot &"))
'("Star Office" (system "cd /esl/xg/star ; /home/bin/sof &"))
))
Mais on pourrait aussi y inclure qqch comme
(defvar icon-menu
(list
'("Rien" (iconify-all ()))
'("Tout" (uniconify-all ()))
))
et placer derrière le code correspondant à ces fonctions
ou inclure le fichier /usr/share/sawfish/0.38/lisp/sawfish/wm/iconify.jl
par:
(require 'sawfish.wm.iconify)
Vous souhaitez acquerir votre Pack ou des Services MandrakeSoft?
Rendez-vous sur "http://www.mandrakestore.com";
