wet-winobj 0.1-mswin32

data/src/wet-winobj.rb

@@ -0,0 +1,41 @@
+require 'singleton'
+require 'timeout'
+require 'win32ole'
+
+require 'dl/import'
+require 'dl/struct'
+require 'Win32API'
+
+require 'soap/property'
+
+require 'wet/constants/process.rb'
+require 'wet/exceptions/CompileExceptions.rb'
+require 'wet/utils/FileUtils.rb'
+require 'wet/utils/TextUtils.rb'
+require 'wet/utils/ArrayUtils.rb'
+require 'wet/utils/CompileUtils.rb'
+require 'wet/winobjects/WinUtils'
+require 'wet/winobjects/WinObjects.rb'
+require 'wet/winobjects/Window' 
+require 'wet/winobjects/AppWindow'
+require 'wet/winobjects/WinButton'
+require 'wet/winobjects/WinEdit'
+require 'wet/winobjects/WinComboBox'
+require 'wet/winobjects/WinDialog'
+
+include Wet::WinUtils
+
+=begin rdoc
+    This is the main interface to the outside
+    world. This module has factory methods which 
+    masquerades the creation of object instances, yet
+    providing developers an object based API for handling
+    windows. 
+=end
+module Wet
+    module Winobjects    
+        def app_window(props)
+            AppWindow.find(props)
+        end
+    end
+end

data/src/wet/constants/process.rb

@@ -0,0 +1,10 @@
+module Wet
+    module Winobjects    
+        #Process control constants:
+        
+        # Should the script be executed in a separate process ?
+        INPROCESS = 11
+        OUTOFPROCESS = 12
+    
+    end    
+end

data/src/wet/constants/testconstants.rb

@@ -0,0 +1 @@
+Object_timeout = 10

data/src/wet/constants/winconstants.rb

@@ -0,0 +1,73 @@
+require 'wet/constants/wincontrolconst.rb'
+
+BTN_CLASS = "Button"
+WM_SETTEXT  = 0x000C        
+WM_GETTEXT  = 0x000D    
+
+SW_SHOWNORMAL = 1
+SW_MAXIMIZE = 3
+SW_MINIMIZE = 6
+
+## GetWindows Constants
+GW_HWNDFIRST = 0
+GW_HWNDLAST = 1
+GW_HWNDNEXT = 2
+GW_HWNDPREV = 3
+GW_OWNER = 4
+GW_CHILD = 5
+GW_ENABLEDPOPUP = 6
+GW_MAX = 6
+
+GWL_EXSTYLE = -20
+GWL_STYLE = -16
+
+
+## Window Style constants
+WS_OVERLAPPED   = 0x00000000
+WS_POPUP           = 0x80000000
+WS_CHILD            = 0x40000000
+WS_MINIMIZE       = 0x20000000
+WS_VISIBLE         = 0x10000000
+WS_DISABLED       = 0x08000000
+WS_CLIPSIBLINGS  = 0x04000000
+WS_CLIPCHILDREN  = 0x02000000 
+WS_MAXIMIZE       = 0x01000000
+WS_BORDER          = 0x00800000 
+WS_DLGFRAME      = 0x00400000 
+WS_VSCROLL        = 0x00200000 
+WS_HSCROLL        = 0x00100000 
+WS_SYSMENU       = 0x00080000
+WS_THICKFRAME   = 0x00040000
+WS_GROUP           = 0x00020000
+WS_TABSTOP        = 0x00010000
+WS_MINIMIZEBOX   = 0x00020000
+WS_MAXIMIZEBOX   = 0x00010000
+
+# Styles derived from other styles
+WS_CAPTION      = WS_BORDER | WS_DLGFRAME
+WS_TILED        = WS_OVERLAPPED
+WS_ICONIC       = WS_MINIMIZE
+WS_SIZEBOX      = WS_THICKFRAME
+WS_OVERLAPPEDWINDOW = WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_THICKFRAME | WS_MINIMIZEBOX | WS_MAXIMIZEBOX
+WS_TILEDWINDOW      = WS_OVERLAPPEDWINDOW
+
+WS_POPUPWINDOW      = WS_POPUP | WS_BORDER | WS_SYSMENU
+WS_CHILDWINDOW      = WS_CHILD
+
+
+#MOUSE actions
+WH_MOUSE_LL = 14
+WM_MOUSEMOVE = 0x200
+WM_LBUTTONDOWN = 0x201
+WM_LBUTTONUP = 0x202
+WM_LBUTTONDBLCLK = 0x203
+WM_RBUTTONDOWN = 0x204
+WM_RBUTTONUP = 0x205
+WM_RBUTTONDBLCLK = 0x206
+WM_MBUTTONDOWN = 0x207
+WM_MBUTTONUP = 0x208
+WM_MBUTTONDBLCLK = 0x209
+WM_MOUSEWHEEL = 0x20A
+
+
+

data/src/wet/constants/wincontrolconst.rb

