x11 0.0.1a2 → 0.0.1a3

data/lib/X11/simple.rb

@@ -1,26 +1,26 @@
 #--
 # Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
-# 
+#
 # Redistribution and use in source and binary forms, with or without modification, are
 # permitted provided that the following conditions are met:
-# 
+#
 #    1. Redistributions of source code must retain the above copyright notice, this list of
 #       conditions and the following disclaimer.
-# 
+#
 #    2. Redistributions in binary form must reproduce the above copyright notice, this list
 #       of conditions and the following disclaimer in the documentation and/or other materials
 #       provided with the distribution.
-# 
-# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
 # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
-# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 # ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# 
+#
 # The views and conclusions contained in the software and documentation are those of the
 # authors and should not be interpreted as representing official policies, either expressed
 # or implied.
@@ -31,3 +31,4 @@ require 'X11/Xutil'
 require 'X11/cursorfont'
 
 require 'X11/simple/display'
+require 'X11/simple/window'

data/lib/X11/simple/display.rb

@@ -1,26 +1,26 @@
 #--
 # Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
-# 
+#
 # Redistribution and use in source and binary forms, with or without modification, are
 # permitted provided that the following conditions are met:
-# 
+#
 #    1. Redistributions of source code must retain the above copyright notice, this list of
 #       conditions and the following disclaimer.
-# 
+#
 #    2. Redistributions in binary form must reproduce the above copyright notice, this list
 #       of conditions and the following disclaimer in the documentation and/or other materials
 #       provided with the distribution.
-# 
-# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
 # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
-# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 # ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# 
+#
 # The views and conclusions contained in the software and documentation are those of the
 # authors and should not be interpreted as representing official policies, either expressed
 # or implied.
@@ -29,36 +29,34 @@
 module X11
 
 class Display
-  def select_window (frame=false)
-    return unless grab_pointer(false, Mask::Event[:ButtonPress, :ButtonRelease], :sync, :async, root_window, Cursor::Font.new(self, :crosshair))
-
-    target  = nil
-    buttons = 0
-
-    while target.nil? || !buttons.zero?
-      allow_events Event::Mode::SyncPointer
-
-      case (event = root_window.next_event Mask::Event[:ButtonPress, :ButtonRelease])
-      when Event::ButtonPress
-        if target.nil?
-          target = event.subwindow
-
-          if target.nil?
-            target = root_window
-          end
-        end
-
-        buttons += 1
-
-      when Event::ButtonRelease
-        buttons -= 1 if buttons > 0
-      end
-    end
-
-    ungrab_pointer
-
-    frame ? target : target.client
-  end
+	def select_window (frame=false)
+		grab_pointer false, Mask::Event[:ButtonPress, :ButtonRelease], :sync, :async, root_window, Cursor::Font.new(self, :crosshair) do
+			target  = nil
+			buttons = 0
+
+			while target.nil? || !buttons.zero?
+				allow_events Event::Mode::SyncPointer
+
+				case (event = root_window.next_event(Mask::Event[:ButtonPress, :ButtonRelease], :select => false)).name
+					when :ButtonPress
+						if target.nil?
+							target = event.subwindow
+
+							if target.nil?
+								target = root_window
+							end
+						end
+
+						buttons += 1
+
+					when :ButtonRelease
+						buttons -= 1 if buttons > 0
+				end
+			end
+
+			frame ? target : target.client
+		end
+	end
 end
 
 end

data/lib/X11/simple/window.rb

@@ -1,26 +1,26 @@
 #--
 # Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
-# 
+#
 # Redistribution and use in source and binary forms, with or without modification, are
 # permitted provided that the following conditions are met:
-# 
+#
 #    1. Redistributions of source code must retain the above copyright notice, this list of
 #       conditions and the following disclaimer.
-# 
+#
 #    2. Redistributions in binary form must reproduce the above copyright notice, this list
 #       of conditions and the following disclaimer in the documentation and/or other materials
 #       provided with the distribution.
-# 
-# THIS SOFTWARE IS PROVIDED BY <COPYRIGHT HOLDER> ''AS IS'' AND ANY EXPRESS OR IMPLIED
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
 # WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
-# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
 # CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
 # SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 # ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
 # NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
 # ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# 
+#
 # The views and conclusions contained in the software and documentation are those of the
 # authors and should not be interpreted as representing official policies, either expressed
 # or implied.
@@ -28,18 +28,38 @@
 
 module X11
 
-class Window
-  def client
-    win = properties[:_NET_VIRTUAL_ROOTS].any? {|vroot|
-      next unless self == vroot
-
-      unless (tmp = self.pointer_on?).nil?
-        break tmp
-      else
-        return self
-      end
-    } or self
-  end
+class Window < Drawable
+	def client
+		win = if roots = properties[:_NET_VIRTUAL_ROOTS]
+			roots.value.any? {|vroot|
+				next unless self == vroot
+
+				unless (tmp = under_pointer).nil?
+					break tmp
+				else
+					return self
+				end
+			}
+		end || self
+
+		return win if properties.has? :WM_STATE
+
+		win.subwindows.to_a.reverse.select {|subwin|
+			next unless subwin.viewable?
+
+			unless subwin.properties.has? :WM_STATE
+				true
+			else
+				return subwin
+			end
+		}.each {|subwin|
+			if result = subwin.client
+				return result
+			end
+		}
+
+		return win
+	end
 end
 
 end

