Digital Design Material S…es 2: Stone Material Raw/石素材王.iso/pc/stage.dir/00056.ls

Text File | 1997-01-21 | 572 b | 19 lines

on pen
  global selectnum, gfilename, showsize
  set gfilename to line selectnum of field "files"
  if (string(the windowList) contains "showpict") = 0 then
    set rectlist to rect(100, 100, 100 + 400, 100 + 400)
    set showsize to "1:2"
    set the windowType of window "showpict" to 8
  else
    set rectlist to the rect of window "showpict"
  end if
  set the title of window "showpict" to gfilename & "(" & showsize & ")"
  set the rect of window "showpict" to rectlist
  open(window "showpict")
  tell window "showpict"
    showpict()
    cursor(-1)
  end tell
end