BBS in a Box 1/BBS in a box - Trilogy I.iso/Files/MIDI/A-G/D10 LIBRARIAN/D10 LIBRARIAN/background_11943.txt

Text File | 1992-03-03 | 21.4 KB | 964 lines

-- background: 11943 from stack: in
-- bmap block id: 14271
-- flags: 4000
-- background id: 0
-- name: Memory Library
----- HyperTalk script -----
on openBackground
  hide bg btn "information"
  hide bg fld "information"
end openbackground

on openCard
  lock screen
  if bg fld bulkData1 is empty then
    show bg btn "Extract from D-10"
    show bg btn id 3
    show bg btn id 5
    show bg btn id 6
    show bg btn id 7
    show bg btn id 8
    show bg btn id 9
    show bg btn id 10
    show bg btn id 11
    show bg btn id 12
    show bg fld "white"
    hide bg btn "Dump to D-10"
    hide bg btn "Replace This Data"
  else
    hide bg btn "Extract from D-10"
    hide bg btn id 3
    hide bg btn id 5
    hide bg btn id 6
    hide bg btn id 7
    hide bg btn id 8
    hide bg btn id 9
    hide bg btn id 10
    hide bg btn id 11
    hide bg btn id 12
    hide bg fld "white"
    show bg btn "Dump to D-10"
    show bg btn "Replace this Data"
  end if
  unlock screen
end openCard


on changeType
  global bulkType
  set the hilite of bg btn id 3 to false
  set the hilite of bg btn id 5 to false
  set the hilite of bg btn id 6 to false
  set the hilite of bg btn id 7 to false
  set the hilite of bg btn id 8 to false
  set the hilite of bg btn id 9 to false
  set the hilite of bg btn id 10 to false
  set the hilite of bg btn id 11 to false
  set the hilite of bg btn id 12 to false
  set the hilite of bg btn id bulkType to true
end changeType

on showDialog
  lock Screen
  show bg btn id 18
  show bg fld "dialog"
  show bg btn "OK"
  show bg btn "CANCEL"
  unlock screen with barn door open
end showDialog

on hideDialog
  lock Screen
  hide bg btn id 18
  hide bg fld "dialog"
  hide bg btn "OK"
  hide bg btn "CANCEL"
  unlock screen with barn door close
end hideDialog

on doExtract
  global sysexReq, tym, bulkX, pulses, singOrMult, dataPres
  global sys1, sys2, sys3
  put "" into bg fld "bulkdata1"
  put "" into bg fld "bulkdata2"
  put "" into bulkX
  if singOrMult = 0 then
    get RxMIDI("flush")
    TxMIDI sysexReq
    wait tym secs
    put RxMidi() into bulkX
    testforData
    testForClock
    if dataPres = 0 then exit doExtract
    if pulses = 1 then exit doExtract
  end if
  if singOrMult=1 then
    get RxMIDI("flush")
    TxMIDI sys1
    wait 3 secs
    put RxMidi() into bulkX
    testforData
    testForClock
    if dataPres = 0 then exit doExtract
    if pulses = 1 then exit doExtract
    get RxMIDI("flush")
    TxMIDI sys2
    wait 3 secs
    put RxMidi() into z
    put bulkX&" "&z into bulkX
    get RxMIDI("flush")
    TxMIDI sys3
    wait tym secs
    put RxMidi() into z
    put bulkX&" "&z into bulkX
  end if
  get the length of bulkX
  if it<29990 then
    put bulkX into bg fld "bulkData1"
  else
    put char 1 to 29900 of bulkX into y
    put y into bg fld "bulkData1"
    delete char 1 to 29990 of bulkX
    put bulkX into bg fld "bulkData2"
  end if
end doExtract

