home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / clipper / sup35s / s3old.prg < prev    next >
Encoding:
Text File  |  1993-10-18  |  2.9 KB  |  94 lines
  1. #include "Inkey.ch"
  2. #include "Box.ch"
  3. #translate CODEBLOCK(<b>) => <{b}>
  4.  
  5. proc main
  6.  
  7.   LOCAL bExitOk   := {||MESSYN("Exit O.L.D. demonstartion ?")}
  8.   LOCAL aMiceHot  := { {23,3,23,11,CODEBLOCK(old()) },;
  9.                        {23,16,23,27,CODEBLOCK( bungeequit() )},;
  10.                        {0,1,0,3,CODEBLOCK( bungeequit() )}  }
  11.  
  12.   LOCAL aKeysHot  := { {K_F1,CODEBLOCK(old() ) },;
  13.                        {K_ALT_X,CODEBLOCK( bungeequit() )}  }
  14.  
  15.   LOCAL cInscreen := SAVESCREEN(0,0,24,79)
  16.   LOCAL aMenu
  17.  
  18.   slsf_old("S3OLD")             // set name of O.L.D. file
  19.   old_dev({|| OLD_MOD() })      // hook in the devlopment module
  20.  
  21.   if !openold()
  22.      msg("Unable to create and/or open S3OLD.DBF and index")
  23.      return
  24.   endif
  25.  
  26.   sattcolor()
  27.   setcolor(sls_normcol() )
  28.   DISPBOX(0,0,24,79,B_DOUBLE+"▒")
  29.   @1,1 SAY PADC("O.L.D. (On Line Documentation) Sampler ",78) color "+W/W"
  30.  
  31.   @23,1 say padr("  [F1=help]    [ALT-X=exit]",78)
  32.   @0,1 say "[■]"
  33.  
  34.   bungstart()
  35.   bungoption("Topics")
  36.        bungdrop()
  37.        bungoption("Topic A",{||old_topic("Topic A")} )
  38.        bungoption("Topic B",{||old_topic("Topic B")} )
  39.        bungoption("Topic C",{||old_topic("Topic C")} )
  40.        bungoption("Topic D",{||old_topic("Topic D")} )
  41.        bungoption("Topic E",{||old_topic("Topic E")} )
  42.        bungoption("CROSSBAR")
  43.        bungoption("e~Xit",{||bungeequit()} )
  44.        bungundrop()
  45.   bungoption("Help",{||OLD()} )
  46.  
  47.   aMenu := bungend()
  48.   bungee(2,1,78,aMenu,{2,70},nil,aMiceHot,aKeysHot,bExitOk,nil,nil,1)
  49.  
  50.   restscreen(0,0,24,79,cInScreen)
  51. RETURN
  52.  
  53.  
  54.  
  55. func openold
  56. local lOldsOk := .f.
  57. local cDocDbf := SLSF_OLD()
  58. local cCr     := chr(13)+chr(10)
  59. local cSomeText :=  ccr+ccr+"Here is the information. Modify it if you like"
  60. IF !FILE(cDocDbf+".DBF")
  61.         dbcreate(cDocDbf,{;
  62.                       {"TOPIC","C",35,0},;
  63.                       {"KEYS","M",10,0},;
  64.                       {"TEXT","M",10,0};
  65.                        })
  66.     if snet_use(cDocDbf,"SLOLDS", .f., 5, .f.,"")  // open shared
  67.         INDEX ON upper(field->TOPIC) TO (cDocDbf)
  68.         SET INDEX TO ( cDocDbf)
  69.         lOldsOk := .t.
  70.         APPEND BLANK
  71.         replace field->text with "Text for Topic A"+cSomeText, field->topic with ;
  72.                 "Topic A"
  73.         APPEND BLANK
  74.         replace field->text with "Text for Topic B"+cSomeText, field->topic with ;
  75.                 "Topic B"
  76.         APPEND BLANK
  77.         replace field->text with "Text for Topic C"+cSomeText, field->topic with ;
  78.                 "Topic C"
  79.         APPEND BLANK
  80.         replace field->text with "Text for Topic D"+cSomeText, field->topic with ;
  81.                 "Topic D"
  82.         APPEND BLANK
  83.         replace field->text with "Text for Topic E"+cSomeText, field->topic with ;
  84.                 "Topic E"
  85.     endif
  86.     MSG("Sample O.L.D. DBF created = S3OLD.DBF S3OLD.DBT S3OLD."+indexext() )
  87. else
  88.     lOldsOk := .t.
  89. endif
  90. use
  91. return lOldsOk
  92.  
  93.  
  94.