vrvirtualdesktop 0.0.1

data/lib/Win32/WindowManager.rb

@@ -0,0 +1,177 @@
+require "Win32/User32"
+require "rubygems"
+require_gem "SimpleTrace", "< 0.1.0"
+
+module Win32
+
+class WindowManager
+private
+	def get_task_bar_window
+		@shell_hook_message, rs = RegisterWindowMessage.call("SHELLHOOK")
+		@hwnd_tray, rs = FindWindowEx.call(NULL, NULL, "Shell_TrayWnd", nil);
+		@hwnd_bar, rs = FindWindowEx.call(@hwnd_tray, NULL, "ReBarWindow32", nil );
+
+		hwnd_bar1 = @hwnd_bar
+		hwnd_bar1 = @hwnd_tray if hwnd_bar1 == NULL
+		@hwnd_task_list, rs = FindWindowEx.call(hwnd_bar1, NULL, "MSTaskSwWClass", nil)
+
+		$TRACE.debug 5, sprintf("hwnd_tray = %d, hwnd_bar = %d, hwnd_task_list = %d\n",
+				 					@hwnd_tray, hwnd_bar1, @hwnd_task_list)
+		return @hwnd_task_list
+	end
+	
+public
+	TRUE = 1
+
+	class Window
+
+		class << self
+			# create is here to allow another program to 
+			# change how virtual desktops are created (use an object
+			# loaded off of disk instead of a freshly created one
+			def create(*args)
+				Window.new(*args)
+			end
+		end	
+	
+		attr_reader :hwnd, :style, :ex_style, :class_name, :owner
+		def initialize(hwnd, style, ex_style, class_name, owner, window_manager)
+			@hwnd ||= hwnd
+			@style ||= style
+			@ex_style ||= ex_style
+			@class_name ||= class_name
+			@owner ||= owner
+			@window_manager ||= window_manager
+		end
+
+		def hide
+			@window_manager.hide_window(@hwnd)
+		end
+
+		def show
+			@window_manager.show_window(@hwnd, iconic?)
+		end
+
+		def iconic?
+			@window_manager.iconic?(@hwnd)
+		end
+
+		def ==(other)
+			return false unless other.kind_of?(self.class)
+			return @hwnd == other.hwnd
+		end
+
+		def eql?(other)
+			self == other
+		end
+
+		def hash
+			@hwnd.hash
+		end
+
+		def to_s
+			"#{@hwnd}-#{@class_name}"
+		end
+	end
+
+	def initialize
+		get_task_bar_window
+
+		@buff = " " * 16
+		@windows = {}
+
+		@enum_windows_proc = DL.callback('ILL') do |hwnd,lparam|
+			@window_handles.push(hwnd)
+		  	TRUE
+		end
+	end
+
+	def process_window_handles(window_handles, test)
+		window_handles.each do |hwnd|
+			#style, rs = GetWindowLong.call(hwnd, GWL_STYLE)
+			#ex_style, rs = GetWindowLong.call(hwnd, GWL_EXSTYLE)
+			#owner, rs = GetWindow.call(hwnd, GW_OWNER)
+			style = GetWindowLong_2.call(hwnd, GWL_STYLE)
+			ex_style = GetWindowLong_2.call(hwnd, GWL_EXSTYLE)
+			owner = GetWindow_2.call(hwnd, GW_OWNER)
+
+			# if the window is visible AND
+			#    its NOT a tool window with no parent
+			#r,rs = GetClassName.call(hwnd, @buff, @buff.size)
+			#class_name = rs[1]
+			GetClassName_2.call(hwnd, @buff, @buff.size)
+			class_name = @buff.dup
+			if !(((ex_style & WS_EX_TOOLWINDOW) != 0) && (owner == NULL)) then
+				if ((style & WS_VISIBLE) != 0) || @get_not_visible_windows then
+					# ignore Kapsules main window
+					next if (/WindowsForms10/.match(class_name))
+					
+					@windows[hwnd] = Window.create(hwnd, style, ex_style, class_name, owner, self)
+					$TRACE.debug 7, sprintf("%d, rs[1] = '%s', style = %8.8x, ex_style = %8.8x, owner = %d\n",
+												hwnd, class_name, style, ex_style, owner)
+				end
+			end
+		end
+	end
+	
+	def get_all_windows(get_not_visible_windows=false,test=false)
+
+		#if !@enum_windows_proc then
+		#end
+		@buff = " " * 16
+		@windows = {}
+		@window_handles = []
+		@test = test
+		@get_not_visible_windows = get_not_visible_windows
+		
+		r,rs = EnumWindows.call(@enum_windows_proc, 0)
+
+		process_window_handles(@window_handles, test) #if !test
+		return @windows
+	end
+
+	def get_top_window(windows)
+		get_all_windows.each_key do |hwnd|
+			top_window = hwnd
+			sub_windows = []
+			#puts "#{top_window}: "
+			while true
+				hwnd, rs = GetWindow.call(hwnd, GW_HWNDPREV)
+				break if hwnd == NULL
+				#puts "   #{hwnd}"
+				sub_windows.push(hwnd) if windows.has_key?(hwnd)
+			end
+			#puts "#{top_window}: " + sub_windows.join(",")
+			return top_window if sub_windows == []
+		end
+		return 0
+	end
+
+	def hide_window(window_handle)
+		$TRACE.debug 5, "@hwnd_task_list = #{@hwnd_task_list}"
+		$TRACE.debug 5, "@shell_hook_message = #{@shell_hook_message}"
+		$TRACE.debug 5, "window_handle = #{window_handle}"
+		
+		SendMessage.call(@hwnd_task_list, @shell_hook_message, 2, window_handle)
+#		ShowWindow.call(window_handle, SW_SHOWMINNOACTIVE)
+		ShowWindow.call(window_handle, SW_HIDE)
+	end
+
+	def show_window(window_handle, is_iconic)
+		SendMessage.call(@hwnd_task_list, @shell_hook_message, 1, window_handle)
+		if is_iconic then
+			ShowWindow.call(window_handle, SW_SHOWMINNOACTIVE)
+		else
+			ShowWindow.call(window_handle, SW_SHOWNOACTIVATE)
+		end
+#		ShowWindow.call(window_handle, SW_SHOW)
+	end
+
+	def iconic?(window_handle)
+		r, rs = IsIconic.call(window_handle)
+		r == TRUE
+	end
+end
+
+end # module Win32
+

