scripts/FvwmScript-Confirm

   1 WindowTitle {Question}
   2 WindowSize 400 150
   3 Font    -adobe-helvetica-bold-r-*-*-12-*
   4
   5 Init
   6 Begin
   7     Set $Lang = {}
   8     Set $Color = {}
   9     Set $Launched = 0
  10     Set $return = {}
  11     Set $Command = {}
  12     Set $CancelCommand = {}
  13     Set $OkTitle = {OK}
  14     Set $CancelTitle = {Cancel}
  15     Set $Line1 = {}
  16     Set $Line2 = {}
  17     Set $Line3 = {}
  18     # Arguments
  19     Set $i = 1
  20     Set $arg = (GetScriptArgument $i)
  21     While $arg <> {} Do
  22     Begin
  23         Set $j = (Add $i 1)
  24         If $arg == {--launched} Then
  25             Set $Launched = (GetScriptArgument $j)
  26         If $arg == {--command} Then
  27             Set $Command = (GetScriptArgument $j)
  28         If $arg == {--cancel-command} Then
  29             Set $CancelCommand = (GetScriptArgument $j)
  30         If $arg == {--lang} Then
  31             Set $Lang = (GetScriptArgument $j)
  32         If $arg == {--color} Then
  33             Set $Color = (GetScriptArgument $j)
  34         If $arg == {--line1} Then
  35             Set $Line1 = (GetScriptArgument $j)
  36         If $arg == {--line2} Then
  37             Set $Line2 = (GetScriptArgument $j)
  38         If $arg == {--line3} Then
  39             Set $Line3 = (GetScriptArgument $j)
  40         If $arg == {--lines-by-local} Then
  41             Set $LinesByLocal = (GetScriptArgument $j)
  42         If $arg == {--ok} Then
  43             Set $OkTitle = (GetScriptArgument $j)
  44         If $arg == {--cancel} Then
  45             Set $CancelTitle = (GetScriptArgument $j)
  46         Set $i = (Add $i 2)
  47         Set $arg = (GetScriptArgument $i)
  48     End
  49
  50     If $Line1 <> {} Then
  51         ChangeTitle 10 $Line1
  52
  53     If $Line2 <> {} Then
  54         ChangeTitle 20 $Line2
  55
  56     If $Line3 <> {} Then
  57         ChangeTitle 30 $Line3
  58
  59     ChangeTitle 992 $OkTitle
  60     ChangeTitle 994 $CancelTitle
  61
  62 End
  63
  64
  65
  66
  67 # ----------------------------------------------------------------------------
  68
  69 # main rectangle
  70 Widget 2
  71 Property
  72     Flags NoReliefString
  73     Position 5 5
  74     Size 390 100
  75     Type Rectangle
  76     Title {}
  77 Main
  78 Case message of
  79  SingleClic :
  80  Begin
  81  End
  82 End
  83
  84
  85 # line1
  86 Widget 10
  87 Property
  88     Flags NoReliefString
  89     Position 10 15
  90     Size 380 20
  91     Type ItemDraw
  92     Title {}
  93 Main
  94 Case message of
  95  SingleClic :
  96  Begin
  97  End
  98 End
  99
 100
 101 # Line2
 102 Widget 20
 103 Property
 104     Flags NoReliefString
 105     Position 10 40
 106     Size 380 20
 107     Type ItemDraw
 108     Title {}
 109 Main
 110 Case message of
 111  SingleClic :
 112  Begin
 113  End
 114 End
 115
 116 # line3
 117 Widget 30
 118 Property
 119     Flags NoReliefString
 120     Position 10 65
 121     Size 380 20
 122     Type ItemDraw
 123     Title {}
 124 Main
 125 Case message of
 126  SingleClic :
 127  Begin
 128  End
 129 End
 130
 131 #--------------
 132
 133 #----------------------------------------------------------------------------
 134
 135 # Ok
 136 Widget 992
 137 Property
 138     Flags NoReliefString
 139     Position 50 115
 140     Size 80 20
 141     Type PushButton
 142     Title {OK}
 143 Main
 144 Case message of
 145  SingleClic :
 146  Begin
 147     If $Launched == {yes} Then
 148     Begin
 149         Set $ret = {OK}
 150         SendToScript (GetScriptFather) $ret
 151     End
 152     If $Command <> {} Then
 153         Do $Command
 154     Quit
 155  End
 156 End
 157
 158
 159 # Cancel
 160 Widget 994
 161 Property
 162     Flags NoReliefString
 163     Position 270 115
 164     Size 80 20
 165     Type PushButton
 166     Title {}
 167 Main
 168 Case message of
 169  SingleClic :
 170  Begin
 171     If $Launched == {yes} Then
 172         SendToScript (GetScriptFather) {Cancel}
 173     If $CancelCommand <> {} Then
 174         Do $CancelCommand
 175     Quit
 176  End
 177 End