Retro video games delivered to your door every month!
Click above to get retro games delivered to your door ever month!
X-Hacker.org- TSDWIN: Clipper 5.0 Interface Library - Norton Guide http://www.X-Hacker.org [<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]

 twRASetArray( aInArray )
 ----------------------------------------------------------------------------

     Sometimes it is necessary to perform an operation on the array
     outside the browse. If you do, you should replace the internal
     array with the one on which you have made the modifications. If
     you adjust the length of the array. the appropriate cargo element
     should reflect the change. If you open a window during an outside
     operation and are displaying scroll bars, you should redisplay the
     scroll bars with twRABarDisp() to ensure all is up to date.

       Arguments:

     aInArray - 'A' The array to be made the active array inside the
                    browse. TSDWIN looks after the length. You should
                    set the current element to be where you want it.

       Return:

     NIL

       Example:

     This is an example from an actual application

     STATIC FUNCTION RowDel( nStart )
     LOCAL oRA := twRAGetBrowse()
     LOCAL nCurrent := twRAGetCurrent()
     LOCAL aArray := twRAGetArray()
     // delete an element from the end
     IF LEN( aArray ) > 1
         ADEL( aArray, nCurrent )
         ASIZE( aArray, LEN( aArray ) - 1 )
         oRA:RefreshAll()

         // maybe make aHobby a static too
         IF nStart = 1
             aShow := ACLONE( aArray )
         ELSE
             aHobby := ACLONE( aArray )
         ENDIF
         twRASetArray( aArray )
     ELSE
         twWarn( "You can't delete the last line!", ;
                    "WARNING",,,, YSHADOW, YFRAME )
         twRABarDisp()
     ENDIF

     RETURN NIL

See Also: twRAGetArray()

Online resources provided by: http://www.X-Hacker.org --- NG 2 HTML conversion by Dave Pearson