MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Buttons and Overwriting a Cell

  • To: mathgroup at smc.vnet.net
  • Subject: [mg105643] Re: Buttons and Overwriting a Cell
  • From: David Bailey <dave at removedbailey.co.uk>
  • Date: Sun, 13 Dec 2009 05:38:35 -0500 (EST)
  • References: <hfleid$snr$1@smc.vnet.net>

Gregory Lypny wrote:
> Hello everyone,
> 
> I'm trying to create a button that will produce a 2x2 table of random integers, which I think I've succeeded in doing with the following.
> 
> Button["Hit Me", Print[TableForm[{{RandomInteger[{2,12}], RandomInteger[{2,12}]},
> {RandomInteger[{2,12}], RandomInteger[{2,12}]}},
> TableHeadings->{Automatic,Automatic}]]]
> 
> I'd also like it to overwrite any existing table that it has produced on a previous click.  I know I need to set CellAutoOverwrite to True, but I'm not sure how to work that into my Button statement.  Any suggestions would be much appreciated.
> 
> Regards,
> 
> 	Gregory
> 
Probably the best way to do this, is to incorporate the button and the 
matrix inside one larger control:

table = {{0, 0}, {0, 0}};
Column[{Button["Hit Me",
    table = {{RandomInteger[{2, 12}],
       RandomInteger[{2, 12}]}, {RandomInteger[{2, 12}],
       RandomInteger[{2, 12}]}}],
   Dynamic[TableForm[table, TableHeadings -> {Automatic, Automatic}]]
   }]

David Bailey
http://www.dbaileyconsultancy.co.uk


  • Prev by Date: Re: Plot3D Boxed Option
  • Next by Date: Re: Play Command Error
  • Previous by thread: Re: Buttons and Overwriting a Cell
  • Next by thread: unreadable text in Demonstration projects