Changeset 29236 for lang

Timestamp:

01/29/09 19:19:58 (4 years ago)

Author:

isaisstillalive

Message:

• クライアント座標からスクリーン座標を求めるメソッドを追加。
  

Location:

lang/ruby/ruwin

Files:

• lib/ruwin/component.rb (modified) (2 diffs)
• test/ruwin/test_component.rb (modified) (1 diff)

lang/ruby/ruwin/lib/ruwin/component.rb

@@ -2 +2 @@
   class Component < SWin::Window
     autoload :Scrollable, "ruwin/component/scrollable"
+    ClientToScreen = Win32API.new "USER32.DLL", "ClientToScreen", %{L P}, "I"
     
     include Ruwin
@@ -82 +83 @@
     
     
+    def get_screen_position x, y
+      point = [x, y].pack("LL")
+      ClientToScreen.call hWnd, point
+      point.unpack("LL")
+    end
+    
     private
     def send_message_with_error_code message, wparam, lparam, error_code = self.class::ERR, &alternate

lang/ruby/ruwin/test/ruwin/test_component.rb

@@ -196 +196 @@
     assert_equal [[WM_SETREDRAW, 0, 0], [:inter], [WM_SETREDRAW, 1, 0]], instance.messages
   end
+  
+  
+  def test_getscreenposition
+    instance = Ruwin::Component.new do |component|
+      component.move 10, 10, 10, 10
+    end
+    
+    # BORDERやWindowの関連か。定数っぽい
+    assert_equal [10+4, 10+23], instance.get_screen_position(0, 0)
+  end
 end