[perlwm-develop] X Questions

[Michael B. <mb...@be...>]

Okay, for those of you that don't know, my knowledge of how X works is 
lacking considerable ... But i learn fast, os all will be good .. jsut bare 
with me as I learn the basics...

Currently I need to know when the root window is clicked on, and how. From 
looking at the perlwm code, i gather that is handled in this section:

      if ($e{event} == $c->{frame}) {
       # the event got delivered to the frame
       if ($e{child} eq 'None') {
	# nobody else was involved
	$context = 'frame';
       }
       else {
	# some child window was involved
	# TODO: in future, the frame might have more than one child!
	$context = 'window';
       }
     }
     elsif ($e{event} == $c->{win}) {
       # the event went to the window
       $context = 'window';
     }

And I need to ad something like:

    elsif ($e{event} == $c->{root}) {
       # the event went to the root
       $context = 'root';
     }

....

Then I would need to ad a binding, like:

root => { 'Button1' => 'root_menu'}