modules/FvwmScript/Scripts/FvwmScript-ComExample.in

   1 WindowTitle {FvwmScript-ComExample}
   2 WindowSize 360 290
   3 Font            -adobe-helvetica-bold-r-*-*-12-*
   4
   5 Init
   6 Begin
   7     # set the com name
   8     Set $pid = (GetPid)
   9     Set $ComName = {ComExample-}$pid
  10     # defined when build
  11     Set $DATADIR = {xFVWM_DATADIRx}
  12     Set $Perl = {xPERLx}
  13     # run fvwm-script-ComExample.pl
  14     Do {Exec }$Perl{ -w }$DATADIR{/fvwm-script-ComExample.pl --com-name=}$ComName{ &}
  15
  16     # startup cmd
  17     Set $Startup = (SendMsgAndGet $ComName {startup} 1)
  18
  19     If $Startup == 0 Then
  20         Set $tmp = {An error occur at startup!}
  21     Else
  22         Set $tmp = $Startup
  23
  24     ChangeTitle 10 $tmp
  25 End
  26
  27 #----------------------------------------
  28 # Title
  29
  30 Widget 10
  31 Property
  32     Position 10 10
  33     Size 340 20
  34     Flags NoReliefString NoFocus
  35     Type ItemDraw
  36     Title {}
  37 Main
  38 Case message of
  39  SingleClic :
  40  Begin
  41  End
  42 End
  43
  44 Widget 11
  45 Property
  46     Flags NoReliefString
  47     Position 10 35
  48     Size 340 205
  49     Type Rectangle
  50 Main
  51 Case message of
  52     SingleClic :
  53     Begin
  54     End
  55 End
  56
  57 #---------------------------------------
  58 # count
  59
  60 Widget 20
  61 Property
  62     Flags NoReliefString
  63     Position 30 60
  64     Size 150 20
  65     Type PushButton
  66     Title {Send Msg Count}
  67 Main
  68 Case message of
  69     SingleClic :
  70     Begin
  71         Set $tmp = (SendMsgAndGet $ComName {count} 1)
  72         ChangeTitle 21 $tmp
  73     End
  74 End
  75
  76 Widget 21
  77 Property
  78     Position 190 60
  79     Size 150 20
  80     Flags NoReliefString NoFocus
  81     Type ItemDraw
  82     Title {No count Msg Send}
  83 Main
  84 Case message of
  85  SingleClic :
  86  Begin
  87  End
  88 End
  89
  90 #---------------------------------------
  91 # an unkwon msg
  92
  93 Widget 30
  94 Property
  95     Flags NoReliefString
  96     Position 30 100
  97     Size 150 20
  98     Type PushButton
  99     Title {Send An Unknown Msg}
 100 Main
 101 Case message of
 102     SingleClic :
 103     Begin
 104         Set $tmp = (SendMsgAndGet $ComName {unknown} 1)
 105         Set $tmp = {Returned value: }$tmp
 106         ChangeTitle 31 $tmp
 107     End
 108 End
 109
 110 Widget 31
 111 Property
 112     Position 190 100
 113     Size 150 20
 114     Flags NoReliefString NoFocus
 115     Type ItemDraw
 116     Title {No unknown Msg Send}
 117 Main
 118 Case message of
 119  SingleClic :
 120  Begin
 121  End
 122 End
 123
 124 #---------------------------------------
 125 # A "multilines" answer
 126
 127 Widget 40
 128 Property
 129     Flags NoReliefString
 130     Position 30 140
 131     Size 150 20
 132     Type PushButton
 133     Title {A "Multilines" Msg}
 134 Main
 135 Case message of
 136  SingleClic :
 137  Begin
 138     Set $tmp = (SendMsgAndGet $ComName {multilines} 1)
 139     Set $t1 = (Parse $tmp 1)
 140     Set $t2 = (Parse $tmp 2)
 141     Set $t3 = (Parse $tmp 3)
 142     ChangeTitle 41 $t1
 143     ChangeTitle 42 $t2
 144     ChangeTitle 43 $t3
 145   End
 146 End
 147
 148 Widget 41
 149 Property
 150     Position 190 140
 151     Size 150 20
 152     Flags NoReliefString NoFocus
 153     Type ItemDraw
 154     Title {No multiline Msg Send}
 155 Main
 156 Case message of
 157  SingleClic :
 158  Begin
 159  End
 160 End
 161
 162 Widget 42
 163 Property
 164     Position 190 170
 165     Size 150 20
 166     Flags NoReliefString NoFocus
 167     Type ItemDraw
 168     Title {No multilines Msg Send}
 169 Main
 170 Case message of
 171  SingleClic :
 172  Begin
 173  End
 174 End
 175
 176 Widget 43
 177 Property
 178     Position 190 200
 179     Size 150 20
 180     Flags NoReliefString NoFocus
 181     Type ItemDraw
 182     Title {No multilines Msg Send}
 183 Main
 184 Case message of
 185  SingleClic :
 186  Begin
 187  End
 188 End
 189
 190 #---------------------------------------
 191 # Quit
 192 Widget 99
 193 Property
 194     Size 80 20
 195     Position 250 250
 196     Flags NoReliefString
 197     Type PushButton
 198     Title {Quit}
 199 Main
 200 Case message of
 201  SingleClic :
 202  Begin
 203     # say to fvwm-script-ComExample.pl to exit the 0 says that we do not
 204     # need an answer
 205     Set $dummy = (SendMsgAndGet $ComName {exit} 0)
 206     Quit
 207  End
 208 End