@@ -0,0 +1,60 @@
+#Button Constants
+BS_PUSHBUTTON = 0
+BS_DEFPUSHBUTTON = 1
+BS_CHECKBOX = 2
+BS_AUTOCHECKBOX = 3
+BS_RADIOBUTTON = 4
+BS_3STATE = 5
+BS_AUTO3STATE = 6
+BS_GROUPBOX = 7
+BS_USERBUTTON = 8
+BS_AUTORADIOBUTTON = 9
+BS_OWNERDRAW = 11
+BS_LEFTTEXT = 32
+BS_TEXT = 0
+BS_ICON = 64
+BS_BITMAP = 128
+BS_LEFT = 256
+BS_RIGHT = 512
+BS_CENTER = 768
+BS_TOP = 1024
+BS_BOTTOM = 2048
+BS_VCENTER = 3072
+BS_PUSHLIKE = 4096
+BS_MULTILINE = 8192
+BS_NOTIFY = 16384
+BS_FLAT = 32768
+BS_RIGHTBUTTON = BS_LEFTTEXT
+
+#Button states
+BST_UNCHECKED = 0
+BST_CHECKED = 1
+BST_INDETERMINATE = 2
+BST_PUSHED = 4
+BST_FOCUS = 8
+
+#Button Messages
+BM_GETCHECK = 240
+BM_SETCHECK = 241
+BM_GETSTATE = 242
+BM_SETSTATE = 243
+BM_SETSTYLE = 244
+BM_CLICK = 245
+BM_GETIMAGE = 246
+BM_SETIMAGE = 247
+
+#Edit constants
+ES_LEFT = 0
+ES_CENTER = 1
+ES_RIGHT = 2
+ES_MULTILINE = 4
+ES_UPPERCASE = 8
+ES_LOWERCASE = 16
+ES_PASSWORD = 32
+ES_AUTOVSCROLL = 64
+ES_AUTOHSCROLL = 128
+ES_NOHIDESEL = 256
+ES_OEMCONVERT = 1024
+ES_READONLY = 2048
+ES_WANTRETURN = 4096
+ES_NUMBER = 8192

data/src/wet/exceptions/CompileExceptions.rb

@@ -0,0 +1,31 @@
+=begin rdoc
+   If ruby were a compiled language these exceptions would have 
+   shown up at compile time. This file has all the exceptions that should 
+   be raised when wrong invocations are made
+=end
+module Wet
+    module Exceptions
+=begin rdoc
+    Exception to be raised when a psuedo abstract method is not implemented in a base clase
+=end
+        class AbstractMethodError < RuntimeError
+            def initialize(message="")
+                super(message) 
+            end
+        end
+        
+=begin rdoc
+    If the argument class is not correct raise this exception
+=end
+        class ArgumentTypeException < RuntimeError
+            def initialize(exp, actual)
+                msg = "Invalid argument type = #{exp.to_s} class expected. #{actual.to_s} class was passed"
+                super(msg) 
+            end
+        end
+        
+        
+        
+        
+    end
+end

data/src/wet/exceptions/RuntimeExceptions.rb

@@ -0,0 +1,20 @@
+=begin rdoc
+   If ruby were a compiled language these exceptions would have 
+   shown up at compile time. This file has all the exceptions that should 
+   be raised when wrong invocations are made
+=end
+module Wet
+    module Exceptions
+=begin rdoc
+    Exception to be raised when a psuedo abstract method is not implemented in a base clase
+=end
+        class UnsupportedOperationException < RuntimeError
+            def initialize(message="")
+                super(message) 
+            end
+        end
+        
+ 
+        
+    end
+end

data/src/wet/utils/ArrayUtils.rb

@@ -0,0 +1,52 @@
+=begin license
+Copyright (c) 2005, Qantom Software
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 
+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. 
+Neither the name of Qantom Software nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 THE COPYRIGHT OWNER 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.
+
+(based on BSD Open Source License)
+=end
+
+
+=begin rdoc
+    General utilties that are used in various places in the package. 
+=end
+module Wet
+    module Utils
+    
+
+    class ArrayUtils
+=begin rdoc 
+    Utility method to construct a dictionary of parameters using an array
+    of arguments. Typically, when you need to identify objects, you will
+    say, Object("name:=n1"; "id:=i1" ...). The idea is that all the arguments
+    have to be matched to declare success. This method takes a multiple 
+    argument list and converts into a dictionary of name value parameters. 
+    While processing the arguments, if any of the 'value' in the name-value
+    pair looks like a regular expression, then the dictionary's value is a 
+    Regex instance instead of a string
+=end
+            def ArrayUtils.get_parameters(args)
+                param_hash=Hash.new()
+                args.each do |a| 
+                    seperated_args = a.split(Param_separator, 2)
+                    name = seperated_args[0]
+                    value = seperated_args[1]
+                    #If the value looks like a regexp, then make it one!
+                    if /^\/.*\// =~ value
+                        value = value.gsub("/", "")
+                        value= Regexp.new(value) 
+                    end
+                    param_hash[name]=value
+                end
+                return param_hash
+            end    
+            
+        end
+    end
+end

