[htoolkit-cvs] gio/src/Graphics/UI/GIO Attributes.hs,1.19,1.20 Controls.hs,1.36,1.37 Menu.hs,1.16,1.17 ToolBar.hs,1.7,1.8

[<kr_...@us...>]

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv4156/src/Graphics/UI/GIO

Modified Files:
	Attributes.hs Controls.hs Menu.hs ToolBar.hs 
Log Message:
Rename ToolTip class to Tipped


Index: Attributes.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Attributes.hs,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Attributes.hs	15 Nov 2003 10:34:14 -0000	1.19
--- Attributes.hs	15 Nov 2003 10:52:30 -0000	1.20
***************
*** 72,77 ****
               , Able, enabled
               
!              -- ** ToolTip
!              , ToolTip, tooltip
               
               -- ** Accelerated
--- 72,77 ----
               , Able, enabled
               
!              -- ** Tipped
!              , Tipped, tooltip
               
               -- ** Accelerated
***************
*** 288,293 ****
    enabled :: Attr w Bool
    
! -- | Widgets that supports tooltips.
! class ToolTip w where
    -- | The tip text
    tooltip :: Attr w String
--- 288,293 ----
    enabled :: Attr w Bool
    
! -- | Widgets that have a tooltip.
! class Tipped w where
    -- | The tip text
    tooltip :: Attr w String
***************
*** 303,307 ****
    pos :: Attr w Int
  
! -- | Widgets that can be visible/invisible.
  class Visible w where
    visible :: Attr w Bool
--- 303,307 ----
    pos :: Attr w Int
  
! -- | Widgets that can be visible\/invisible.
  class Visible w where
    visible :: Attr w Bool

Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.36
retrieving revision 1.37
diff -C2 -d -r1.36 -r1.37
*** Controls.hs	12 Oct 2003 21:33:47 -0000	1.36
--- Controls.hs	15 Nov 2003 10:52:30 -0000	1.37
***************
*** 157,161 ****
    enabled = newStdAttr lhandle Port.getControlEnabled Port.setControlEnabled
    
! instance ToolTip Label where
    tooltip = newStdAttr lhandle Port.getControlTip Port.setControlTip
  
--- 157,161 ----
    enabled = newStdAttr lhandle Port.getControlEnabled Port.setControlEnabled
    
! instance Tipped Label where
    tooltip = newStdAttr lhandle Port.getControlTip Port.setControlTip
  
***************
*** 193,197 ****
    enabled = newStdAttr bhandle Port.getControlEnabled Port.setControlEnabled
    
! instance ToolTip Button where
    tooltip = newStdAttr bhandle Port.getControlTip Port.setControlTip
  
--- 193,197 ----
    enabled = newStdAttr bhandle Port.getControlEnabled Port.setControlEnabled
    
! instance Tipped Button where
    tooltip = newStdAttr bhandle Port.getControlTip Port.setControlTip
  
***************
*** 232,236 ****
    enabled = newStdAttr ehandle Port.getControlEnabled Port.setControlEnabled
    
! instance ToolTip Entry where
    tooltip = newStdAttr ehandle Port.getControlTip Port.setControlTip
  
--- 232,236 ----
    enabled = newStdAttr ehandle Port.getControlEnabled Port.setControlEnabled
    
! instance Tipped Entry where
    tooltip = newStdAttr ehandle Port.getControlTip Port.setControlTip
  
***************
*** 314,318 ****
    enabled = newStdAttr phandle Port.getControlEnabled Port.setControlEnabled
  
! instance ToolTip Popup where
    tooltip = newStdAttr phandle Port.getControlTip Port.setControlTip
  
--- 314,318 ----
    enabled = newStdAttr phandle Port.getControlEnabled Port.setControlEnabled
  
! instance Tipped Popup where
    tooltip = newStdAttr phandle Port.getControlTip Port.setControlTip
  
***************
*** 403,407 ****
    enabled = newStdAttr lbhandle Port.getControlEnabled Port.setControlEnabled
  
! instance ToolTip ListBox where
    tooltip = newStdAttr lbhandle Port.getControlTip Port.setControlTip
  
--- 403,407 ----
    enabled = newStdAttr lbhandle Port.getControlEnabled Port.setControlEnabled
  
! instance Tipped ListBox where
    tooltip = newStdAttr lbhandle Port.getControlTip Port.setControlTip
  
***************
*** 444,448 ****
    enabled = newStdAttr chandle Port.getControlEnabled Port.setControlEnabled
    
! instance ToolTip CheckBox where
    tooltip = newStdAttr chandle Port.getControlTip Port.setControlTip
  
--- 444,448 ----
    enabled = newStdAttr chandle Port.getControlEnabled Port.setControlEnabled
    
