Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

tiny tweaks for next release

  • Loading branch information...
commit 670c4b3231d5d5727e8dcc04871d8409d3a5be68 1 parent e391a03
@rcaputo authored
Showing with 56 additions and 51 deletions.
  1. +6 −1 Changes
  2. +25 −25 README
  3. +25 −25 samples/tk.perl
View
7 Changes
@@ -71,7 +71,7 @@ If it all goes as planned, this will give people at least 1/4 year to
update their programs.
-0.1206 2001.03.01
+0.1206 2001.??.??
-----------------
Enhance POE::Preprocessor to track macros and constants per package.
@@ -110,6 +110,11 @@ put() methods can be used with single logical records. They can't.
POE::Preprocessor would make regular expressions like /(|a|b)/ when a
sub-expression was optional. Tweaked it to generate /(a|b)?/ instead.
+Rearranged the README sections in an effort to make it more readable.
+
+Fix samples/tk.perl to use C<$poe_main_window> instead of the older
+C<$poe_tk_main_window>. I'm surprised this was overlooked so long.
+
0.1205 2001.02.12
-----------------
View
50 README
@@ -16,6 +16,29 @@ Documentation Roadmap
The POE manpage's SEE ALSO section lists the topics covered in each
manpage. It's a good starting place.
+--------------------
+Distribution Details
+--------------------
+
+This distribution comes with several sample and tutorial programs in
+its samples/ directory. These programs are NOT installed because they
+have limited use and take up a lot of space and have limited use.
+They will be split into a separate distribution in the near future.
+
+The lib/ directory includes a few useful utilities, including a
+relatively portable bidirectional pipe creator. There's also a small
+test coverage module, harness, and report. The test coverage summary
+at the end of this file was generated by that system. These utilities
+aren't installed either.
+
+The test programs, in t/, may also be interesting examples, although
+they're more geared towards exercising POE. The tests also aren't
+installed.
+
+All in all, the actual installed bits of POE are probably around a
+third of the total distribution, and about a quarter of B<that> is
+documentation.
+
------------------
Basic Installation
------------------
@@ -99,29 +122,6 @@ Finally you can install it:
make install
---------------------
-Distribution Details
---------------------
-
-This distribution comes with several sample and tutorial programs in
-its samples/ directory. These programs are NOT installed because they
-have limited use and take up a lot of space and have limited use.
-They will be split into a separate distribution in the near future.
-
-The lib/ directory includes a few useful utilities, including a
-relatively portable bidirectional pipe creator. There's also a small
-test coverage module, harness, and report. The test coverage summary
-at the end of this file was generated by that system. These utilities
-aren't installed either.
-
-The test programs, in t/, may also be interesting examples, although
-they're more geared towards exercising POE. The tests also aren't
-installed.
-
-All in all, the actual installed bits of POE are probably around a
-third of the total distribution, and about a quarter of B<that> is
-documentation.
-
------------
Test Results
------------
@@ -142,7 +142,7 @@ Event : (not installed)
IO::Pty : 0.01
All tests successful, 4 tests and 5 subtests skipped.
-Files=24, Tests=429, 159 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
+Files=24, Tests=429, 148 wallclock secs ( 0.00 cusr + 0.00 csys = 0.00 CPU)
** POE 0.1206 on FreeBSD (home-bsd)
@@ -168,7 +168,7 @@ Event : 0.79
IO::Pty : 0.01
All tests successful, 2 tests skipped.
-Files=24, Tests=438, 99 wallclock secs (16.34 cusr + 0.77 csys = 17.11 CPU)
+Files=24, Tests=438, 100 wallclock secs (15.85 cusr + 0.81 csys = 16.66 CPU)
** POE 0.1205 on Solaris/SunOS 5.7 (hfb)
View
50 samples/tk.perl
@@ -87,16 +87,16 @@ sub ui_start {
# An entry field. Things entered here are written to the writable
# ends of the pipe and file.
- $poe_tk_main_window->Label( -text => 'Entry Field' )->pack;
+ $poe_main_window->Label( -text => 'Entry Field' )->pack;
- $heap->{pipe_entry} = $poe_tk_main_window->Entry( -width => 30 );
+ $heap->{pipe_entry} = $poe_main_window->Entry( -width => 30 );
$heap->{pipe_entry}->insert( 0, scalar localtime() );
$heap->{pipe_entry}->pack;
# A button. Pressing it writes what's in the entry field into the
# pipe and file.
- $poe_tk_main_window->Button
+ $poe_main_window->Button
( -text => 'Write Entry to Pipe and File',
-command => $session->postback( 'ev_pipe_write' )
)->pack;
@@ -104,9 +104,9 @@ sub ui_start {
# A listbox. It contains the last 5 things fetched from the
# readable end of the pipe.
- $poe_tk_main_window->Label( -text => 'Pipe Tail (simple read)' )->pack;
+ $poe_main_window->Label( -text => 'Pipe Tail (simple read)' )->pack;
- $heap->{pipe_tail_list} = $poe_tk_main_window->Listbox
+ $heap->{pipe_tail_list} = $poe_main_window->Listbox
( -height => 5, -width => 30
);
for my $i (0..4) {
@@ -117,9 +117,9 @@ sub ui_start {
# A listbox. It contains the last 5 things fetched from the
# readable end of the file.
- $poe_tk_main_window->Label( -text => 'File Tail (tail follow)' )->pack;
+ $poe_main_window->Label( -text => 'File Tail (tail follow)' )->pack;
- $heap->{file_tail_list} = $poe_tk_main_window->Listbox
+ $heap->{file_tail_list} = $poe_main_window->Listbox
( -height => 5, -width => 30
);
for my $i (0..4) {
@@ -129,67 +129,67 @@ sub ui_start {
# A fast timed counter.
- $poe_tk_main_window->Label( -text => 'Fast Timed Counter' )->pack;
+ $poe_main_window->Label( -text => 'Fast Timed Counter' )->pack;
$heap->{fast_text} = \$fast_text;
$heap->{fast_widget} =
- $poe_tk_main_window->Label( -textvariable => $heap->{fast_text} );
+ $poe_main_window->Label( -textvariable => $heap->{fast_text} );
$heap->{fast_widget}->pack;
# A slow timed counter.
- $poe_tk_main_window->Label( -text => 'Slow Timed Counter' )->pack;
+ $poe_main_window->Label( -text => 'Slow Timed Counter' )->pack;
$heap->{slow_text} = \$slow_text;
$heap->{slow_widget} =
- $poe_tk_main_window->Label( -textvariable => $heap->{slow_text} );
+ $poe_main_window->Label( -textvariable => $heap->{slow_text} );
$heap->{slow_widget}->pack;
# An idle counter.
- $poe_tk_main_window->Label( -text => 'Idle Foreground Counter' )->pack;
+ $poe_main_window->Label( -text => 'Idle Foreground Counter' )->pack;
$heap->{idle_text} = \$idle_text;
$heap->{idle_widget} =
- $poe_tk_main_window->Label( -textvariable => $heap->{idle_text} );
+ $poe_main_window->Label( -textvariable => $heap->{idle_text} );
$heap->{idle_widget}->pack;
# Another idle counter, for when the window has no focus.
- $poe_tk_main_window->Label( -text => 'Idle Background Counter' )->pack;
+ $poe_main_window->Label( -text => 'Idle Background Counter' )->pack;
$heap->{unfocus_text} = \$unfocus_text;
$heap->{unfocus_widget} =
- $poe_tk_main_window->Label( -textvariable => $heap->{unfocus_text} );
+ $poe_main_window->Label( -textvariable => $heap->{unfocus_text} );
$heap->{unfocus_widget}->pack;
# Buttons to start and stop the timed counters.
- $poe_tk_main_window->Button
+ $poe_main_window->Button
( -text => 'Begin Timed Counters',
-command => $session->postback( 'ev_counters_begin' )
)->pack;
- $poe_tk_main_window->Button
+ $poe_main_window->Button
( -text => 'Stop Timed Counters',
-command => $session->postback( 'ev_counters_cease' )
)->pack;
# A button to exit the program would be nice! :)
- $poe_tk_main_window->Button
+ $poe_main_window->Button
( -text => 'Exit',
- -command => sub { $poe_tk_main_window->destroy }
+ -command => sub { $poe_main_window->destroy }
)->pack;
# Begin some callbacks.
- $poe_tk_main_window->bind( '<FocusIn>',
- $session->postback( 'ev_idle_count_begin' )
- );
+ $poe_main_window->bind( '<FocusIn>',
+ $session->postback( 'ev_idle_count_begin' )
+ );
- $poe_tk_main_window->bind( '<FocusOut>',
- $session->postback( 'ev_idle_count_cease' )
- );
+ $poe_main_window->bind( '<FocusOut>',
+ $session->postback( 'ev_idle_count_cease' )
+ );
}
sub ui_stop {
Please sign in to comment.
Something went wrong with that request. Please try again.