search

chrstphrchvz / perl-tcl-ptk

Tcl::pTk - Interface to Tcl/Tk with Perl/Tk compatible syntax
https://metacpan.org/pod/Tcl::pTk
Other
8 stars 2 forks source link

Request about support of ttk::labelframe #31

Closed TakamotoAI closed 1 year ago

TakamotoAI commented 1 year ago

Is the widget ttk::labelframe (as in https://www.tcl.tk/man/tcl/TkCmd/ttk_labelframe.html) supported by this framework? I can have the LabFrame widget working but not the ttk variant. Thanks

What I do now is a cumbersome way through TCL:

    my $int = $mw->interp;
    my $labelFramePATH = $int->widget($FrameSettingsView);
    my $Widgetname = $labelFramePATH . '.lf01';
    $int->Eval("
        ttk::labelframe $Widgetname -text INTERFACE -relief ridge -height 100 -width 100
            pack $Widgetname -expand true -fill x
    ");
    my $labelFrame = $int->widget($Widgetname);
chrstphrchvz commented 1 year ago

Yes: $widget->ttkLabelframe(…)

There are examples in the tileWidget.t test and in some widget demos: https://github.com/search?q=repo%3Achrstphrchvz%2Fperl-tcl-ptk%20ttkLabelframe&type=code

TakamotoAI commented 1 year ago

Thanks. Not sure how I could miss it. Works fine.