]> git.saurik.com Git - wxWidgets.git/blobdiff - wxPython/wx/lib/intctrl.py
Don't autosize if the height is too small. Interaction with the
[wxWidgets.git] / wxPython / wx / lib / intctrl.py
index f201a6fc741f855f0ddb08acbd1a7e4f5de7a5f3..897045a5069b4a169321393b75ac4acdc29687e9 100644 (file)
+#----------------------------------------------------------------------------
+# Name:         wxPython.lib.intctrl.py
+# Author:       Will Sadkin
+# Created:      01/16/2003
+# Copyright:   (c) 2003 by Will Sadkin
+# RCS-ID:      $Id$
+# License:     wxWindows license
+#----------------------------------------------------------------------------
+# NOTE:
+#   This was written to provide a standard integer edit control for wxPython.
+#
+#   IntCtrl permits integer (long) values to be retrieved or  set via
+#   .GetValue() and .SetValue(), and provides an EVT_INT() event function
+#   for trapping changes to the control.
+#
+#   It supports negative integers as well as the naturals, and does not
+#   permit leading zeros or an empty control; attempting to delete the
+#   contents of the control will result in a (selected) value of zero,
+#   thus preserving a legitimate integer value, or an empty control
+#   (if a value of None is allowed for the control.) Similarly, replacing the
+#   contents of the control with '-' will result in a selected (absolute)
+#   value of -1.
+#
+#   IntCtrl also supports range limits, with the option of either
+#   enforcing them or simply coloring the text of the control if the limits
+#   are exceeded.
+#----------------------------------------------------------------------------
+# 12/08/2003 - Jeff Grimmett (grimmtooth@softhome.net)
+#
+# o 2.5 Compatability changes
+#
+# 12/20/2003 - Jeff Grimmett (grimmtooth@softhome.net)
+#
+# o wxIntUpdateEvent -> IntUpdateEvent
+# o wxIntValidator -> IntValidator
+# o wxIntCtrl -> IntCtrl 
+#
 
-"""Renamer stub: provides a way to drop the wx prefix from wxPython objects."""
+import  string
+import  types
 
-__cvsid__ = "$Id$"
-__revision__ = "$Revision$"[11:-2]
+import  wx
 
