IUP

 view release on metacpan or  search on metacpan

examples/1-apps/app-mdi.pl  view on Meta::CPAN

  $self->GetDialog->MDIARRANGE("TILEHORIZONTAL");
  return IUP_DEFAULT;
}

sub mdi_tilevert {
  my $self = shift;
  $self->GetDialog->MDIARRANGE("TILEVERTICAL");
  return IUP_DEFAULT;
}

sub mdi_cascade {
  my $self = shift;
  $self->GetDialog->MDIARRANGE("CASCADE");
  return IUP_DEFAULT;
}

sub mdi_icon {
  my $self = shift;
  $self->GetDialog->MDIARRANGE("ICON");
  return IUP_DEFAULT;
}

examples/1-apps/app-mdi.pl  view on Meta::CPAN

  my $mnu = IUP::Menu->new( name=>"mnu", child=>[
              IUP::Submenu->new( TITLE=>"MDI", child=>
                IUP::Menu->new( child=>
                  IUP::Item->new( TITLE=>"New", ACTION=>\&mdi_new ),
                ),
              ),                
              IUP::Submenu->new( TITLE=>"Window", , child=> 
                IUP::Menu->new( name=>"winmenu", child=>[
                  IUP::Item->new( TITLE=>"Tile Horizontal", ACTION=>\&mdi_tilehoriz ), 
                  IUP::Item->new( TITLE=>"Tile Vertical", ACTION=>\&mdi_tilevert ), 
                  IUP::Item->new( TITLE=>"Cascade", ACTION=>\&mdi_cascade ), 
                  IUP::Item->new( TITLE=>"Icon Arrange", ACTION=>\&mdi_icon ), 
                  IUP::Item->new( TITLE=>"Close All", ACTION=>\&mdi_closeall ), 
                  IUP::Separator->new(),
                  IUP::Item->new( TITLE=>"Next", ACTION=>\&mdi_next ), 
                  IUP::Item->new( TITLE=>"Previous", ACTION=>\&mdi_previous ), 
                ]),
              ),
            ]);  
  return $mnu;
}

lib/IUP.pod  view on Meta::CPAN

 IUP->MainLoop();

B<Returns:> Always C<IUP_NOERROR>

B<Notes:>

When this function is called, it will interrupt the program execution
until a callback returns C<IUP_CLOSE>, C<L<< IUP->ExitLoop|/"ExitLoop" >>> is called, 
or there are no visible dialogs.

If you cascade many calls to C<L<< IUP->MainLoop|/"MainLoop" >>> there must be a C<return
IUP_CLOSE> or C<L<< IUP->ExitLoop|/"ExitLoop" >>> call for each cascade level, hidding all
dialogs will close only one level. Call C<L<< IUP->MainLoopLevel|/"MainLoopLevel" >>>
to obtain the current level.

If C<L<< IUP->MainLoop|/"MainLoop" >>> is called without any visible dialogs and no active
timers, the application will hang and will not be possible to close the
main loop. The process will have to be interrupted by the system.

When the last visible dialog is hidden the C<L<< IUP->ExitLoop|/"ExitLoop" >>> function is
automatically called, causing the C<L<< IUP->MainLoop|/"MainLoop" >>> to return. To avoid
that set global attribute C<LOCKLOOP> to C<"YES"> before hiding the last dialog.

lib/IUP.pod  view on Meta::CPAN

L<ExitLoop|/"ExitLoop()"> (global method),
L<IDLE_ACTION|IUP::Manual::04_Callbacks/"IDLE_ACTION"> (callback),
L<LOCKLOOP|IUP::Manual::03_Attributes/"LOCKLOOP"> (attribute).
 
=back

=head3 MainLoopLevel()

=over

Returns the current cascade level of C<L<< IUP->MainLoop|/"MainLoop" >>>. 
When no calls were done, return value is 0.

 IUP->MainLoopLevel();

B<Returns:> the cascade level

B<Notes:>

You can use this function to check if C<L<< IUP->MainLoop|/"MainLoop" >>> was already called
and avoid calling it again.

A call to C<L<< $element->Popup|IUP::Manual::02_Elements/"Popup" >>> will increase one level.

B<See Also:>
L<Open|/"Open()"> (global function),

lib/IUP/Manual/07_UsingImageLibrary.pod  view on Meta::CPAN

    <tr>
      <td>"IUP_Webcam"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons8/webcam.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons/webcam.png" border="0" height="24" width="24"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons/webcam.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_WindowsCascade"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/WindowsCascade8.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps/WindowsCascade.png" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/BitmapsGtk/iupgtk-cascade.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_WindowsTile"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/WindowsTile8.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps/WindowsTile.png" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/BitmapsGtk/iupgtk-tile.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_Zoom"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/Zoom8.gif" border="0" height="16" width="16"></td>

lib/IUP/Manual/99_Test.pod  view on Meta::CPAN

    <tr>
      <td>"IUP_Webcam"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons8/webcam.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons/webcam.png" border="0" height="24" width="24"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Icons/webcam.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_WindowsCascade"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/WindowsCascade8.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps/WindowsCascade.png" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/BitmapsGtk/iupgtk-cascade.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_WindowsTile"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/WindowsTile8.gif" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps/WindowsTile.png" border="0" height="16" width="16"></td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/BitmapsGtk/iupgtk-tile.png" border="0" height="24" width="24"></td>
    </tr>
    <tr>
      <td>"IUP_Zoom"</td>
      <td><img src="http://kmx.github.io/perl-iup/img-3.9/imglib/Bitmaps8/Zoom8.gif" border="0" height="16" width="16"></td>