! instance Tipped CheckBox where
    tooltip = newStdAttr chandle Port.getControlTip Port.setControlTip
  
***************
*** 479,483 ****
    enabled = newStdAttr rhandle Port.getControlEnabled Port.setControlEnabled
    
! instance ToolTip RadioBox where
    tooltip = newStdAttr rhandle Port.getControlTip Port.setControlTip
  
--- 479,483 ----
    enabled = newStdAttr rhandle Port.getControlEnabled Port.setControlEnabled
    
! instance Tipped RadioBox where
    tooltip = newStdAttr rhandle Port.getControlTip Port.setControlTip
  

Index: Menu.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Menu.hs,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Menu.hs	15 Nov 2003 10:34:14 -0000	1.16
--- Menu.hs	15 Nov 2003 10:52:30 -0000	1.17
***************
*** 145,149 ****
    icon  = newStdAttr hitem Lib.getMenuItemBitmap Lib.setMenuItemBitmap
    
! instance ToolTip MenuItem where
    tooltip = newStdAttr hitem Lib.getMenuTip Lib.setMenuTip
  
--- 145,149 ----
    icon  = newStdAttr hitem Lib.getMenuItemBitmap Lib.setMenuItemBitmap
    
! instance Tipped MenuItem where
    tooltip = newStdAttr hitem Lib.getMenuTip Lib.setMenuTip
  
***************
*** 208,212 ****
    accel = newStdAttr hradioitem Lib.getMenuItemAccel Lib.setMenuItemAccel
    
! instance ToolTip MenuRadioItem where
    tooltip = newStdAttr hradioitem Lib.getMenuTip Lib.setMenuTip
  
--- 208,212 ----
    accel = newStdAttr hradioitem Lib.getMenuItemAccel Lib.setMenuItemAccel
    
! instance Tipped MenuRadioItem where
    tooltip = newStdAttr hradioitem Lib.getMenuTip Lib.setMenuTip
  
***************
*** 256,260 ****
    accel = newStdAttr hcheck Lib.getMenuItemAccel Lib.setMenuItemAccel
    
! instance ToolTip MenuCheck where
    tooltip = newStdAttr hcheck Lib.getMenuTip Lib.setMenuTip
  
--- 256,260 ----
    accel = newStdAttr hcheck Lib.getMenuItemAccel Lib.setMenuItemAccel
    
! instance Tipped MenuCheck where
    tooltip = newStdAttr hcheck Lib.getMenuTip Lib.setMenuTip
  

Index: ToolBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/ToolBar.hs,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** ToolBar.hs	31 Aug 2003 12:56:25 -0000	1.7
--- ToolBar.hs	15 Nov 2003 10:52:30 -0000	1.8
***************
*** 77,81 ****
    pos = readAttr "pos" (Lib.getToolItemPos . hbutton)
  
! instance ToolTip ToolButton where
    tooltip = newStdAttr hbutton Lib.getToolButtonTip Lib.setToolButtonTip
  
--- 77,81 ----
    pos = readAttr "pos" (Lib.getToolItemPos . hbutton)
  
! instance Tipped ToolButton where
    tooltip = newStdAttr hbutton Lib.getToolButtonTip Lib.setToolButtonTip
  
***************
*** 115,119 ****
    pos = readAttr "pos" (Lib.getToolItemPos . hcheck)
  
! instance ToolTip ToolCheckButton where
    tooltip = newStdAttr hcheck Lib.getToolButtonTip Lib.setToolButtonTip
  
--- 115,119 ----
    pos = readAttr "pos" (Lib.getToolItemPos . hcheck)
  
! instance Tipped ToolCheckButton where
    tooltip = newStdAttr hcheck Lib.getToolButtonTip Lib.setToolButtonTip
  
***************
*** 156,160 ****
    pos = readAttr "pos" (Lib.getToolItemPos . hradio)
  
! instance ToolTip ToolRadioButton where
    tooltip = newStdAttr hradio Lib.getToolButtonTip Lib.setToolButtonTip
  
--- 156,160 ----
    pos = readAttr "pos" (Lib.getToolItemPos . hradio)
  
! instance Tipped ToolRadioButton where
    tooltip = newStdAttr hradio Lib.getToolButtonTip Lib.setToolButtonTip
  
***************
*** 197,201 ****
    pos = readAttr "pos" (Lib.getToolItemPos . hdropdown)
  
! instance ToolTip ToolDropDownButton where
    tooltip = newStdAttr hdropdown Lib.getToolButtonTip Lib.setToolButtonTip
  
--- 197,201 ----
    pos = readAttr "pos" (Lib.getToolItemPos . hdropdown)
  
! instance Tipped ToolDropDownButton where
    tooltip = newStdAttr hdropdown Lib.getToolButtonTip Lib.setToolButtonTip