#263 'THE' command from a macro doesn't step to next file in the ring

open
nobody
None
5
2013-07-06
2013-07-06
LesK
No

I use the following snippet of code, or one like it, in
several places:

  'extract /ring/'
  If ring.0-1=ring.1 Then firstid=2          /* For COMPAT Xedit (feel) */
  Else firstid=1
  found?=0
  Do r=firstid To ring.0 While \found?   /* Is there a DIR in the ring? */
    Parse Var ring.r fid ' Size=' .
    found?=Pos(':\DIR.DIR',fid)>0
  End
      --Trace or
  If found? Then Do                                    /* Yes, go to it */
    Do r=firstid To ring.0 While \dir()
      'nomsg nextwindow'
    --      'the'
    End
----- end snippet -----

Note that I have to use 'nextwindow' instead of 'the'. That means my
code has to check for a split screen and save-navigate-restore to do it
right if it is split... yuck!

Discussion


Log in to post a comment.

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks