PC go! 1996 July/Image.iso/mrmore/mrmore.dir/00005.ls

Text File | 1996-04-11 | 618 b | 16 lines

on mouseUp
  global goGBTools, gnDeInsCast, gnDeInsLine, gbPopIsOn, gbInstallActive
  set gnDeInsCast to the castNum of sprite the clickOn
  put gnDeInsCast
  set nTextVPos to the locV of sprite the clickOn
  set nTextHeight to the textHeight of field gnDeInsCast
  set gnDeInsLine to ((the mouseV - nTextVPos) / nTextHeight) + 1
  set sDeinstall to line gnDeInsLine of the text of field gnDeInsCast
  if sDeinstall <> EMPTY then
    set gbPopIsOn to 1
    set gbInstallActive to 1
    MsgBox("JaNein", "Deinstallieren", RETURN & "Wollen Sie " & sDeinstall & " wirklich l├╢schen?")
    set gbPopIsOn to 1
  end if
end