home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / x / volume19 / wkshTree / part01 / Stepfield < prev   
Encoding:
Text File  |  1993-04-28  |  1.2 KB  |  79 lines
  1. Stepfield()
  2. {
  3.     NUM=0
  4.  
  5.     MONTHS="January February March April May June July
  6.         August September October November December"
  7.  
  8.     for i in `echo $MONTHS`
  9.     do
  10.         MON[NUM]=$i
  11.         ((NUM=$NUM+1))
  12.     done
  13.  
  14.     WHERE=0
  15.     INC=true
  16.  
  17.     cps POPUP popupWindowShell popupWindowShell $PANE \\\n
  18.         title:"StepField:" 
  19.  
  20.     acb $POPUP popdownCallback "dw $POPUP"
  21.  
  22.     cmw CAPTION caption caption $POPUP_UCA \\\n
  23.         label:"Stepfield" \\\n
  24.         font:OlDefaultBoldFont \\\n
  25.         position:left
  26.  
  27.     cmw STEP stepField stepField $CAPTION \\\n
  28.         string:"January" \\\n
  29.         charsVisible:8 \\\n
  30.         canIncrement:true \\\n
  31.         canDecrement:false \\\n
  32.         displayPosition:1
  33.  
  34.     acb $STEP stepped "SteppedCB $WHERE"
  35.  
  36.     cmw OK Ok flatButtons $POPUP_LCA \\\n
  37.         numItems:1 \\\n
  38.         numItemFields:1 \\\n
  39.         itemFields:'{label}' \\\n
  40.         items:'{Ok}' 
  41.  
  42.     sv $OK selectProc:"PopdownCB $POPUP"
  43.  
  44.     orh $POPUP "StepField Source" -f `pwd`/Stepfield
  45.     
  46.     pu $POPUP GrabNone
  47. }
  48.  
  49. SteppedCB()
  50. {
  51.  
  52.     MIN=0
  53.     MAX=11
  54.  
  55.     if [[ $INC = "true" ]]
  56.     then
  57.         ((WHERE=$WHERE+1))
  58.     else
  59.         ((WHERE=$WHERE-1))
  60.     fi
  61.     
  62.     if [[ $WHERE -eq $MAX ]]
  63.     then
  64.         INC=false
  65.         sv $STEP canDecrement:true
  66.         sv $STEP canIncrement:false
  67.     fi
  68.  
  69.     if [[ $WHERE -eq $MIN ]]
  70.     then
  71.         INC=true
  72.         sv $STEP canDecrement:false
  73.         sv $STEP canIncrement:true
  74.     fi
  75.  
  76.     sv $STEP string:"${MON[$WHERE]}"
  77.  
  78. }    
  79.