metadata

@@ -0,0 +1,97 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.8.3
+specification_version: 1
+name: vrvirtualdesktop
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2006-04-24
+summary: This module implements workspace manager for Windows (NT/2000/XP)
+require_paths: 
+  - lib
+email: 
+homepage: 
+rubyforge_project: 
+description: 
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: false
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+    - 
+      - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+  version: 
+platform: ruby
+authors: []
+files: 
+  - "./CHANGES"
+  - "./LICENSE"
+  - "./README"
+  - "./TODO"
+  - lib/VRVirtualDesktopForm.rb
+  - lib/Win32/APIMapper.rb
+  - lib/Win32/Base-consts.rb
+  - lib/Win32/Base.rb
+  - lib/Win32/Encoding.rb
+  - lib/Win32/GetSystemMetrics.rb
+  - lib/Win32/NetResources.rb
+  - lib/Win32/Process.rb
+  - lib/Win32/Registry.rb
+  - lib/Win32/User32.rb
+  - lib/Win32/VirtualDesktop.rb
+  - lib/Win32/WindowManager.rb
+  - bin/vrdesk.rbw
+  - lib/resources/desktops.ico
+  - lib/resources/five_down.ico
+  - lib/resources/five_up.ico
+  - lib/resources/four_down.ico
+  - lib/resources/four_up.ico
+  - lib/resources/obdb.ico
+  - lib/resources/one_down.ico
+  - lib/resources/one_up.ico
+  - lib/resources/six_down.ico
+  - lib/resources/six_up.ico
+  - lib/resources/three_down.ico
+  - lib/resources/three_up.ico
+  - lib/resources/two_down.ico
+  - lib/resources/two_up.ico
+test_files: []
+rdoc_options: []
+extra_rdoc_files: []
+executables: 
+  - vrdesk.rbw
+extensions: []
+requirements: []
+dependencies: 
+  - !ruby/object:Gem::Dependency 
+    name: usage
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - "<"
+          - !ruby/object:Gem::Version 
+            version: 0.1.0
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: VRTools
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - "<"
+          - !ruby/object:Gem::Version 
+            version: 0.1.0
+      version: 
+  - !ruby/object:Gem::Dependency 
+    name: SimpleTrace
+    version_requirement: 
+    version_requirements: !ruby/object:Gem::Version::Requirement 
+      requirements: 
+        - 
+          - "<"
+          - !ruby/object:Gem::Version 
+            version: 0.1.0
+      version: