Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling
 
PerlMonks  

God's Billboards (777th Post)

by Mr. Muskrat (Abbot)
on Jun 04, 2003 at 16:14 UTC ( #263044=CUFP: print w/ replies, xml ) Need Help??

New billboards are getting attention in Arizona (and more recently all over the U.S.). The billboards are a simple white background with black text. No fine print or sponsoring organization is included. I have taken the list of all variations of the "God Speaks" billboards and created this.

#!/usr/bin/perl -w use strict; use Tk; my @data = <DATA>; chomp @data; my $main = MainWindow->new(-title => "God's Billboards"); my $form = $main->Frame()->pack(-side => 'top', -fill => 'both', -padx + => 5, -pady => 5); my $message = $form->Frame()->pack(-side => 'right', -fill => 'both', +-padx => 5, -pady => 5); my $message_val = $message->Text(-height => 3, -width => 40)->pack(-si +de => 'right'); my $buttons = $main->Frame()->pack(-side => 'bottom'); my $sendbutton = $buttons->Button(-text => 'Next', -command => \&Displ +ay)->pack(-side => 'top'); CenterWindow($main); Display(); # set text before entering MainLoop MainLoop(); sub CenterWindow { # Don't remember where I got this subroutine # Args: (0) window to center # (1) [optional] desired width # (2) [optional] desired height my ($window, $width, $height) = @_; $window->idletasks; $width = $window->reqwidth unless $width; $height = $window->reqheight unless $height; my $x = int(($window->screenwidth / 2) - ($width / 2)); my $y = int(($window->screenheight / 2) - ($height / 2)); $window->geometry($width . "x" . $height . "+" . $x . "+" . $y); } sub Next { my $quip = shift(@data); push(@data, $quip); $quip =~ s/\\n/\n/g; $quip .= "\n - God"; return $quip; } sub Display { $message_val->delete('0.0', 'end'); $message_val->insert('0.0', Next()); } __DATA__ Tell the kids I love them. Let's meet at my house Sunday before the\ngame. Keep using my name in vain,\nI'll make rush hour longer. What part of "Thou Shalt Not..."\ndidn't you understand? We need to talk. C'mon over and bring the kids. Have you read my #1 best seller?\nThere will be a test. That "Love Thy Neighbor" thing... \nI meant it. I love you and you and you and you\nand... Will the road you're on get you to my\nplace? Big bang theory, you've got to be\nkidding. My way is the highway. Need directions? You think it's hot here? Loved the wedding, invite me to the\nmarriage. Do you have any idea where you're going? Follow me. Don't make me come down there.

Comment on God's Billboards (777th Post)
Download Code
Re: God's Billboards (777th Post)
by halley (Prior) on Jun 04, 2003 at 17:21 UTC
    With asbestos on, but in all sincerity...
    __DATA__ Who said I require tax-exempt status? I made the Universe in six of My days, not six of yours. I said shellfish was an abomination, too. I created everything there is, and yes, even Satan. Visit My other homes: Synagogue, Mosque, Forest, Desert.

    --
    [ e d @ h a l l e y . c c ]

      (I don't mean to start a big theological discussion, but here we go:)

      Big bang theory, you've got to be kidding.

      It always annoys me when people talk about how God and science must be mutually exclusive. Why couldn't God have set off the Big Bang to start everything going? Maybe He likes blowing stuff up too. My view is more like this quote:

      I made the Universe in six of My days, not six of yours.

      We don't know how long the "days" were. They could have been millions of years. Creationalism and evolution(alism?) do not have to be mutually exclusive.

      kelan


      Perl6 Grammar Student

Re: God's Billboards (777th Post)
by Chady (Priest) on Jun 04, 2003 at 17:46 UTC

    Disclaimer: I don't mean to start a flame war, I know it's OT, but I have to say this: (this is not a reply to Mr. Muskrat, it's a reply to __DATA__)


    He who asks will be a fool for five minutes, but he who doesn't ask will remain a fool for life.

    Chady | http://chady.net/
      Impeach God! ;-)
      You have moved into a dark place.
      It is pitch black. You are likely to be eaten by a grue.
      I don't agree with all of them either, but I think they are light-hearted and funny, and I would recommend that attitude to their readers.

      andramoiennepemousapolutropon

Re: God's Billboards (777th Post)
by zentara (Archbishop) on Jun 04, 2003 at 21:14 UTC
    Instead of the billboard format, how about a "Burma Shave" timed out limrick? :-)
Re: God's Billboards (777th Post)
by vbrtrmn (Pilgrim) on Jun 09, 2003 at 19:11 UTC

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: CUFP [id://263044]
Approved by ybiC
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2014-12-29 02:50 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (184 votes), past polls