Private Const PIVOT_X_CENTER As Int = 1
Private Const PIVOT_X_LEFT As Int = 2
Private Const PIVOT_X_RIGHT As Int = 3
Private Const PIVOT_X_CENTER As Int = 4
Private Const PIVOT_Y_CENTER As Int = 5
Private Const PIVOT_Y_TOP As Int = 6
Private Const PIVOT_Y_BOTTOM As Int = 7
Private Sub SetPivot(Vw As View, PivX As Int, PivY As Int) 'ignore
Dim Jo As JavaObject = Vw
Dim pos As Float
Select Case PivX
Case PIVOT_X_CENTER
pos = Vw.Width/2
Case PIVOT_X_LEFT
pos = 0
Case PIVOT_X_RIGHT
pos = Vw.Width
End Select
Jo.RunMethod("setPivotX",Array(pos))
Select Case PivY
Case PIVOT_Y_CENTER
pos = Vw.Height/2
Case PIVOT_Y_TOP
pos = 0
Case PIVOT_Y_BOTTOM
pos = Vw.Height
End Select
Jo.RunMethod("setPivotY",Array(pos))
End Sub