************************************************************ * FUNCTION CopyVisualClass() ************************************************************ * Author............: VCS Developers Team * Project...........: Visual Collections System * Created...........: 01/24/2006 10:40:57 * Copyright.........: (c) Jzanus, 2006 *) Description.......: * Calling Samples...: * Parameter List....: * Major change list.: function CopyVisualClass lparameters tcClassName, tcNewClassName, tcClassLib local lcClassName, lcNewClassName, lcClassLib if vartype(m.tcClassName) <> "C" lcClassName = inputbox('Type class name', 'Choose class to copy', 'QueueAssignmentBar') else lcClassName = m.tcClassName endif if vartype(m.tcNewClassName) <> "C" lcNewClassName = inputbox('Type new class name', 'New class Name', 'ScheduleCloseBar') else lcNewClassName = m.tcNewClassName endif if vartype(m.tcClassLib) <> "C" lcClassLib = getfile('vcx', 'Select ClassLib', 'Select', 0, 'Select classlibrary to create new class in') else lcClassLib = m.tcClassLib endif local loException try add class (m.lcClassName) to Utilities\TempClassLib overwrite rename class (m.lcClassName) of Utilities\TempClassLib to (m.lcNewClassName) add class (m.lcNewClassName) of Utilities\TempClassLib to (m.lcClassLib) overwrite catch to loException =ErrorMsg(m.loException.message) endtry endfunc