; Script to copy tapes from SAN to LTO
; Requires Kixtart 4.x, Kixforms 2.3.0.38
; by Les Ligetfalvy
break on
dim $label,$frame1,$frame2,$frame3,$label2,$cmd1,$cmd2,$cmd3,$cmd4,$cmd5,$
Global $form,$Text4,$Text5,$Text6,$form2,$list1,$list2,$list3,$label1,$OptionButton1,$OptionButton2,$CheckBox1,$label7
$ = setoption('explicit','on')

$Form = CreateObject('Kixtart.Form')
$Form.Caption = 'GUI TapeCopy - beta 2'
$Form.Width = 420
$Form.Height = 500
$Form.center

$label = $Form.Label('Note that only M or TM tapes will show in the lists.  Only one tape copy/merge job'
 + @CRLF + 'is allowed at one time.  Merge job will follow shortly after the copy job completes.' 
 + @CRLF + 'Newly copied LTO tapes will not appear in the list without another Filter Load.',10,10,400,40) 

$Frame1 = $Form.GroupBox('Select SAN Tape',10,55,240,160)
$Frame2 = $Form.GroupBox('Action Steps',260,55,140,337)
$Frame3 = $Form.GroupBox('Existing LTO Tapes',10,220,240,172)

$list1  = $Frame1.Listbox(,10,20,220,130)
$list2  = $Frame3.Listbox(,10,20,220,142)

$label2 = $Frame2.Label('1:  Load Filter'
    + @CRLF + @CRLF + '2:  Select SAN Tape'
    + @CRLF + @CRLF + '3:  Copy Tape'
    + @CRLF + @CRLF + '4:  Repeat or Exit',10,20,100,110) 

$cmd1 = $Frame2.Button('&Load Filter',10,140,120,30) 
$cmd1.onclick = 'onbutton1click() $$list1.setfocus' 

$cmd2 = $Frame2.Button('&Copy',10,180,120,30) 
$cmd2.onclick = 'onbutton2click() $$list1.setfocus' 

$cmd5 = $Frame2.Button('E&xit',10,220,120,30)
$cmd5.onclick = 'onbutton5click() $$list1.setfocus'

$list3 = $Form.Listbox(,9,400,395,60)

$Form.Show 
$list1.setfocus

While $Form.Visible
  $=Execute($Form.DoEvents())
Loop 

Exit 0