Win32::GUI - MonthCal in Tk integrieren - #149364 (Fragen zu Perl-Modulen)

Kean

2011-06-01 15:55

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Ich würde gerne in eines meiner Tk-Scripte einen Kalender einbinden.
Bei dem Modul Win32::GUI ist eine schöne Lösung als Beispiel (MonthCal) dabei.

Kann ich diese auch in ein Tk-Windows integrieren?

Code (perl): (dl )

use strict;
use warnings;
use Win32::GUI();

# main Window
my $Window = new Win32::GUI::Window (
    -name     => "Window",
    -title    => "MonthCal Sample",
    -pos      => [100, 100],
    -size     => [440, 400],
) or die "new Window";

# Mono select MonthCal control
$Window->AddMonthCal (
    -name     => "MonthCalMono",
    -pos      => [10, 10],
    -size     => [200, 160],
    #-onSelect => \&OnSelect,
    #-onSelChange => \&OnSelChange,
);

# Event loop
$Window->Show();
Win32::GUI::Dialog();