TSE: Issue: 'NextDiskConnection()' is not documented in the TSE help in latest TSE for Windows version 4.50.13 and TSE for Linux version 4.50.13

[knud van eeden]

Hello,

'NextDiskConnection()' is not documented in the TSE help in latest TSE for Windows version 4.50.13 and TSE for Linux version 4.50.13

Example of usage:

 NextDiskConnection( drivestr, _INCLUDE_REMOVEABLE_DRIVES_ ) 

with friendly greetings

Knud van Eeden

[knud van eeden]

FYI:

It is used e.g. in these files:

Native TSE macro:

\mac\sanity1.s

non-Native TSE macros:

PickDir.s

SynCaseOld.s

--

---
You received this message because you are subscribed to the Google Groups "SemWare TSE Pro text editor" group.
To unsubscribe from this group and stop receiving emails from it, send an email to semware+u...@googlegroups.com.
To view this discussion visit https://groups.google.com/d/msgid/semware/328371705.7514971.1762990482818%40mail.yahoo.com.

[knud van eeden]

FYI:

<snippet>

> Sammy Mitchell replied in 1999:

>I have one, maybe two, little problem|problems. Whenever I

>choose Menu -> Change Drive form the "Pick File" option in the

>startup menu, I do not see my A-drive (and I am pretty sure I have

>got one). All other drives are shown perfectly. Of course Open

>and typing a:<Enter> has the same effect but none the less...

For some reason, I choose not to show removable drives in the drive list.

Anyway, I have made a note to change it.  For now, you can use the following

macro - note that it will only work if you press the indicated key (<alt

f10>, but you can change that) - if you select "Change Drive" from the menu,

you will still get the old, built-in command.  Macro follows - you should

add this to your autoload list, or to your .ui:

 proc ChangeDriveMenu()

    string drivestr[_MAXPATH_]

    integer cur_id, drive_id

    drivestr = ""

    cur_id = GetBufferId()

    drive_id = CreateTempBuffer()

    while NextDiskConnection(drivestr, _INCLUDE_REMOVEABLE_DRIVES_)

        AddLine(drivestr)

    endwhile

    BegFile()

    lFind(GetDrive() + ':', "gi")

    if List("Select Drive", LongestLineInBuffer() + 1)

        drivestr = iif(CurrChar(1) <> ASC(" "), GetDir(GetText(1, 1)),

                       AddTrailingSlash(GetText(5,sizeof(drivestr))))

        Set(PickFilePath, drivestr + SplitPath(Query(PickFilePath),

_NAME_|_EXT_))

        EndProcess(-1)

    endif

    GotoBufferId(cur_id)

    AbandonFile(drive_id)

end

To view this discussion visit https://groups.google.com/d/msgid/semware/345479833.7527221.1762990663694%40mail.yahoo.com.

[knud van eeden]

For TSE help documentation purposes:

So here is a simplest program of using NextDiskConnection()

to collect all the drive letters on your system:

---

PROC Main()

 string drivestr[_MAXPATH_]

 drivestr = ""

 CreateTempBuffer()

 while NextDiskConnection(drivestr, _INCLUDE_REMOVEABLE_DRIVES_ )

  AddLine(drivestr)

 endwhile

 BegFile()

END

---

If I run it here it gives here:

---

C: [fixed]  

D: [fixed]  Elements

E: [fixed]  My Passport

F: [floppy] 

G: [fixed]  KINGSTON 1 TERABYTE

H: [fixed]  My Passport

I: [floppy] 

J: [floppy] 

K: [CDROM]  

L: [CDROM]  DTL+G3

U: [CDROM]  

Z: [fixed]  Elements

---

[knud van eeden]

Latest update: Even simpler to enumerate your drive letters:

PROC Main()

 string drivestr[_MAXPATH_]

 drivestr = ""

 CreateTempBuffer()

 while NextDiskConnection(drivestr, _INCLUDE_REMOVEABLE_DRIVES_ )

  AddLine(drivestr)

 endwhile

END