From: Günther S. <gue...@we...> - 2010-01-23 16:34:07
|
Hi, I'd like to be able to "fold" away a widget on button click. I manage to make it disappear but the space it used to occupy is still occupied. How can I "fold" it away? Like in a Tree View? Günther |
From: Henk-Jan v. T. <hj...@ch...> - 2010-01-23 21:41:20
|
On Sat, 23 Jan 2010 17:33:33 +0100, Günther Schmidt <gue...@we...> wrote: > Hi, > > I'd like to be able to "fold" away a widget on button click. I manage to > make it disappear but the space it used to occupy is still occupied. > > How can I "fold" it away? Like in a Tree View? > > Günther You could do it the like this (if you press the button "Remove me", its place will be taken by button "Close"): > import Graphics.UI.WX > main :: IO () > main = start $ > do > f <- frame [ fontSize := 18 > , clientSize := sz 200 200 ] > > ok0 <- button f [ on command := close f > , text := "Close" ] > ok1 <- button f [ text := "Remove me" ] > > set ok1 [ on command := do set ok1 [ > visible := False ] > set f [ layout := column 1 [ widget ok0 ] ] > ] > > set f [ layout := column 1 [ widget ok1 > , widget ok0 > ] > ] > > return () Met vriendelijke groet, Henk-Jan van Tuyl -- http://Van.Tuyl.eu/ http://members.chello.nl/hjgtuyl/tourdemonad.html -- |
From: Henk-Jan v. T. <hj...@ch...> - 2010-01-23 22:02:59
Attachments:
FoldingAWidget.lhs
|
I attached the program to this e-mail, as the copy-paste in the previous one went horribly wrong (seems to be a Windows XP problem). On Sat, 23 Jan 2010 22:41:16 +0100, Henk-Jan van Tuyl <hj...@ch...> wrote: > On Sat, 23 Jan 2010 17:33:33 +0100, Günther Schmidt <gue...@we...> > wrote: > >> Hi, >> >> I'd like to be able to "fold" away a widget on button click. I manage to >> make it disappear but the space it used to occupy is still occupied. >> >> How can I "fold" it away? Like in a Tree View? >> >> Günther > > > You could do it the like this (if you press the button "Remove me", its > place will be taken by button "Close"): > >> import Graphics.UI.WX > >> main :: IO () >> main = start $ >> do >> f <- frame [ fontSize := 18 >> , clientSize := sz 200 200 ] >> >> ok0 <- button f [ on command := close f >> , text := "Close" ] >> ok1 <- button f [ text := "Remove me" ] >> >> set ok1 [ on command := do set ok1 [ >> visible := False ] >> set f [ layout := column 1 [ widget ok0 ] ] >> ] >> >> set f [ layout := column 1 [ widget ok1 >> , widget ok0 >> ] >> ] >> >> return () > > > Met vriendelijke groet, > Henk-Jan van Tuyl > > > -- > http://Van.Tuyl.eu/ > http://members.chello.nl/hjgtuyl/tourdemonad.html > -- > > ------------------------------------------------------------------------------ > Throughout its 18-year history, RSA Conference consistently attracts the > world's best and brightest in the field, creating opportunities for > Conference > attendees to learn about information security's most important issues > through > interactions with peers, luminaries and emerging and established > companies. > http://p.sf.net/sfu/rsaconf-dev2dev > _______________________________________________ > wxhaskell-users mailing list > wxh...@li... > https://lists.sourceforge.net/lists/listinfo/wxhaskell-users -- Met vriendelijke groet, Henk-Jan van Tuyl -- http://Van.Tuyl.eu/ http://functor.bamikanarie.com http://members.chello.nl/hjgtuyl/tourdemonad.html -- |