bind an header einer Tk::HList: geht das? - #46768 (Graphische Oberflächen)

Crian

2004-01-23 11:20

User since
2003-08-04
5872 Artikel
ModeratorIn

Hmmm... hast Du ein Beispiel wie das geht? Wie fast immer bei Tk ist die Perldoc-Hilfe nicht sehr hilfreich.

Ich hab es so probiert:

Code: (dl )

1
2
3

    $mhl->header('create', 1,
                  -itemtype => 'Button',
                  -text     => 'Dateiname' );

und so

Code: (dl )

1
2
3

    $mhl->header('create', 1,
                  -itemtype => 'Tk::Button',
                  -text     => 'Dateiname' );

Aber er jammert jedesmal "unknown display type".

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite