home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / SHMOD10.LHA / ShowModule / Modules / Pmodules / pListView.e < prev    next >
Encoding:
Text File  |  1994-05-27  |  1.0 KB  |  22 lines
  1. PROC p_LockListView(gad,win) /*"p_LockListView(gad,win)"*/
  2. /*===============================================================================
  3.  = Para         : Address of gadget,Address of window.
  4.  = Return       : NONE.
  5.  = Description  : Just lock the LISTVIEW Gadet.
  6.  ==============================================================================*/
  7.     Gt_SetGadgetAttrsA(gad,win,NIL,[GTLV_LABELS,-1,TAG_DONE,0])
  8. ENDPROC
  9. PROC p_UnLockListView(gad,win,list) /*"p_UnLockListView(gad,win,list)"*/
  10. /*===============================================================================
  11.  = Para         : Address of gadget (gadget),address of window (winodw),address of list (lh)
  12.  = Return       : NONE.
  13.  = Description  : Unlock the LISTVIEW if the list is not empty.
  14.  ==============================================================================*/
  15.     IF p_EmptyList(list)<>-1
  16.         Gt_SetGadgetAttrsA(gad,win,NIL,[GA_DISABLED,FALSE,GTLV_LABELS,list,TAG_DONE,0])
  17.     ELSE
  18.         Gt_SetGadgetAttrsA(gad,win,NIL,[GA_DISABLED,TRUE,GTLV_LABELS,-1,TAG_DONE,0])
  19.     ENDIF
  20. ENDPROC
  21.  
  22.