-- -----------------------------------------------------------------------
--
-- $Source: /repository/uni/htk/kernel/GUIObjectName.hs,v $
--
-- HTk - a GUI toolkit for Haskell  -  (c) Universitaet Bremen
--
-- $Revision: 1.5 $ from $Date: 2001/12/29 18:16:33 $  
-- Last modification by $Author: ludi $
--
-- -----------------------------------------------------------------------

module GUIObjectName (

  ObjectName(..),
  TextItemName(..),
  WidgetName(..),
  CanvasTagOrID(..),
  toWidgetName

) where

import Object(ObjectID(..))
import GUIValue


-- -----------------------------------------------------------------------
--  Object Name
-- -----------------------------------------------------------------------

data ObjectName =
          ObjectName String                             -- widget
        | MenuItemName ObjectName Int                   -- menu item
        | CanvasItemName ObjectName CanvasTagOrID       -- canvas item
        | TextPaneItemName ObjectName TextItemName      -- text item
        | NoteBookPageName ObjectID
        | LabelFrameName ObjectName ObjectID
        | PaneName ObjectID

data TextItemName =
          TextTagID ObjectID
        | TextItemPosition GUIVALUE             -- Point actually
        | EmbeddedWindowName ObjectName

data CanvasTagOrID = CanvasTagOrID ObjectID

toWidgetName :: ObjectName -> WidgetName
toWidgetName (ObjectName s) = WidgetName s
{-# INLINE toWidgetName #-}


-- -----------------------------------------------------------------------
-- instances
-- -----------------------------------------------------------------------

instance Show ObjectName where
   showsPrec d p r =
      (case p of 
         ObjectName s -> s
         MenuItemName s _ -> show s
         TextPaneItemName s _ -> show s
         CanvasItemName s _ -> show s
         NoteBookPageName oid ->
           "[global v" ++ show oid ++ ";set dummy $v" ++ show oid ++ "]"
         LabelFrameName _ oid ->
           "[global v" ++ show oid ++ ";set dummy $v" ++ show oid ++
           "]"
         PaneName oid ->
           "[global v" ++ show oid ++ ";set dummy $v" ++ show oid ++ "]") ++ r

instance Show TextItemName where
   showsPrec d p r = 
      (case p of 
                (TextTagID (ObjectID i)) -> "tag" ++ show i
                (TextItemPosition p) -> show p
                (EmbeddedWindowName p) -> show p
        ) ++ r


instance Show CanvasTagOrID where
   showsPrec d (CanvasTagOrID i) r = "$v" ++ show i ++ r


-- -----------------------------------------------------------------------
-- widget path names
-- -----------------------------------------------------------------------

data WidgetName = WidgetName String 


-- -----------------------------------------------------------------------
-- instances
-- -----------------------------------------------------------------------

instance GUIValue WidgetName where
  cdefault = WidgetName "."

instance Read WidgetName where
   readsPrec p b = [(WidgetName b,[])]

instance Show WidgetName where
   showsPrec d (WidgetName p) r =  p ++  r