MainWindow(3pm)

💖 Tk::MainWindow — the root widget of a widget tree, bestie 💖

okay so welcome to Tk::MainWindow, aka the main character of your entire Perl/Tk app. this is from the User Contributed Perl Documentation section of the manual (manual page name: MainWindow), and it's literally the root of everything. let's get into it 🫶

---

✨ SYNOPSIS ✨

use Tk;

my $mw = MainWindow->new( ... options ... );

my $this = $mw->ThisWidget -> pack ;
my $that = $mw->ThatWidget;
...

MainLoop;

---

🌸 DESCRIPTION 🌸

so basically, every Perl/Tk application that has windows attached to it creates one or more MainWindows, and those MainWindows act as the containers and the parents of all your other widgets. they're the mom friend of the widget tree fr fr.

Tk::MainWindow is a special kind of Toplevel widget — it's the root of a widget tree. and because it's the root, there's nobody above it, so $mw->Parent returns undef. yeah. it's giving orphan energy, but on purpose. 💅

the default title of a MainWindow is the basename of the script — actually, the Class name used for options lookup, i.e. the basename with inital caps (that typo is in the original, iykyk, we keep it 🎀) — or 'Ptk' as the fallback value if that doesn't work out. and if you create more than one MainWindow, or several instances of the script are running at the same time, the string " #n" gets appended, where the number n is set to get a unique value. so you get the little numbered siblings, iconic. 🔥

unlike standard Tcl/Tk's wish, perl/Tk allows you to create several MainWindows. when the last MainWindow is destroyed, the Tk eventloop exits — and btw the eventloop is entered when you call MainLoop. 🦋

here's the tradeoff though, bestie: various resources (bindings, fonts, images, colors) are maintained or cached for each MainWindow, so each MainWindow consumes more resources than a Toplevel. 😭 but multiple MainWindows can genuinely make sense when the user can destroy them independently. so it's a vibe, just a resource-hungry one. ⭐

---

💅 METHODS 💅

you can apply all methods that a Toplevel widget accepts. no gatekeeping here, the whole Toplevel menu is yours. ✨

and the method $w->MainWindow, applied to any widget, will return the MainWindow to which the widget belongs — and yes, the MainWindow belongs to itself. self-love, we stan. 👑

---

🙈 MISSING 🙈

heads up: documentation is incomplete. here are some missing items that should be explained in more detail:

• the new mechanism for MainWindows is slightly different to other widgets. 👀
• there's no explanation about what resources are bound to a MainWindow (e.g., ClassInit done per MainWindow). 🧚
• passing of command line options to override or augment arguments of the new method (see Tk::CmdLine). 💀

---

🎀 SEE ALSO 🎀

• Tk::Toplevel
• Tk::CmdLine

---

okay that's the whole page, bestie, you ate it 💖 this was the User Contributed Perl Documentation build for MainWindow, shipped as part of perl v5.40.1 and dated 2025-04-13. slay, go build something iconic. periodt. ✨🌈💅