-activebackground <color>
  -activeborderwidth <number>
  -activeforeground <color>
  -anchor <n|ne|e|se|s|sw|w|nw|center>
  -background <color>
  -bg <color>         -- abbreviation
  -bitmap <bitmap>
  -borderwidth <number>
  -bd <number>        -- abbreviation
  -cursor <See GetCursor>
  -cursorbackground <color>
  -cursorborderwidth <number>
  -cursorofftime <number>
  -cursorontime <number>
  -cursorwidth <number>
  -disabledforeground <color>
  -exportselection <true|false>
  -font <fontspec>
  -foreground <color>
  -fg <color>         -- abbreviation
  -geometry <widht>x<height>
  -insertbackground <color>
  -insertborderwidth <number>
  -insertofftime <number>
  -insertontime <number>
  -insertwidth <number>
  -orient <horizontal|vertical>
  -padx <coord>
  -pady <coord> -- see Tk_GetPixels
  -relief <raised|sunken|flat>
  -repeatdelay <number>  -- in milliseconds
  -repeatinterval <number>  -- in milliseconds
  -scrollcommand <tcl-command>
  -selectbackground <color>
  -selectborderwidth <coord>  ??
  -selectforeground <color>
  -setgrid <true|false>
  -text <string>
  -textvariable <name>
  -underline <position>
  -xscrollcommand <tcl-command>
  -yscrollcommand <tcl-command>
  

  button q(".butt","quit","-command { destroy . }");
  message m(".mess","Hello World","-bg green -fg red");