home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / Tk / OlWm.pm < prev    next >
Encoding:
Perl POD Document  |  1997-08-10  |  2.1 KB  |  114 lines
  1. package Tk::OlWm;
  2. use Tk;
  3. use 5.004;
  4.  
  5. # Decoration that can be added/deleted 
  6. # 
  7. # CLOSE FOOTER HEADER RESIZE PIN ICON_NAME
  8.  
  9. sub ADDDEL
  10. {
  11.  my ($mw,$atom,$to,$from) = @_;
  12.  my $data = $mw->privateData;
  13.  $data->{$to} = {} unless exists $data->{$to};
  14.  $data->{$to}->{$atom} = 1;
  15.  $data->{$from}->{$atom} if (exists $data->{$from});
  16. }
  17.  
  18. sub Update
  19. {
  20.  my $mw = shift;
  21.  my $data = $mw->privateData;
  22.  foreach my $kind (keys %$data)
  23.   {
  24.    $mw->property('set',"_OL_DECOR_$kind",ATOM,32,[keys %{$data->{$kind}}]);
  25.   }
  26. }
  27.  
  28. sub Flag
  29. {
  30.  my ($name,$mw,$state) = @_;
  31.  $mw->property('set',"_OL_$name",INTEGER,32,$state);
  32.  $mw->update if ($mw->IsMapped);
  33. }
  34.  
  35. sub Tk::Wm::OL_WIN_BUSY
  36. {
  37.  Flag('WIN_BUSY',@_);
  38. }
  39.  
  40. sub Tk::Wm::OL_PIN_STATE
  41. {
  42.  Flag('PIN_STATE',@_);
  43. }
  44.  
  45.  
  46. sub Tk::Wm::OL_DECOR
  47. {
  48.  my ($mw,%args) = @_;
  49.  foreach (keys %args)
  50.   {
  51.    my $atom = "_OL_DECOR_$_";
  52.    if ($args{$_})
  53.     {
  54.      ADDDEL($mw,$atom,'ADD','DEL');
  55.     }
  56.    else
  57.     {
  58.      ADDDEL($mw,$atom,'DEL','ADD');
  59.     }
  60.   }
  61.  Update($mw);
  62. }
  63.  
  64. 1;
  65.  
  66. __END__
  67.  
  68. =head1 NAME
  69.  
  70. Tk::OlWm - Interface to OpenLook properties of toplevel windows.
  71.  
  72. =head1 SYNOPSIS
  73.  
  74.    use Tk::OlWm;
  75.  
  76.    $toplevel->OL_DECOR( 
  77.                         CLOSE  => flag,
  78.                         FOOTER => flag,
  79.                         HEADER => flag, 
  80.                         RESIZE => flag, 
  81.                         PIN => flag, 
  82.                         ICON_NAME => flag, 
  83.                       );
  84.  
  85.    $toplevel->OL_WIN_BUSY( flag );
  86.  
  87.    $toplevel->OL_PIN_STATE( flag );
  88.  
  89.  
  90. =head1 DESCRIPTION
  91.  
  92. I simple perl-only module that adds a few methods to Tk::Wm class.
  93. These methods manipulate properties of the C<$toplevel> to communicate 
  94. with an OpenLook window manager, e.g. Sun's C<olwm> or C<olvwm>.
  95.  
  96. In the synopsis above C<flag> is a "boolean" value - i.e. an integer 
  97. with 0 meaning false and other values meaning true.
  98.  
  99. All the I<name =E<gt> flag> pairs are optional.
  100.  
  101. =head1 STATUS
  102.  
  103. Works for me, it is in 'Contrib' because I cannot support something
  104. which has been developed just by dumping properties of Sun applications
  105. and guessing.
  106.  
  107. =head1 AUTHOR
  108.  
  109. Nick Ing-Simmons E<lt>nik@tiuk.ti.comE<gt>
  110.  
  111. =cut
  112.  
  113.  
  114.