WidgetDemo(3pm)

💖 WidgetDemo(3pm) 💖

okay bestie, welcome to Tk::WidgetDemo — it's a Perl module from the User Contributed Perl Documentation crew, and it is literally here to serve you a standard widget demonstration window. periodt. 🎀

---

✨ NAME ✨

Tk::WidgetDemo — create a standard widget demonstration window. it's giving "here's the demo, here's the code, go off." 👑

---

🌸 SYNOPSIS 🌸

use WidgetDemo;
my $TOP = $MW->WidgetDemo(
    -name             => $demo,
    -text             => 'Learn how to write a widget demonstration!',
    -title            => 'WidgetDemo Demonstration',
    -iconname         => 'WidgetDemo',
    -geometry_manager => 'grid',
    -font             => $FONT,
);

no cap, that's the whole vibe right there. 🦋

---

💅 DESCRIPTION 💅

This constructor builds a standard widget demonstration window, bestie, and it's composed of three frames. iconic structure, honestly:

• the top frame holds the descriptive demonstration text 📝
• the bottom frame holds the "Dismiss" and "See Code" buttons 🔘
• the middle frame is the demonstration container, which can be managed by either the pack or grid geometry manager 🧚

The -text attribute gets supplied to a Label widget, and that Label is left-adjusted with -wraplength set to 4 inches. 📏

If you require different specifications, then bestie, just pass an array to -text instead — the first element is the text string, and the remaining array elements are standard Label widget attributes. WidgetDemo will rearrange things as required. (yes, the original really does end that sentence with two periods. we respect the two periods. .. 💀)

-text => ['Hello World!', qw/-wraplength 6i/],

---

🌈 AUTHOR 🌈

Steve Lidie <Stephen.O.Lidie@Lehigh.EDU> 🫶

---

📜 HISTORY 📜

lusol@Lehigh.EDU, LUCC, 97/02/11 lusol@Lehigh.EDU, LUCC, 97/06/07 Stephen.O.Lidie@Lehigh.EDU, LUCC, 97/06/07

• Add Delegates() call that obviates the need for Top(). Many thanks to Achim Bohnet for this patch. 🙏
• Fix -title so that it works. 🔧

---

👑 COPYRIGHT 👑

Copyright (C) 1997 - 1998 Stephen O. Lidie. All rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

---

fr fr, that's the whole page. go build a demo window, you absolute icon. 💜

and that's the sign-off bestie — this was perl v5.40.1, dated 2025-04-13, living its life as WidgetDemo(3pm). mwah. 💋✨