subclass WDragger of Obj { scratch = $0 pModule = $ffff ; -1 pLine = $ffff ; -1 pObj = $0 pView = $0 pPlane = $0 x = $0 y = $0 pOfsX = $0 pOfsY = $0 pDragging = $0 dispose() startDragging() stopDragging() } string_002e = "WDragger"