Importing from XF4, plus BSD make infrastructure

1 files changed, 279 insertions, 0 deletions

diff --git a/app/fvwm/extras/FvwmScript/Scripts/ScreenDump b/app/fvwm/extras/FvwmScript/Scripts/ScreenDump
new file mode 100644
index 000000000..a3155b6a3
--- /dev/null
+++ b/app/fvwm/extras/FvwmScript/Scripts/ScreenDump
@@ -0,0 +1,279 @@
+WindowTitle {Screen Grabber}
+WindowSize 360 360		# Taille
+WindowPosition 191 50		# Position
+ForeColor	{black}
+BackColor	{grey85}
+ShadowColor	{grey55}
+HilightColor	{grey100}
+Font		-adobe-helvetica-bold-r-*-*-12-*
+
+Init
+ Begin
+  WarpPointer 1
+  Set $Ext = {.gif}
+  Set $Format = {| ppmtogif}
+ End
+ 
+Widget 1
+Property
+ Size 50 30
+ Position 190 320
+ Type PushButton
+ Title {OK}
+Main
+ Case message of
+  SingleClic :
+  Begin
+   If (GetValue 5)==1 Then
+    Do {Exec xwd } $Opt1 { } $Opt2 { | xwdtopnm } $Format { > }  (GetTitle 7) $Ext
+   Else
+    Do {Exec xwd } $Opt1 { } $Opt2 { | xwdtopnm | ppmtopgm | pnmtops | } (GetTitle 11)
+   Quit
+  End
+End
+
+Widget 2
+Property
+ Size 50 30
+ Position 280 320
+ Type PushButton
+ Title {Cancel}
+Main
+ Case message of
+  SingleClic :
+  Begin
+   Do {Exec xset s } $TimeOut
+   Quit
+  End
+End
+
+Widget 3
+Property
+ Size 340 170
+ Position 10 10
+ Type Rectangle
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 4
+Property
+ Position 15 2
+ Type ItemDraw
+ Title {Dump to:}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 5
+Property
+ Size 50 30
+ Position 30 30
+ Type RadioButton
+ Title {File}
+ Value 1
+Main
+ Case message of
+  SingleClic :
+  Begin
+   ChangeValue 6 0 
+  End
+End
+
+Widget 6
+Property
+ Size 50 30
+ Position 30 110
+ Type RadioButton
+ Title {Printer}
+ Value 0
+Main
+ Case message of
+  SingleClic :
+  Begin
+   ChangeValue 5 0 
+  End
+End
+
+Widget 7
+Property
+ Size 250 30
+ Position 75 27
+ Type TextField
+ Title {~/picture}
+ Value 200
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 8
+Property
+ Position 74 65
+ Type ItemDraw
+ Title {Format}
+ Value 1
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 9
+Property
+ Position 130 60
+ Type PopupMenu
+ Title {GIF|PostScript|Tiff|X11 Pixmap|Pgm|Bmp|Sun rasterfile}
+ Value 1
+Main
+ Case message of
+  SingleClic :
+  Begin
+   If (GetValue 9)==1 Then
+   Begin
+    Set $Ext = {.gif}
+    Set $Format = {| ppmtogif}
+   End
+   Else
+   Begin
+    If (GetValue 9)==2 Then
+    Begin
+     Set $Ext = {.ps}
+     Set $Format = {| pnmtops}
+    End
+    Else
+    Begin
+     If (GetValue 9)==3 Then
+     Begin
+      Set $Ext = {.tif}
+      Set $Format = {| pnmtotiff}
+     End
+     Else
+     Begin
+      If (GetValue 9)==4 Then
+      Begin
+       Set $Ext = {.xpm}
+       Set $Format = {| ppmtoxpm}
+      End
+      Else
+      Begin
+       If (GetValue 9)==5 Then
+       Begin
+        Set $Ext = {.pgm}
+        Set $Format = { }
+       End
+       Else
+       Begin
+        If (GetValue 9)==6 Then
+        Begin
+         Set $Ext = {.bmp}
+         Set $Format = {| ppmtobmp}
+        End
+        Else
+        Begin
+         Set $Ext = {.ras}
+         Set $Format = {| pnmtorast}
+        End
+       End
+      End
+     End
+    End
+   End
+  End
+End
+
+Widget 10
+Property
+ Position 74 138
+ Type ItemDraw
+ Title {Command line}
+ Value 1
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+
+Widget 11
+Property
+ Size 150 30
+ Position 175 135
+ Type TextField
+ Title {lpr}
+ Value 200
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 12
+Property
+ Size 340 100
+ Position 10 200
+ Type Rectangle
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 13
+Property
+ Position 15 192
+ Type ItemDraw
+ Title {Options:}
+Main
+ Case message of
+  SingleClic :
+  Begin
+  End
+End
+
+Widget 14
+Property
+ Position 30 220
+ Type CheckBox
+ Title {Include frame}
+Main
+ Case message of
+  SingleClic :
+  Begin
+   If (GetValue 14)==1 Then
+    Set $Opt1 = {-frame} 
+   Else
+    Set $Opt1 = { } 
+  End
+End
+
+Widget 15
+Property
+ Position 30 260
+ Type CheckBox
+ Title {Select the root window}
+Main
+ Case message of
+  SingleClic :
+  Begin
+   If (GetValue 15)==1 Then
+    Set $Opt2 = {-root} 
+   Else
+    Set $Opt2 = { } 
+  End
+End
+
+
+