Created a new class Updating with corresponding event "update". Provided

instances for TextCtrl and ComboBox: update gets called when the text changes.
I might make additional instances if I see other appropriate applications.

Signed-off-by: Pamelloes <pamelloes@gmail.com>

wx/src/Graphics/UI/WX/Controls.hs

@@ -346,7 +346,7 @@ getRichTE2 = if (os == "mingw32") || (os == "win32")
 -- be set at creation time (or the entry has default alignment (=left) ).
 -- This is an alias for textEntry
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 entry :: Window a -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -356,7 +356,7 @@ entry parent props
 -- | Create a single-line text entry control. Note: 'alignment' has to
 -- be set at creation time (or the entry has default alignment (=left) ).
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 textEntry :: Window a -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -366,7 +366,7 @@ textEntry parent props
 -- | Create a multi-line text control. Note: the 'wrap' and 'alignment'
 -- have to be set at creation time or the default to 'WrapNone' and 'AlignLeft' respectively.
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 textCtrl :: Window a -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -379,7 +379,7 @@ textCtrl parent props
 -- on other platforms. Note: the 'wrap' and 'alignment'
 -- have to be set at creation time or the default to 'WrapNone' and 'AlignLeft' respectively.
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 textCtrlRich :: Window a -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -388,7 +388,7 @@ textCtrlRich parent props
 
 -- | Create a generic text control given a certain style.
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 textCtrlEx :: Window a -> Style -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -405,7 +405,7 @@ textCtrlEx parent stl props
 -- | Complete the construction of a text control instance which has been loaded
 --   from a resource file.
 --
--- * Instances: 'Wrap', 'Aligned', 'Commanding' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
+-- * Instances: 'Wrap', 'Aligned', 'Commanding', 'Updating' -- 'Textual', 'Literate', 'Dimensions', 'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
 textCtrlRes :: Window a -> String -> [Prop (TextCtrl ())] -> IO (TextCtrl ())
@@ -414,6 +414,9 @@ textCtrlRes parent name props =
        set t props
        return t
 
+instance Updating (TextCtrl a) where
+  update = newEvent "update" controlGetOnText controlOnText
+
 instance Commanding (TextCtrl a) where
   command = newEvent "command" textCtrlGetOnTextEnter textCtrlOnTextEnter
 
@@ -634,6 +637,10 @@ instance Commanding (ComboBox a) where
   command
     = newEvent "command" comboBoxGetOnTextEnter comboBoxOnTextEnter
 
+instance Updating (ComboBox a) where
+  update
+    = newEvent "update" controlGetOnText controlOnText
+
 instance Selecting (ComboBox a) where
   select
     = newEvent "select" comboBoxGetOnCommand comboBoxOnCommand
@@ -661,7 +668,7 @@ instance Items (ComboBox a) String where
 
 -- | Create a new combo box.
 --
--- * Instances: 'Selecting', 'Commanding','Selection','Items' -- 'Textual', 'Literate', 'Dimensions',
+-- * Instances: 'Selecting', 'Commanding', 'Updating', 'Selection', 'Items' -- 'Textual', 'Literate', 'Dimensions',
 --              'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --
@@ -674,7 +681,7 @@ comboBox parent props
 
 -- | Create a new combo box with a given set of flags.
 --
--- * Instances: 'Selecting', 'Commanding','Selection','Items' -- 'Textual', 'Literate', 'Dimensions',
+-- * Instances: 'Selecting', 'Commanding', 'Updating', 'Selection', 'Items' -- 'Textual', 'Literate', 'Dimensions',
 --              'Colored', 'Visible', 'Child',
 --             'Able', 'Tipped', 'Identity', 'Styled', 'Reactive', 'Paint'.
 --

wx/src/Graphics/UI/WX/Events.hs

@@ -66,6 +66,8 @@ module Graphics.UI.WX.Events
              , Selecting, select
              -- ** Commanding
              , Commanding, command
+             -- ** Updating
+             , Updating, update
              -- ** Reactive
              , Reactive
              , mouse, keyboard
@@ -152,6 +154,13 @@ class Commanding w where
   -- | A commanding event, for example a button press.
   command :: Event w (IO ())
 
+-- | 'Updating' widgets fire an 'update' event.
+class Updating w where
+  -- | An update event, for example when the text of a 'TextCtrl' changes.
+  -- An update event, unlike a 'command' event, is typically a passive state
+  -- change and doesn't require a response.
+  update :: Event w (IO ())
+
 -- | 'Reactive' widgets are almost all visible widgets on the screen.
 class Reactive w where
   mouse     :: Event w (EventMouse -> IO ())
@@ -369,4 +378,4 @@ auiNotebookOnPageChangedEvent = newAuiEvent "auiNotebookOnPageChanged" wxEVT_AUI
 -- | Create a new event from a get and set function.
 newEvent :: String -> (w -> IO a) -> (w -> a -> IO ()) -> Event w a
 newEvent name getter setter
-  = Event (newAttr name getter setter)
+  = Event (newAttr name getter setter)