view release on metacpan or  search on metacpan

Cdk.pm  view on Meta::CPAN

# This pops up a question on the screen.
#
sub popupDialog
{
   my ($mesg, $buttons) = @_;
 
   my $popup = new Cdk::Dialog ('Message' => $mesg, 'Buttons' => $buttons);
   return $popup->activate;
}

#
# This function takes a scalar and returns a list with elements in the
# list to the given width.
#
sub scalar2List
{
   my ($scalar, $elementLen) = @_;
   my $tempLine = "";
   my $lineLen = 0;
   my @info = ();
   my $x = 0;

   # Break the scalar into a list.
   $_ = $scalar;
   my @wordList = split;

   # Put each scalar back into an array of $elementLen length or more.
   for ($x=0; $x <= $#wordList; $x++)
   {
      $lineLen += length ($wordList[$x]);
      $tempLine .= "$wordList[$x] ";

      if ($lineLen >= $elementLen)
      {
         push (@info, $tempLine);
         $tempLine = "";
         $lineLen = 0;
      }
   }
   push (@info, $tempLine);
   return @info;
}

# 
# Load the object modules.
#
use Cdk::Alphalist;
use Cdk::Buttonbox;
use Cdk::Calendar;
use Cdk::Diag;
use Cdk::Dialog;
use Cdk::Entry;
use Cdk::Fselect;
use Cdk::Graph;
use Cdk::Histogram;
use Cdk::Itemlist;
use Cdk::Label;
use Cdk::Marquee;
use Cdk::Matrix;
use Cdk::Mentry;
use Cdk::Menu;
use Cdk::Radio;
use Cdk::Scale;
use Cdk::Scroll;
use Cdk::Selection;
use Cdk::Slider;
use Cdk::Swindow;
use Cdk::Template;
use Cdk::Viewer;

1;
__END__