6

Gtk2hsには、Widgetクラスを実装するさまざまなウィジェットデータ型があります。同じことをするカスタムデータ型を書くことは可能ですか？

このようなLuaコードを表示および実行するためのウィジェットが必要だとします。

data LuaWidget = LuaWidget { text :: TextView, package :: HBox } deriving Eq
instance Widget LuaWidget where
    ....

Haskellレベルで可能ですか？

4

1 に答える 1

4

gtkでHaskellを使って新しいウィジェット「クラス」を作成することはできません。

できることは、既存のウィジェットタイプにカスタム属性を与えることです。たとえば、パッケージでplot-gtkは、カスタムデータフィールド（ ）がウィジェットSystem.Glib.GObjectに追加されます。drawingArea

import System.Glib.GObject
import Graphics.UI.Gtk

-- | create a new 'Figure' plot
plotNew :: FigureHandle -> IO DrawingArea
plotNew f = do
   canvas <- drawingAreaNew

   set canvas [maybeFigure := (Just f)]

   _ <- on canvas exposeEvent $ tryEvent $ liftIO $ do 
           s <- widgetGetSize canvas
           drw <- widgetGetDrawWindow canvas
           fig <- get canvas figure 
           renderWithDrawable drw (renderFigureState fig s)

   return canvas

-- | the figure attribute
figure :: Attr DrawingArea FigureState
figure = newAttr getFigure setFigure
   where getFigure o = do
              Just f <- get o maybeFigure 
              readMVar f 
         setFigure o f = set o [maybeFigure :~> (\(Just h) -> do
              modifyMVar_ h (\_ -> return f)
              return $ Just h)]

maybeFigure :: Attr DrawingArea (Maybe FigureHandle)
maybeFigure = unsafePerformIO $ objectCreateAttribute
{-# NOINLINE maybeFigure #-}
于 2011-06-29T01:02:37.370 に答える