data/lib/X11/window_manager.rb

@@ -0,0 +1,32 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+#
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+#
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+require 'X11/Xlib'
+
+require 'X11/window_manager/window_manager'
+require 'X11/window_manager/window'

data/lib/X11/window_manager/desktops.rb

@@ -0,0 +1,82 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+#
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+#
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+require 'X11/window_manager/desktops/desktop'
+
+module X11; class WindowManager
+
+class Desktops
+	include ForwardTo
+
+	attr_reader :window_manager
+	forward_to  :to_a
+
+	alias wm window_manager
+
+	def initialize (window_manager)
+		@window_manager = window_manager
+	end
+
+	def to_a
+		length   = wm.root.properties[:_NET_NUMBER_OF_DESKTOPS].value.first rescue nil
+		roots    = wm.root.properties[:_NET_VIRTUAL_ROOTS].value rescue []
+		desktops = wm.root.properties[:_NET_DESKTOP_NAMES].value.each_with_index.map {|name, index|
+			Desktop.new(self, name, index, roots[index])
+		} rescue []
+
+		return desktops if length.nil? || desktops.length == length
+
+		if length > desktops.length
+			(desktops.length ... length).each {|index|
+				desktops.push Desktop.new(self, nil, index, roots[index])
+			}
+		else
+			desktops.pop(desktops.length - length)
+		end
+
+		desktops
+	end
+
+	def current
+		begin
+			self[wm.root.properties[:_NET_CURRENT_DESKTOP].value.first]
+		rescue
+			Supports.raise :_NET_CURRENT_DESKTOP
+		end
+	end
+
+	def showing?
+		begin
+			wm.root.properties[:_NET_SHOWING_DESKTOP].value.first == 1
+		rescue
+			Supports.raise :_NET_SHOWING_DESKTOP
+		end
+	end
+end
+
+end; end

data/lib/X11/window_manager/desktops/desktop.rb

@@ -0,0 +1,78 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+#
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+#
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+module X11; class WindowManager; class Desktops
+
+class Desktop
+	attr_reader :name, :index, :window
+
+	def initialize (parent, name, index, window)
+		@parent = parent
+		@name   = name
+		@index  = index
+		@window = window
+	end
+
+	def size
+		begin
+			geometry = @parent.wm.root.properties[:_NET_DESKTOP_GEOMETRY].value
+
+			Struct.new(:width, :height).new(geometry[0], geometry[2])
+		rescue
+			Supports.raise :_NET_DESKTOP_GEOMETRY
+		end
+	end
+
+	def starts_at
+		begin
+			viewport = @parent.wm.root.properties[:_NET_DESKTOP_VIEWPORT].value
+
+			Struct.new(:x, :y).new(viewport[0], viewport[2])
+		rescue
+			Supports.raise :_NET_DESKTOP_VIEWPORT
+		end
+	end
+
+	def current?
+		begin
+			@parent.wm.root.properties[:_NET_CURRENT_DESKTOP].value.first == index
+		rescue
+			Supports.raise :_NET_CURRENT_DESKTOP
+		end
+	end
+
+	def to_s
+		name
+	end
+
+	def inspect
+		"#<Desktop[#{index}]: #{to_s.inspect} #{size.width}x#{size.height} (#{starts_at.x}; #{starts_at.y})>"
+	end
+end
+
+end; end; end

data/lib/X11/window_manager/supports.rb

@@ -0,0 +1,56 @@
+#--
+# Copyleft meh. [http://meh.paranoid.pk | meh@paranoici.org]
+#
+# Redistribution and use in source and binary forms, with or without modification, are
+# permitted provided that the following conditions are met:
+#
+#    1. Redistributions of source code must retain the above copyright notice, this list of
+#       conditions and the following disclaimer.
+#
+#    2. Redistributions in binary form must reproduce the above copyright notice, this list
+#       of conditions and the following disclaimer in the documentation and/or other materials
+#       provided with the distribution.
+#
+# THIS SOFTWARE IS PROVIDED BY meh ''AS IS'' AND ANY EXPRESS OR IMPLIED
+# WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+# FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL meh OR
+# CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+# ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+# ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+# The views and conclusions contained in the software and documentation are those of the
+# authors and should not be interpreted as representing official policies, either expressed
+# or implied.
+#++
+
+require 'X11/window_manager/supports/feature'
+
+module X11; class WindowManager
+
+class Supports
+	def self.raise (name)
+		Kernel.raise NoMethodError, "the current window manager doesn't support #{name}, whine to the developers"
+	end
+
+	include ForwardTo
+
+	attr_reader :window_manager
+	forward_to  :to_a
+
+	alias wm window_manager
+
+	def initialize (window_manager)
+		@window_manager = window_manager
+	end
+
+	def to_a
+		wm.root.properties[:_NET_SUPPORTED].value.map {|feature|
+			Feature.new(self, feature)
+		}
+	end
+end
+
+end; end