on testForClock
  global bulkX, pulses
  put 0 into pulses
  put char 1 to 3 of bulkX into y    -------- Test for clock pulses
  if y=248 then
    set the name of bg btn id 18 to "CLOCK PULSES"
    put "This data contains MIDI clock pulses" &return&"Set D10 clock to MIDI"&return& "(not INTERNAL) and try again" into bg fld dialog
    beep 2
    show bg fld dialog
    show bg btn id 18
    wait 2 seconds
    lock screen
    hide bg fld dialog
    hide bg btn id 18
    unlock screen with dissolve
    put 1 into pulses
  end if
end testForClock

on testforData
  global bulkX, dataPres
  if bulkX is empty then
    put 0 into dataPres
    set the name of bg btn id 18 to "NO DATA EXTRACTED"
    put "Check all MIDI connections and operation of MIDI interface" into bg fld dialog
    beep 2
    show bg fld dialog
    show bg btn id 18
    wait 2 seconds
    lock screen
    hide bg fld dialog
    hide bg btn id 18
    unlock screen with dissolve
  else
    put 1 into dataPres
  end if
end testforData


on doType
  global blah
  get the name of bg btn id blah
  put it into ww
  delete char 1 to 14 of ww
  put the length of ww into x
  delete char x of ww
  put ww into bg fld dataType
end doType

on warn1
  global contFlag
  answer "D-10 must be in MULTITIMBRAL mode" with "Cancel" or "OK"
  if it is "Cancel" then put 0 into contFlag
end warn1

on warn2
  global contFlag
  answer "D-10 must be in PERFORMANCE mode" with "Cancel" or "OK"
  if it is "Cancel" then put 0 into contFlag
end warn2

on closeCard
  put bg fld dataName into zz
  set the name of this card to zz
end closeCard



-- part 45 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=284 top=53 right=196 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: white


-- part 3 (button)
-- low flags: 00
-- high flags: C005
-- rect: left=294 top=56 right=72 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tones & Timbres
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 3 into bulkType
  changeType
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=71 right=87 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tone Memory
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 5 into bulkType
  changeType
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=86 right=102 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Timbre Memory
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 6 into bulkType
  changeType
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=101 right=117 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Performance Patches
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 7 into bulkType
  changeType
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=116 right=132 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rythm Setup
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 8 into bulkType
  changeType
end mouseUp



-- part 9 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=131 right=147 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rhythm Patterns
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 9 into bulkType
  changeType
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=146 right=162 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Rhythm Track
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 10 into bulkType
  changeType
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=161 right=177 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Tones & Timbres Parts 1-8
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 11 into bulkType
  changeType
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: 8005
-- rect: left=294 top=176 right=192 bottom=484
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Single Performance Patch
----- HyperTalk script -----
on mouseUp
  global bulkType
  put 12 into bulkType
  changeType
end mouseUp



