tests/perl/xmessage.ppp

   1 # Usage: SendToModule FvwmPerl preprocess xmessage.ppp
   2
   3 %{
   4         %window_size = ( x => 300, y => 150 );
   5         $border_width = 8;
   6         $title_height = 20;  # several vertical points are not very important
   7         $pos_x = ($WIDTH - $window_size{x}) / 2 - $border_width;
   8         $pos_y = ($HEIGHT - $window_size{y} - $title_height) / 2 - $border_width;
   9         ""
  10 }%
  11
  12 Style MyXMessage BorderWidth %{$border_width}%, NoHandles
  13 Style MyXMessage WindowShadeShrinks, WindowShadeSteps 80, WindowShadeBusy
  14
  15 Exec xmessage -g %{"$window_size{x}x$window_size{y}"}%+%{$pos_x}%+%{$pos_y}% \
  16         -fg black -xrm "*textSink*font:lucidasans-18" \
  17         -xrm "*form*background:rgb:c0/c0/a0" \
  18         -xrm "*form*okay*background:rgb:90/90/7a" \
  19         -xrm "*form*message*background:rgb:f0/f0/c0" \
  20         -name MyXMessage -title "Testing FvwmPerl preprocess" "Hello world!"
  21
  22 Wait MyXMessage
  23
  24 %Repeat 2
  25 %Prefix "All (MyXMessage) WindowShade ShadeAgain"
  26         NE
  27         N
  28         E
  29         SE
  30         S
  31         N
  32 %End Prefix
  33 All (MyXMessage) WindowShade Off
  34 %End
  35
  36 %ModuleConfig FvwmIdent destroy
  37         Colorset 0
  38         Font lucidasans-10
  39         MinimalLayer 5
  40 %End ModuleConfig FvwmIdent