OpenXTalk Forums

Code: Select all

on mouseUp
   set the itemDelimiter to ","
   put item 4 of the screenrect into HITE
   if HITE < 800 then
      answer "Your screen will not be able to display the bottom of this program." with "OK" and "Cancel"
      if it is "OK" then
         EXPANSION
      end if
   end if
   set the vis of img "EXPAND" to false
   set the vis of img "CONTRACT" to true
   EXPANSION
end mouseUp

command EXPANSION
   set the lockScreen to true
   set the height of stack "GRENDEL" to 920
   set the top of stack "GRENDEL" to 100
   set the top of img "XHTML" TO 817
   set the top of img "XTEXT" TO 817
   set the top of img "IMHTML" TO 817
   set the top of img "IMTEXT" TO 817
   set the bottom of scrollbar "FONTSIZER" to 804
   set the bottom of img "scrolllller.png" to 805
   set the bottom of img "FS" to 802
   set the height of fld "OUTP" to 360
   set the top of fld "OUTP" to 400
   set the lockScreen to false
end EXPANSION

Code: Select all

on mouseUp
   set the vis of img "EXPAND" to true
   set the vis of img "CONTRACT" to false
   CONTRACTION
end mouseUp

command CONTRACTION
   set the lockScreen to true
   set the height of stack "GRENDEL" to 768
   set the top of stack "GRENDEL" to 100
   set the top of img "XHTML" TO 665
   set the top of img "XTEXT" TO 665
   set the top of img "IMHTML" TO 665
   set the top of img "IMTEXT" TO 665
   set the bottom of scrollbar "FONTSIZER" to 652
   set the bottom of img "scrolllller.png" to 653
   set the bottom of img "FS" to 649
   set the height of fld "OUTP" to 200
   set the top of fld "OUTP" to 400
   set the lockScreen to false
end CONTRACTION

Code: Select all

on mouseUp
   set the lockScreen to true
   set the useUnicode to true
   set the unicodeText of fld "store" of card "MENU" to the unicodeText of fld "OUTP" of card "ANGLO-SAXON"
   send "mouseUp" to img "CONTRACT"
   go to card "MENU"
   set the lockScreen to false
end mouseUp