-- part 13 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=294 top=28 right=50 bottom=438
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Extract from D-10
----- HyperTalk script -----
on mouseUp
  global carryLoc, sysexReq, blah, tym, singOrMult, pulses, dataPres
  global sys1, sys2, sys3, contFlag
  set cursor to 4
  set the name of bg btn id 18 to "EXTRACT DATA"
  put "Extract data checked from D-10."&return& "N.B. D-10 clock must be set to MIDI." into bg fld "dialog"
  showDialog
  set cursor to arrow
  waitforClick
  hideDialog
  if carryloc is within the rect of bg btn "OK" then
    put "" into bg fld dataName
    put "" into bg fld datatype
    set cursor to 4
    put "" into sys2
    put "" into sys3
    put 0 into singOrMult
    if the hilite of bg btn id 3 is true then
      put "240 65 16 22 17 5 0 0 0 8 0 115 247" into sys1
      put "240 65 16 22 17 8 0 0 0 127 118 3 247" into sys3
      put 3 into blah
      put 10 into tym
      put 1 into singOrMult
    end if
    if the hilite of bg btn id 5 is true then
      put "240 65 16 22 17 8 0 0 0 127 118 3 247" into sysexReq
      put 5 into blah
      put 9 into tym
    end if
    if the hilite of bg btn id 6 is true then
      put "240 65 16 22 17 5 0 0 0 8 0 115 247" into sysexReq
      put 6 into blah
      put 1 into tym
    end if
    if the hilite of bg btn id 7 is true then
      put "240 65 16 22 17 7 0 0 0 38 0 83 247" into sysexReq
      put 7 into blah
      put 3 into tym
    end if
    if the hilite of bg btn id 8 is true then
      put "240 65 16 22 17 9 0 0 0 2 84 33 247" into sysexReq
      put 8 into blah
      put 1 into tym
    end if
    if the hilite of bg btn id 9 is true then
      put "240 65 16 22 17 10 0 0 1 19 0 98 247" into sysexReq
      put 9 into blah
      put 10 into tym
    end if
    if the hilite of bg btn id 10 is true then
      put "240 65 16 22 17 12 0 0 0 3 118 123 247" into sysexReq
      put 10 into blah
      put 1 into tym
    end if
    if the hilite of bg btn id 11 is true then
      put "240 65 16 22 17 3 0 0 0 1 0 124 247 "& "240 65 16 22 17 4 0 0 0 1 118 5 247 "& "240 65 16 22 17 4 1 118 0 1 118 14 247 "& "240 65 16 22 17 4 3 108 0 1 118 22 247 "& "240 65 16 22 17 4 5 98 0 1 118 30 247 "& "240 65 16 22 17 4 7 88 0 1 118 38 247 "& "240 65 16 22 17 4 9 78 0 1 118 46 247 "& "240 65 16 22 17 4 11 68 0 1 118 54 247 "& "240 65 16 22 17 4 13 58 0 1 118 62 247"   into sysexReq
      put 11 into blah
      put 2 into tym
      warn1
      if contFlag = 0 then exit mouseUp
    end if
    if the hilite of bg btn id 12 is true then
      put "240 65 16 22 17 3 4 0 0 0 38 83 247 "& "240 65 16 22 17 4 0 0 0 1 118 5 247 "& "240 65 16 22 17 4 1 118 0 1 118 14 247" into sysexReq
      put 12 into blah
      put 2 into tym
      warn2
      if contFlag = 0 then exit mouseUp
    end if
    doExtract
    if dataPres = 0 then exit mouseUp
    if pulses = 1 then exit mouseUp
    doType
    set the name of bg btn id 18 to "DATA STORED"
    put ""&return&"Enter a name for this data in the NAME box." into bg fld dialog
    lock screen
    show bg btn id 18
    show bg fld dialog
    unlock screen
    wait 1 secs
    lock screen
    hide bg btn id 18
    hide bg fld dialog
    hide bg btn "Extract from D-10"
    hide bg btn id 3
    hide bg btn id 5
    hide bg btn id 6
    hide bg btn id 7
    hide bg btn id 8
    hide bg btn id 9
    hide bg btn id 10
    hide bg btn id 11
    hide bg btn id 12
    hide bg fld "white"
    show bg btn "Dump to D-10"
    show bg btn "Replace This Data"
    unlock screen with dissolve
    get the loc of bg fld dataName
    click at it
  end if
end mouseUp



-- part 14 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=77 top=207 right=228 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dump to D-10
----- HyperTalk script -----
on mouseUp
  global carryLoc, contFlag
  put 1 into contFlag
  if bg fld dataType contains "Parts" then warn1
  if bg fld dataType contains "Single Performance" then warn2
  if contFlag = 0 then exit mouseUp
  set cursor to 4
  set the name of bg btn id 18 to "LOAD DATA"
  put "Are you sure you want to load this data? It will overwrite "& "data of this type currently stored in the D-10." into bg fld dialog
  showDialog
  set cursor to arrow
  waitforClick
  if carryLoc is within the rect of bg btn OK then
    hideDialog
    set cursor to 4
    if bg fld "bulkData2" is empty then
      put bg fld "bulkdata1" into allData
    else
      put bg fld "bulkData1" into x
      put bg fld "bulkData2" into y
      put x&y into allData
    end if
    txMIDI alldata
  else
    hideDialog
  end if
