Snit incompatibility with Tile ttk::dialog ?

I'm having trouble using snit::widgetadaptor with a ttk::dialog hull.
It appears as though the snit code assumes that since ttk::dialog is a
toplevel, it will only accept the options that are valid for the Tk
toplevel windows (see the last configure command below - it does not
show any ttk::dialog options).

The following tkcon session illustrates the issue. Am I doing something
wrong in this code? It seems to work fine with any other widget types.

(wits) 56 % snit::widgetadaptor ttkdialog {
   delegate option * to hull
   delegate method * to hull

   constructor args {
      installhull using ttk::dialog ; $self configurelist $args
   }
}
::ttkdialog
(wits) 57 % ttkdialog .d -message foo -type yesno
Error in constructor: unknown option "-message"
(wits) 58 % ttkdialog .d
.d <-- this works because no options were specified
(wits) 59 % .d configure
{-borderwidth borderWidth BorderWidth 0 0} {-borderwidth borderWidth
BorderWidth 0 0} {-class class Class Toplevel Dialog} {-menu menu Menu
{} {}} {-relief relief Relief flat flat} {-screen screen Screen {} {}}
{-use use Use {} {}} {-background background Background
SystemButtonFace SystemButtonFace} {-background background Background
SystemButtonFace SystemButtonFace} {-colormap colormap Colormap {} {}}
{-container container Container 0 0} {-cursor cursor Cursor {} {}}
{-height height Height 0 0} {-highlightbackground highlightBackground
HighlightBackground SystemButtonFace SystemButtonFace} {-highlightcolor
highlightColor HighlightColor SystemWindowFrame SystemWindowFrame}
{-highlightthickness highlightThickness HighlightThickness 0 0} {-padx
padX Pad 0 0} {-pady padY Pad 0 0} {-takefocus takeFocus TakeFocus 0 0}
{-visual visual Visual {} {}} {-width width Width 0 0}

/Ashok
Received on Sun Apr 30 02:25:32 2006