gtk2hs-rpn-0.0.1: src/rpnTeste.hs

module Main where {
import Data.Monoid ;
import Graphics.UI.Gtk ; import Graphics.UI.Gtk.Layout.Rpn ;
import Graphics.Rendering.Cairo ;

 main = do {

     initGUI ;

     janelaPrincipal <- windowNew ; onDestroy janelaPrincipal mainQuit ;

     [ w ] <- widgetsFromRpn $ mconcat [

         cBTNSTK stockAbout ,
         cBTNSTK stockQuit ,
         cHBXBTN ,
         pCA ,
         pCA ,
         cLBL $ Just "<b> Oi! </b>" ,
         tSET $ ([labelUseMarkup := True] :: [AttrOp Label]) ,
         cDRW ,
         cVPD ,
         pPA2 ,
         pPA1 ,
         cVBX False 0 ,
         pBPE PackGrow 0 ,
         pBPE PackNatural 0

     ] ;

     containerAdd janelaPrincipal w ;

     widgetShowAll janelaPrincipal ;    mainGUI

 }

}