end mouseUp



-- part 15 (field)
-- low flags: 00
-- high flags: 2002
-- rect: left=38 top=109 right=138 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 256
-- line height: 18
-- part name: dataName


-- part 16 (field)
-- low flags: 01
-- high flags: 2002
-- rect: left=38 top=170 right=194 bottom=256
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dataType


-- part 17 (field)
-- low flags: 80
-- high flags: 0002
-- rect: left=7 top=30 right=330 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: bulkData1


-- part 18 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=78 top=101 right=133 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: DATA STORED


-- part 22 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=8 top=28 right=325 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 15
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: bulkData2


-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=226 top=312 right=335 bottom=252
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go to prev card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=251 top=312 right=335 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=197 top=313 right=333 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 30557 / 30557
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: FIRST
----- HyperTalk script -----
on mouseUp
  go to first cd in this bg
end mouseUp



-- part 30 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=275 top=313 right=333 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 26865 / 26865
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LAST
----- HyperTalk script -----
on mouseUp
  go to last cd in this bg
end mouseUp



-- part 31 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=234 top=278 right=303 bottom=263
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  go home
end mouseUp



-- part 32 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=344 top=209 right=232 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to first card in bg "Tone Library"
  unlock screen with dissolve
end mouseUp



-- part 33 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=347 top=235 right=258 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Banks
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to first cd in bg "Bank Library"
  unlock screen with dissolve
end mouseUp



-- part 34 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=78 top=231 right=253 bottom=204
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Replace This Data
----- HyperTalk script -----
on mouseUp
  global carryLoc
  set the name of bg btn id 18 to "EXTRACT NEW DATA"
  put "Are you sure?"&return& "This will overwrite any data already stored on this card!" into bg fld "dialog"
  showDialog
  waitforClick
  if carryloc is within the rect of bg btn OK then
    hideDialog
    lock screen
    show bg btn "Extract from D-10"
    show bg btn id 3
    show bg btn id 5
    show bg btn id 6
    show bg btn id 7
    show bg btn id 8
    show bg btn id 9
    show bg btn id 10
    show bg btn id 11
    show bg btn id 12
    show bg fld "white"
    hide bg btn "Dump to D-10"
    hide bg btn "Replace This Data"
    unlock screen with wipe right
  else
    hideDialog
  end if
end mouseUp



-- part 35 (field)
-- low flags: 81
-- high flags: 0002
-- rect: left=78 top=133 right=244 bottom=289
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Dialog


-- part 36 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=87 top=218 right=239 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK


-- part 37 (button)
-- low flags: 80
-- high flags: 8003
-- rect: left=207 top=219 right=240 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CANCEL


-- part 38 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=259 right=281 bottom=448
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BULK STORAGE
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  go to first card in bg "Bulk Storage"
  unlock screen with dissolve
end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=344 top=295 right=319 bottom=449
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: new card
----- HyperTalk script -----
on mouseUp
  doMenu "New Card"
end mouseUp



-- part 42 (button)
-- low flags: 80
-- high flags: C002
-- rect: left=48 top=64 right=88 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 2
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: INFORMATION
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  hide me
  hide bg fld "information"
  unlock screen with dissolve
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=89 top=302 right=330 bottom=122
-- title width / last selected line: 0
-- icon id / first selected line: 25002 / 25002
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: GetInfo
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  push card
  go to cd "mainTitle"
  put bg fld "bulkLibInfo" into ww
  pop card
  put ww into bg fld "information"
  show bg fld "information"
  show bg btn "information"
  set scroll of bg fld "information" to 0
  unlock screen with barn door open
end mouseUp



-- part 44 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=48 top=88 right=342 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 12
-- part name: INFORMATION
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  lock screen
  hide me
  hide bg btn "information"
  unlock screen with dissolve
end mouseUp