From ca084379dcdf35209000b916c9e13719408d630f Mon Sep 17 00:00:00 2001 From: mohawk2 Date: Wed, 23 Dec 2020 18:27:04 +0000 Subject: [PATCH] Fix typos See eserte/perl-tk#73 --- lib/Tcl/pTk/demos/widget_lib/mega.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lib/Tcl/pTk/demos/widget_lib/mega.pl b/lib/Tcl/pTk/demos/widget_lib/mega.pl index f93a73c..2d7fb12 100644 --- a/lib/Tcl/pTk/demos/widget_lib/mega.pl +++ b/lib/Tcl/pTk/demos/widget_lib/mega.pl @@ -21,7 +21,7 @@ sub mega { $t->pack( qw/ -fill both -expand 1 / ); $t->insert( 'end', <<'end-of-instructions' ); -Here, briefly, is the Perl/Tk mega-widget implementation for pure Perl mega-widgets. As much of the work as possible has been abstracted and incorporated into the pTk core. This mimimizes the code the mega-widget author has to write, increasing consistency. +Here, briefly, is the Perl/Tk mega-widget implementation for pure Perl mega-widgets. As much of the work as possible has been abstracted and incorporated into the pTk core. This minimizes the code the mega-widget author has to write, increasing consistency. There are two varieties of mega-widgets in Perl/Tk: composite and derived. A composite is Toplevel or Frame-based, having other, more elemental, widgets packed (or gridded) inside. A derived widget has a ISA-like relationship, generally adding (but sometimes subtracting) options/methods to/from a single, existing, widget. Of course, that single widget may itself be a composite widget. @@ -31,7 +31,7 @@ sub mega { . defines a subroutine to initialize the class (optional) . defines an instance constructor (subroutine) that (optional): . builds the new widget - . defines options (configuration specifications, analagous to C widgets) + . defines options (configuration specifications, analogous to C widgets) . defines delegates for widget methods . defines private and instance methods (optional) @@ -91,7 +91,7 @@ sub mega { # Don't forget POD documentation here! -Here's an excerpt from a Text dervived mega-widget called TraceText; you can examine the complete code in another demonstration. This widget defines its content using a new -textvariable option. +Here's an excerpt from a Text derived mega-widget called TraceText; you can examine the complete code in another demonstration. This widget defines its content using a new -textvariable option. package Tk::TraceText; use base qw/Tk::Derived Tk::Text/;