EGCG program fixes: GelStatus and GelPicture

[Rodrigo Lopez]

PROBLEM (BUG)


It came to our attention that both GelStatus and GelPicture
under UNIX where not capable of picking up the GelProject name
correctly and thus boomed when asking for the output name and
writting this one on the programs output. 

FIX:

In GelPicture:

Look for the lines:

'!* Get the project name'

        Call LogName ('GelCommand', Path)
        If (Path(1) .eq. Char(0)) Then
          Call WriteF('\n GelStart must be run to '//
     &                'define the project!!\n\b\s')
        End If
        Call DirToFile (Path, Proj)
        Call BaseName (Proj)
        Call NewFileType (Proj, ' ')

Change these to:

        Call LogName ('GelCommand', Path)
        If (Path(1) .eq. Char(0)) Then
          Call WriteF('\n GelStart must be run to '//
     &                'define the project!!\n\b\s')
        End If
        Call DirToFile (Path)
        Call StrCopy (Proj, Path)
        Call NewFileType (Proj, ' ')


And delete the function DirToFile from the program source.


In GelStatus: same as above.

compile and link as usual.

R:)

-- 
***************************************************************************
* RODRIGO LOPEZ SERRANO  rodrigol at biomed.uio.no - rodrigol at biotek.uio.no  * 
* Norwegian EMBnet node  Tel:xx-47-22958756 Fax:xx-47-22694130            *
***************************************************************************