-from wx import _rename
-from wxPython.lib import intctrl
-_rename(globals(), intctrl.__dict__, modulename='lib.intctrl')
-del intctrl
-del _rename
+#----------------------------------------------------------------------------
+
+from sys import maxint
+MAXINT = maxint     # (constants should be in upper case)
+MININT = -maxint-1
+
+#----------------------------------------------------------------------------
+
+# Used to trap events indicating that the current
+# integer value of the control has been changed.
+wxEVT_COMMAND_INT_UPDATED = wx.NewEventType()
+EVT_INT = wx.PyEventBinder(wxEVT_COMMAND_INT_UPDATED, 1)
+
+#----------------------------------------------------------------------------
+
+# wxWindows' wxTextCtrl translates Composite "control key"
+# events into single events before returning them to its OnChar
+# routine.  The doc says that this results in 1 for Ctrl-A, 2 for
+# Ctrl-B, etc. However, there are no wxPython or wxWindows
+# symbols for them, so I'm defining codes for Ctrl-X (cut) and
+# Ctrl-V (paste) here for readability:
+WXK_CTRL_X = (ord('X')+1) - ord('A')
+WXK_CTRL_V = (ord('V')+1) - ord('A')
+
+class IntUpdatedEvent(wx.PyCommandEvent):
+    def __init__(self, id, value = 0, object=None):
+        wx.PyCommandEvent.__init__(self, wxEVT_COMMAND_INT_UPDATED, id)
+
+        self.__value = value
+        self.SetEventObject(object)
+
+    def GetValue(self):
+        """Retrieve the value of the control at the time
+        this event was generated."""
+        return self.__value
+
+
+#----------------------------------------------------------------------------
+
+class IntValidator( wx.PyValidator ):
+    """
+    Validator class used with IntCtrl; handles all validation of input
+    prior to changing the value of the underlying wx.TextCtrl.
+    """
+    def __init__(self):
+        wx.PyValidator.__init__(self)
+        self.Bind(wx.EVT_CHAR, self.OnChar)
+
+    def Clone (self):
+        return self.__class__()
+
+    def Validate(self, window):     # window here is the *parent* of the ctrl
+        """
+        Because each operation on the control is vetted as it's made,
+        the value of the control is always valid.
+        """
+        return 1
+
+
+    def OnChar(self, event):
+        """
+        Validates keystrokes to make sure the resulting value will a legal
+        value.  Erasing the value causes it to be set to 0, with the value
+        selected, so it can be replaced.  Similarly, replacing the value
+        with a '-' sign causes the value to become -1, with the value
+        selected.  Leading zeros are removed if introduced by selection,
+        and are prevented from being inserted.
+        """
+        key = event.GetKeyCode()
+        ctrl = event.GetEventObject()
+
+
+        value = ctrl.GetValue()
+        textval = wx.TextCtrl.GetValue(ctrl)
+        allow_none = ctrl.IsNoneAllowed()
+
+        pos = ctrl.GetInsertionPoint()
+        sel_start, sel_to = ctrl.GetSelection()
+        select_len = sel_to - sel_start
+
+# (Uncomment for debugging:)
+##        print 'keycode:', key
+##        print 'pos:', pos
+##        print 'sel_start, sel_to:', sel_start, sel_to
+##        print 'select_len:', select_len
+##        print 'textval:', textval
+
+        # set defaults for processing:
+        allow_event = 1
+        set_to_none = 0
+        set_to_zero = 0
+        set_to_minus_one = 0
+        paste = 0
+        internally_set = 0
+
+        new_value = value
+        new_text = textval
+        new_pos = pos
+
+        # Validate action, and predict resulting value, so we can
+        # range check the result and validate that too.
+
+        if key in (wx.WXK_DELETE, wx.WXK_BACK, WXK_CTRL_X):
+            if select_len:
+                new_text = textval[:sel_start] + textval[sel_to:]
+            elif key == wx.WXK_DELETE and pos < len(textval):
+                new_text = textval[:pos] + textval[pos+1:]
+            elif key == wx.WXK_BACK and pos > 0:
+                new_text = textval[:pos-1] + textval[pos:]
+            # (else value shouldn't change)
+
+            if new_text in ('', '-'):
+                # Deletion of last significant digit:
+                if allow_none and new_text == '':
+                    new_value = None
+                    set_to_none = 1
+                else:
+                    new_value = 0
+                    set_to_zero = 1
+            else:
+                try:
+                    new_value = ctrl._fromGUI(new_text)
+                except ValueError:
+                    allow_event = 0
+
+
+        elif key == WXK_CTRL_V:   # (see comments at top of file)
+            # Only allow paste if number:
+            paste_text = ctrl._getClipboardContents()
+            new_text = textval[:sel_start] + paste_text + textval[sel_to:]
+            if new_text == '' and allow_none:
+                new_value = None
+                set_to_none = 1
+            else:
+                try:
+                    # Convert the resulting strings, verifying they
+                    # are legal integers and will fit in proper
+                    # size if ctrl limited to int. (if not,
+                    # disallow event.)
+                    new_value = ctrl._fromGUI(new_text)
+
+                    if paste_text:
+                        paste_value = ctrl._fromGUI(paste_text)
+                    else:
+                        paste_value = 0
+
+                    new_pos = sel_start + len(str(paste_value))
+
+                    # if resulting value is 0, truncate and highlight value:
+                    if new_value == 0 and len(new_text) > 1:
+                        set_to_zero = 1
+
+                    elif paste_value == 0:
+                        # Disallow pasting a leading zero with nothing selected:
+                        if( select_len == 0
+                            and value is not None
+                            and ( (value >= 0 and pos == 0)
+                                  or (value < 0 and pos in [0,1]) ) ):
+                            allow_event = 0
+
+                    paste = 1
+
+                except ValueError:
+                    allow_event = 0
+
+
+        elif key < wx.WXK_SPACE or key > 255:
+            pass    # event ok
+
+
+        elif chr(key) == '-':
+            # Allow '-' to result in -1 if replacing entire contents:
+            if( value is None
+                or (value == 0 and pos == 0)
+                or (select_len >= len(str(abs(value)))) ):
+                new_value = -1
+                set_to_minus_one = 1
+
+            # else allow negative sign only at start, and only if
+            # number isn't already zero or negative:
+            elif pos != 0 or (value is not None and value < 0):
+                allow_event = 0
+            else:
+                new_text = '-' + textval
+                new_pos = 1
+                try:
+                    new_value = ctrl._fromGUI(new_text)
+                except ValueError:
+                    allow_event = 0
+
+
+        elif chr(key) in string.digits:
+            # disallow inserting a leading zero with nothing selected
+            if( chr(key) == '0'
+                and select_len == 0
+                and value is not None
+                and ( (value >= 0 and pos == 0)
+                      or (value < 0 and pos in [0,1]) ) ):
+                allow_event = 0
+            # disallow inserting digits before the minus sign:
+            elif value is not None and value < 0 and pos == 0:
+                allow_event = 0
+            else:
+                new_text = textval[:sel_start] + chr(key) + textval[sel_to:]
+                try:
+                    new_value = ctrl._fromGUI(new_text)
+                except ValueError:
+                    allow_event = 0
+
+        else:
+            # not a legal char
+            allow_event = 0
+
+
+        if allow_event:
+            # Do range checking for new candidate value:
+            if ctrl.IsLimited() and not ctrl.IsInBounds(new_value):
+                allow_event = 0
+            elif new_value is not None:
+                # ensure resulting text doesn't result in a leading 0:
+                if not set_to_zero and not set_to_minus_one:
+                    if( (new_value > 0 and new_text[0] == '0')
+                        or (new_value < 0 and new_text[1] == '0')
+                        or (new_value == 0 and select_len > 1 ) ):
+
+                        # Allow replacement of leading chars with
+                        # zero, but remove the leading zero, effectively
+                        # making this like "remove leading digits"
+
+                        # Account for leading zero when positioning cursor:
+                        if( key == wx.WXK_BACK
+                            or (paste and paste_value == 0 and new_pos > 0) ):
+                            new_pos = new_pos - 1
+
+                        wx.CallAfter(ctrl.SetValue, new_value)
+                        wx.CallAfter(ctrl.SetInsertionPoint, new_pos)
+                        internally_set = 1
+
+                    elif paste:
+                        # Always do paste numerically, to remove
+                        # leading/trailing spaces
+                        wx.CallAfter(ctrl.SetValue, new_value)
+                        wx.CallAfter(ctrl.SetInsertionPoint, new_pos)
+                        internally_set = 1
+
+                    elif (new_value == 0 and len(new_text) > 1 ):
+                        allow_event = 0
+
+                if allow_event:
+                    ctrl._colorValue(new_value)   # (one way or t'other)
+
+# (Uncomment for debugging:)
+##        if allow_event:
+##            print 'new value:', new_value
+##            if paste: print 'paste'
+##            if set_to_none: print 'set_to_none'
+##            if set_to_zero: print 'set_to_zero'
+##            if set_to_minus_one: print 'set_to_minus_one'
+##            if internally_set: print 'internally_set'
+##        else:
+##            print 'new text:', new_text
+##            print 'disallowed'
+##        print
+
+        if allow_event:
+            if set_to_none:
+                wx.CallAfter(ctrl.SetValue, new_value)
+
+            elif set_to_zero:
+                # select to "empty" numeric value
+                wx.CallAfter(ctrl.SetValue, new_value)
+                wx.CallAfter(ctrl.SetInsertionPoint, 0)
+                wx.CallAfter(ctrl.SetSelection, 0, 1)
+
+            elif set_to_minus_one:
+                wx.CallAfter(ctrl.SetValue, new_value)
+                wx.CallAfter(ctrl.SetInsertionPoint, 1)
+                wx.CallAfter(ctrl.SetSelection, 1, 2)
+
+            elif not internally_set:
+                event.Skip()    # allow base wxTextCtrl to finish processing
+
+        elif not wx.Validator_IsSilent():
+            wx.Bell()
+
+
+    def TransferToWindow(self):
+     """ Transfer data from validator to window.
+
+         The default implementation returns False, indicating that an error
+         occurred.  We simply return True, as we don't do any data transfer.
+     """
+     return True # Prevent wx.Dialog from complaining.
+
+
+    def TransferFromWindow(self):
+     """ Transfer data from window to validator.
+
+         The default implementation returns False, indicating that an error
+         occurred.  We simply return True, as we don't do any data transfer.
+     """
+     return True # Prevent wx.Dialog from complaining.
+
+
+#----------------------------------------------------------------------------
+
+class IntCtrl(wx.TextCtrl):
+    """
+    This class provides a control that takes and returns integers as
+    value, and provides bounds support and optional value limiting.
+
+    IntCtrl(
+         parent, id = -1,
+         value = 0,
+         pos = wxDefaultPosition,
+         size = wxDefaultSize,
+         style = 0,
+         validator = wxDefaultValidator,
+         name = "integer",
+         min = None,
+         max = None,
+         limited = False,
+         allow_none = False,
+         allow_long = False,
+         default_color = wxBLACK,
+         oob_color = wxRED )
+
+    value
+        If no initial value is set, the default will be zero, or
+        the minimum value, if specified.  If an illegal string is specified,
+        a ValueError will result. (You can always later set the initial
+        value with SetValue() after instantiation of the control.)
+    min
+        The minimum value that the control should allow.  This can be
+        adjusted with SetMin().  If the control is not limited, any value
+        below this bound will be colored with the current out-of-bounds color.
+        If min < -sys.maxint-1 and the control is configured to not allow long
+        values, the minimum bound will still be set to the long value, but
+        the implicit bound will be -sys.maxint-1.
+    max
+        The maximum value that the control should allow.  This can be
+        adjusted with SetMax().  If the control is not limited, any value
+        above this bound will be colored with the current out-of-bounds color.
+        if max > sys.maxint and the control is configured to not allow long
+        values, the maximum bound will still be set to the long value, but
+        the implicit bound will be sys.maxint.
+
+    limited
+        Boolean indicating whether the control prevents values from
+        exceeding the currently set minimum and maximum values (bounds).
+        If False and bounds are set, out-of-bounds values will
+        be colored with the current out-of-bounds color.
+
+    allow_none
+        Boolean indicating whether or not the control is allowed to be
+        empty, representing a value of None for the control.
+
+    allow_long
+        Boolean indicating whether or not the control is allowed to hold
+        and return a long as well as an int.
+
+    default_color
+        Color value used for in-bounds values of the control.
+
+    oob_color
+        Color value used for out-of-bounds values of the control
+        when the bounds are set but the control is not limited.
+
+    validator
+        Normally None, IntCtrl uses its own validator to do value
+        validation and input control.  However, a validator derived
+        from IntValidator can be supplied to override the data
+        transfer methods for the IntValidator class.
+    """
+
+    def __init__ (
+                self, parent, id=-1, value = 0,
+                pos = wx.DefaultPosition, size = wx.DefaultSize,
+                style = 0, validator = wx.DefaultValidator,
+                name = "integer",
+                min=None, max=None,
+                limited = 0, allow_none = 0, allow_long = 0,
+                default_color = wx.BLACK, oob_color = wx.RED,
+        ):
+
+        # Establish attrs required for any operation on value:
+        self.__min = None
+        self.__max = None
+        self.__limited = 0
+        self.__default_color = wx.BLACK
+        self.__oob_color = wx.RED
+        self.__allow_none = 0
+        self.__allow_long = 0
+        self.__oldvalue = None
+
+        if validator == wx.DefaultValidator:
+            validator = IntValidator()
+
+        wx.TextCtrl.__init__(
+                self, parent, id, self._toGUI(0),
+                pos, size, style, validator, name )
+
+        # The following lets us set out our "integer update" events:
+        self.Bind(wx.EVT_TEXT, self.OnText )
+
+        # Establish parameters, with appropriate error checking
+
+        self.SetBounds(min, max)
+        self.SetLimited(limited)
+        self.SetColors(default_color, oob_color)
+        self.SetNoneAllowed(allow_none)
+        self.SetLongAllowed(allow_long)
+        self.SetValue(value)
+        self.__oldvalue = 0
+
+
+    def OnText( self, event ):
+        """
+        Handles an event indicating that the text control's value
+        has changed, and issue EVT_INT event.
+        NOTE: using wx.TextCtrl.SetValue() to change the control's
+        contents from within a wx.EVT_CHAR handler can cause double
+        text events.  So we check for actual changes to the text
+        before passing the events on.
+        """
+        value = self.GetValue()
+        if value != self.__oldvalue:
+            try:
+                self.GetEventHandler().ProcessEvent(
+                    IntUpdatedEvent( self.GetId(), self.GetValue(), self ) )
+            except ValueError:
+                return
+            # let normal processing of the text continue
+            event.Skip()
+        self.__oldvalue = value # record for next event
+
+
+    def GetValue(self):
+        """
+        Returns the current integer (long) value of the control.
+        """
+        return self._fromGUI( wx.TextCtrl.GetValue(self) )
+
+    def SetValue(self, value):
+        """
+        Sets the value of the control to the integer value specified.
+        The resulting actual value of the control may be altered to
+        conform with the bounds set on the control if limited,
+        or colored if not limited but the value is out-of-bounds.
+        A ValueError exception will be raised if an invalid value
+        is specified.
+        """
+        wx.TextCtrl.SetValue( self, self._toGUI(value) )
+        self._colorValue()
+
+
+    def SetMin(self, min=None):
+        """
+        Sets the minimum value of the control.  If a value of None
+        is provided, then the control will have no explicit minimum value.
+        If the value specified is greater than the current maximum value,
+        then the function returns 0 and the minimum will not change from
+        its current setting.  On success, the function returns 1.
+
+        If successful and the current value is lower than the new lower
+        bound, if the control is limited, the value will be automatically
+        adjusted to the new minimum value; if not limited, the value in the
+        control will be colored with the current out-of-bounds color.
+
+        If min > -sys.maxint-1 and the control is configured to not allow longs,
+        the function will return 0, and the min will not be set.
+        """
+        if( self.__max is None
+            or min is None
+            or (self.__max is not None and self.__max >= min) ):
+            self.__min = min
+
+            if self.IsLimited() and min is not None and self.GetValue() < min:
+                self.SetValue(min)
+            else:
+                self._colorValue()
+            return 1
+        else:
+            return 0
+
+
+    def GetMin(self):
+        """
+        Gets the minimum value of the control.  It will return the current
+        minimum integer, or None if not specified.
+        """
+        return self.__min
+
+
+    def SetMax(self, max=None):
+        """
+        Sets the maximum value of the control. If a value of None
+        is provided, then the control will have no explicit maximum value.
+        If the value specified is less than the current minimum value, then
+        the function returns 0 and the maximum will not change from its
+        current setting. On success, the function returns 1.
+
+        If successful and the current value is greater than the new upper
+        bound, if the control is limited the value will be automatically
+        adjusted to this maximum value; if not limited, the value in the
+        control will be colored with the current out-of-bounds color.
+
+        If max > sys.maxint and the control is configured to not allow longs,
+        the function will return 0, and the max will not be set.
+        """
+        if( self.__min is None
+            or max is None
+            or (self.__min is not None and self.__min <= max) ):
+            self.__max = max
+
+            if self.IsLimited() and max is not None and self.GetValue() > max:
+                self.SetValue(max)
+            else:
+                self._colorValue()
+            return 1
+        else:
+            return 0
+
+
+    def GetMax(self):
+        """
+        Gets the maximum value of the control.  It will return the current
+        maximum integer, or None if not specified.
+        """
+        return self.__max
+
+
+    def SetBounds(self, min=None, max=None):
+        """
+        This function is a convenience function for setting the min and max
+        values at the same time.  The function only applies the maximum bound
+        if setting the minimum bound is successful, and returns True
+        only if both operations succeed.
+        NOTE: leaving out an argument will remove the corresponding bound.
+        """
+        ret = self.SetMin(min)
+        return ret and self.SetMax(max)
+
+
+    def GetBounds(self):
+        """
+        This function returns a two-tuple (min,max), indicating the
+        current bounds of the control.  Each value can be None if
+        that bound is not set.
+        """
+        return (self.__min, self.__max)
+
+
+    def SetLimited(self, limited):
+        """
+        If called with a value of True, this function will cause the control
+        to limit the value to fall within the bounds currently specified.
+        If the control's value currently exceeds the bounds, it will then
+        be limited accordingly.
+
+        If called with a value of 0, this function will disable value
+        limiting, but coloring of out-of-bounds values will still take
+        place if bounds have been set for the control.
+        """
+        self.__limited = limited
+        if limited:
+            min = self.GetMin()
+            max = self.GetMax()
+            if not min is None and self.GetValue() < min:
+                self.SetValue(min)
+            elif not max is None and self.GetValue() > max:
+                self.SetValue(max)
+        else:
+            self._colorValue()
+
+
+    def IsLimited(self):
+        """
+        Returns True if the control is currently limiting the
+        value to fall within the current bounds.
+        """
+        return self.__limited
+
+
+    def IsInBounds(self, value=None):
+        """
+        Returns True if no value is specified and the current value
+        of the control falls within the current bounds.  This function can
+        also be called with a value to see if that value would fall within
+        the current bounds of the given control.
+        """
+        if value is None:
+            value = self.GetValue()
+
+        if( not (value is None and self.IsNoneAllowed())
+            and type(value) not in (types.IntType, types.LongType) ):
+            raise ValueError (
+                'IntCtrl requires integer values, passed %s'% repr(value) )
+
+        min = self.GetMin()
+        max = self.GetMax()
+        if min is None: min = value
+        if max is None: max = value
+
+        # if bounds set, and value is None, return False
+        if value == None and (min is not None or max is not None):
+            return 0
+        else:
+            return min <= value <= max
+
+
+    def SetNoneAllowed(self, allow_none):
+        """
+        Change the behavior of the validation code, allowing control
+        to have a value of None or not, as appropriate.  If the value
+        of the control is currently None, and allow_none is 0, the
+        value of the control will be set to the minimum value of the
+        control, or 0 if no lower bound is set.
+        """
+        self.__allow_none = allow_none
+        if not allow_none and self.GetValue() is None:
+            min = self.GetMin()
+            if min is not None: self.SetValue(min)
+            else:               self.SetValue(0)
+
+
+    def IsNoneAllowed(self):
+        return self.__allow_none
+
+
+    def SetLongAllowed(self, allow_long):
+        """
+        Change the behavior of the validation code, allowing control
+        to have a long value or not, as appropriate.  If the value
+        of the control is currently long, and allow_long is 0, the
+        value of the control will be adjusted to fall within the
+        size of an integer type, at either the sys.maxint or -sys.maxint-1,
+        for positive and negative values, respectively.
+        """
+        current_value = self.GetValue()
+        if not allow_long and type(current_value) is types.LongType:
+            if current_value > 0:
+                self.SetValue(MAXINT)
+            else:
+                self.SetValue(MININT)
+        self.__allow_long = allow_long
+
+
+    def IsLongAllowed(self):
+        return self.__allow_long
+
+
+
+    def SetColors(self, default_color=wx.BLACK, oob_color=wx.RED):
+        """
+        Tells the control what colors to use for normal and out-of-bounds
+        values.  If the value currently exceeds the bounds, it will be
+        recolored accordingly.
+        """
+        self.__default_color = default_color
+        self.__oob_color = oob_color
+        self._colorValue()
+
+
+    def GetColors(self):
+        """
+        Returns a tuple of (default_color, oob_color), indicating
+        the current color settings for the control.
+        """
+        return self.__default_color, self.__oob_color
+
+
+    def _colorValue(self, value=None):
+        """
+        Colors text with oob_color if current value exceeds bounds
+        set for control.
+        """
+        if not self.IsInBounds(value):
+            self.SetForegroundColour(self.__oob_color)
+        else:
+            self.SetForegroundColour(self.__default_color)
+        self.Refresh()
+
+
+    def _toGUI( self, value ):
+        """
+        Conversion function used to set the value of the control; does
+        type and bounds checking and raises ValueError if argument is
+        not a valid value.
+        """
+        if value is None and self.IsNoneAllowed():
+            return ''
+        elif type(value) == types.LongType and not self.IsLongAllowed():
+            raise ValueError (
+                'IntCtrl requires integer value, passed long' )
+        elif type(value) not in (types.IntType, types.LongType):
+            raise ValueError (
+                'IntCtrl requires integer value, passed %s'% repr(value) )
+
+        elif self.IsLimited():
+            min = self.GetMin()
+            max = self.GetMax()
+            if not min is None and value < min:
+                raise ValueError (
+                    'value is below minimum value of control %d'% value )
+            if not max is None and value > max:
+                raise ValueError (
+                    'value exceeds value of control %d'% value )
+
+        return str(value)
+
+
+    def _fromGUI( self, value ):
+        """
+        Conversion function used in getting the value of the control.
+        """
+
+        # One or more of the underlying text control implementations
+        # issue an intermediate EVT_TEXT when replacing the control's
+        # value, where the intermediate value is an empty string.
+        # So, to ensure consistency and to prevent spurious ValueErrors,
+        # we make the following test, and react accordingly:
+        #
+        if value == '':
+            if not self.IsNoneAllowed():
+                return 0
+            else:
+                return None
+        else:
+            try:
+                return int( value )
+            except ValueError:
+                if self.IsLongAllowed():
+                    return long( value )
+                else:
+                    raise
+
+
+    def Cut( self ):
+        """
+        Override the wxTextCtrl's .Cut function, with our own
+        that does validation.  Will result in a value of 0
+        if entire contents of control are removed.
+        """
+        sel_start, sel_to = self.GetSelection()
+        select_len = sel_to - sel_start
+        textval = wx.TextCtrl.GetValue(self)
+
+        do = wx.TextDataObject()
+        do.SetText(textval[sel_start:sel_to])
+        wx.TheClipboard.Open()
+        wx.TheClipboard.SetData(do)
+        wx.TheClipboard.Close()
+        if select_len == len(wxTextCtrl.GetValue(self)):
+            if not self.IsNoneAllowed():
+                self.SetValue(0)
+                self.SetInsertionPoint(0)
+                self.SetSelection(0,1)
+            else:
+                self.SetValue(None)
+        else:
+            new_value = self._fromGUI(textval[:sel_start] + textval[sel_to:])
+            self.SetValue(new_value)
+
+
+    def _getClipboardContents( self ):
+        """
+        Subroutine for getting the current contents of the clipboard.
+        """
+        do = wx.TextDataObject()
+        wx.TheClipboard.Open()
+        success = wx.TheClipboard.GetData(do)
+        wx.TheClipboard.Close()
+
+        if not success:
+            return None
+        else:
+            # Remove leading and trailing spaces before evaluating contents
+            return do.GetText().strip()
+
+
+    def Paste( self ):
+        """
+        Override the wxTextCtrl's .Paste function, with our own
+        that does validation.  Will raise ValueError if not a
+        valid integerizable value.
+        """
+        paste_text = self._getClipboardContents()
+        if paste_text:
+            # (conversion will raise ValueError if paste isn't legal)
+            sel_start, sel_to = self.GetSelection()
+            text = wx.TextCtrl.GetValue( self )
+            new_text = text[:sel_start] + paste_text + text[sel_to:]
+            if new_text == '' and self.IsNoneAllowed():
+                self.SetValue(None)
+            else:
+                value = self._fromGUI(new_text)
+                self.SetValue(value)
+                new_pos = sel_start + len(paste_text)
+                wx.CallAfter(self.SetInsertionPoint, new_pos)
+
+
+
+#===========================================================================
+
+if __name__ == '__main__':
+
+    import traceback
+
+    class myDialog(wx.Dialog):
+        def __init__(self, parent, id, title,
+            pos = wx.DefaultPosition, size = wx.DefaultSize,
+            style = wx.DEFAULT_DIALOG_STYLE ):
+            wx.Dialog.__init__(self, parent, id, title, pos, size, style)
+
+            self.int_ctrl = IntCtrl(self, wx.NewId(), size=(55,20))
+            self.OK = wx.Button( self, wx.ID_OK, "OK")
+            self.Cancel = wx.Button( self, wx.ID_CANCEL, "Cancel")
+
+            vs = wx.BoxSizer( wx.VERTICAL )
+            vs.Add( self.int_ctrl, 0, wx.ALIGN_CENTRE|wx.ALL, 5 )
+            hs = wx.BoxSizer( wx.HORIZONTAL )
+            hs.Add( self.OK, 0, wx.ALIGN_CENTRE|wx.ALL, 5 )
+            hs.Add( self.Cancel, 0, wx.ALIGN_CENTRE|wx.ALL, 5 )
+            vs.Add(hs, 0, wx.ALIGN_CENTRE|wx.ALL, 5 )
+
+            self.SetAutoLayout( True )
+            self.SetSizer( vs )
+            vs.Fit( self )
+            vs.SetSizeHints( self )
+            self.Bind(EVT_INT, self.OnInt, self.int_ctrl)
+
+        def OnInt(self, event):
+            print 'int now', event.GetValue()
+
+    class TestApp(wx.App):
+        def OnInit(self):
+            try:
+                self.frame = wx.Frame(None, -1, "Test", (20,20), (120,100)  )
+                self.panel = wx.Panel(self.frame, -1)
+                button = wx.Button(self.panel, 10, "Push Me", (20, 20))
+                self.Bind(wx.EVT_BUTTON, self.OnClick, button)
+            except:
+                traceback.print_exc()
+                return False
+            return True
+
+        def OnClick(self, event):
+            dlg = myDialog(self.panel, -1, "test IntCtrl")
+            dlg.int_ctrl.SetValue(501)
+            dlg.int_ctrl.SetInsertionPoint(1)
+            dlg.int_ctrl.SetSelection(1,2)
+            rc = dlg.ShowModal()
+            print 'final value', dlg.int_ctrl.GetValue()
+            del dlg
+            self.frame.Destroy()
+
+        def Show(self):
+            self.frame.Show(True)
+
+    try:
+        app = TestApp(0)
+        app.Show()
+        app.MainLoop()
+    except:
+        traceback.print_exc()