mainpanedwindow.hs

来自「HTK系列的」· HS 代码 · 共 43 行

-- -----------------------------------------------------------------------
--
-- $Source: /repository/uni/htk/examples/tix/Mainpanedwindow.hs,v $
--
-- HTk - a GUI toolkit for Haskell  -  (c) Universitaet Bremen
--
-- $Revision: 1.2 $ from $Date: 2003/09/23 09:02:31 $  
-- Last modification by $Author: cxl $
--
-- -----------------------------------------------------------------------

module Main (main) where

import HTk

main:: IO ()
main =
  do
    main <- initHTk [text "paned window example!"]
    requirePackage "Tix"

    pwh <- newPanedWindow main Horizontal []
    paneh1 <- createPane pwh [initsize 300, minsize 100, maxsize 400] []
    paneh2 <- createPane pwh [initsize 300, minsize 100, maxsize 400] []

    pwv <- newPanedWindow paneh1 Vertical []
    panev1 <- createPane pwv [initsize 300, minsize 100, maxsize 400] []
    panev2 <- createPane pwv [initsize 200, minsize 100, maxsize 300] []

    pack pwh [Fill Both, Expand On]
    pack pwv [Fill Both, Expand On]

    but1 <- newButton paneh2 [text "pane1"]
    pack but1 [Fill Both, Expand On]

    but2 <- newButton panev1 [text "pane2"]
    pack but2 [Fill Both, Expand On]

    but3 <- newButton panev2 [text "pane3"]
    pack but3 [Fill Both, Expand On]

    finishHTk