data/src/wet/utils/CompileUtils.rb

@@ -0,0 +1,43 @@
+=begin license
+Copyright (c) 2005, Qantom Software
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 
+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. 
+Neither the name of Qantom Software nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 THE COPYRIGHT OWNER 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.
+
+(based on BSD Open Source License)
+=end
+
+
+require 'wet/exceptions/CompileExceptions'
+=begin rdoc
+    General utilties that are used in various places in the package. 
+=end
+module Wet
+    module Utils
+    include Wet::Exceptions
+
+        class CompileUtils
+=begin rdoc
+=end
+            def CompileUtils.assert_argument_types(exp, actual)
+                compare_results = false
+                #For now, dont do any verification for the type
+                #of args. sent to this method itself. 
+                if exp.kind_of?(Class)
+                    compare_results = exp == actual
+                else
+                    raise ArgumentTypeException.new(Class, exp) 
+                end
+                if !compare_results
+                    raise ArgumentTypeException.new(exp, actual) 
+                end
+            end
+    
+        end
+    end
+end

data/src/wet/utils/FileUtils.rb

@@ -0,0 +1,75 @@
+=begin license
+Copyright (c) 2005, Qantom Software
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 
+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. 
+Neither the name of Qantom Software nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 THE COPYRIGHT OWNER 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.
+
+(based on BSD Open Source License)
+=end
+
+
+class Dir
+    def Dir.mk_all_dirs(path)
+        dirs = []
+        d_exists = File.exists?(path)
+        dirs << File.basename(path)
+        while !d_exists
+            path = File.dirname(path)
+            d_exists =  File.exists?(path)
+            if !d_exists   
+                dirs << File.basename(path)
+            end
+            sleep 0.2
+        end
+        
+        dirs.reverse.each do |d|    
+            path = path + "\\" + d 
+            if !File.exists?(path)
+                Dir.mkdir(path)
+            end
+        end
+    end
+end
+
+
+=begin rdoc
+    General utilties that are used in various places in the package. 
+=end
+module WET
+    module Utils
+    
+        class FileUtils
+=begin rdoc
+        Convert a path into an absolute path. Also if the incoming path is in 
+        unix style ('/' as separator), converts it to dos style. If the second
+        optional parameter is specified as false, then '\' is not added to the 
+        end  of the path    
+=end
+            def FileUtils.full_path(path, isDir=true)
+                ret_path=path
+                if ret_path==nil || ret_path.strip() =="" 
+                    #
+                else 
+                    if ret_path.index(".") == 0
+                        ret_path = File.expand_path(".")  + "/" + ret_path
+                    end
+                    ret_path = ret_path.gsub("/" , "\\" )
+                    if isDir
+                        if ret_path.slice(-1,1) != "\\" 
+                            ret_path = ret_path + "\\"    
+                        end
+                    end
+                end
+                return ret_path
+            end
+            
+        end       
+
+
+    end
+end

data/src/wet/utils/TextUtils.rb

@@ -0,0 +1,63 @@
+=begin license
+Copyright (c) 2005, Qantom Software
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
+
+Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer. 
+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. 
+Neither the name of Qantom Software nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission. 
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "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 THE COPYRIGHT OWNER 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.
+
+(based on BSD Open Source License)
+=end
+
+
+
+=begin rdoc
+    General utilties that are used in various places in the package. 
+=end
+module Wet
+    module Utils
+
+    class TextUtils
+=begin rdoc
+    Compare a string with another string or regular expression. If the second
+    argument is a string, then an exact match search is done. If the second 
+    argument is a regular expression, then a regex match is done. 
+    
+    returns true if the two arguments match, false otherwise. 
+=end
+        def TextUtils.compare_text(str_cmp, str_or_regex)
+            compare_results = false
+            if str_or_regex.class.to_s == "Regexp"
+                compare_results =  (str_or_regex =~ str_cmp) != nil
+            elsif str_cmp.class.to_s == "String"
+                compare_results = (str_cmp == str_or_regex)
+            end
+            return compare_results
+        end
+        
+    
+=begin rdoc
+    Return a compact representation of the string. Usually used for
+    making a neat representation of long strings. The first argument is
+    the string to be compacted. The second argument is the maximum
+    number of characters to use in the returned value. If the string is 
+    greater than <size>, then only the first <size> characters are displayed
+    and three dots are displayed after that. 
+=end
+        def TextUtils.compact(str_comp, size=10)
+            return nil if str_comp == nil
+            str_ret=
+            if str_comp.length > size
+                str_ret=str_comp.slice(0, size)
+                str_ret="#{str_ret}..."
+            else
+                str_ret=str_comp
+            end
+            return str_ret
+        end
+    end
+    end
+end