home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga 13 / MA_Cover_13.bin / source / asm / sfs / gui.asm < prev    next >
Encoding:
Assembly Source File  |  1999-11-30  |  1.0 KB  |  37 lines
  1. *-----------------------------------------------*
  2. *    @EnableStartDefrag            *
  3. *-----------------------------------------------*
  4.  
  5. EnableStartDefrag:
  6.     move.l    intui(a4),a6
  7.     move.l    BT_Start_Defragment-t(a5),a0
  8.     SETI    MUIA_Disabled,FALSE
  9.     move.l    BT_Pause_Defragment-t(a5),a0
  10.     SETI    MUIA_Disabled,TRUE
  11.     move.l    BT_Abort_Defragment-t(a5),a0
  12.     SETI    MUIA_Disabled,TRUE
  13.     move.l    DefragWindowChild_A-t(a5),a0
  14.     SETI    MUIA_Group_ActivePage,MUIV_Group_ActivePage_First
  15.     move.l    WI_Defrag(a4),a0
  16.     SET2    #MUIA_Window_ActiveObject,BT_Start_Defragment-t(a5)
  17.     rts
  18.  
  19. *-----------------------------------------------*
  20. *    @DisableStartDefrag            *
  21. *-----------------------------------------------*
  22.  
  23. DisableStartDefrag:
  24.     move.l    intui(a4),a6
  25.     move.l    BT_Start_Defragment-t(a5),a0
  26.     SETI    MUIA_Disabled,TRUE
  27.     move.l    BT_Pause_Defragment-t(a5),a0
  28.     SETI    MUIA_Disabled,FALSE
  29.     move.l    BT_Abort_Defragment-t(a5),a0
  30.     SETI    MUIA_Disabled,FALSE
  31.     lea    t_DefStartTime-t(a5),a3
  32.     move.l    TX_Defrag_Time-t(a5),a0
  33.     SET2    #MUIA_Text_Contents,A3
  34.     move.l    WI_Defrag(a4),a0
  35.     SET2    #MUIA_Window_ActiveObject,BT_Pause_Defragment-t(a5)
  36.     rts
  37.