$PBExportHeader$f_setmod.srf
global type f_setmod from function_object
end type

forward prototypes
global subroutine f_setmod (datawindow dw, integer num, integer mode)
end prototypes

global subroutine f_setmod (datawindow dw, integer num, integer mode);long i
dw.setredraw(false)
for i=1 to num 
  dw.settaborder(dw.Describe("#"+string(i)+ ".name"),i*10*mode)
next
dw.setredraw(true)
end subroutine