GUI screen pack pure MMBasic

Author Message
CaptainBoing

Guru

Joined: 07/09/2016
Location: United Kingdom
Posts: 2171
Posted: 08:05am 24 Mar 2021      

  TassyJim said  Changes made to run on CMM2

At the beginning:
 if mm.device$ = "Colour Maximite 2" then
   mp = mm.info(option mouse) ' mouse port
   cmm2 = 1
   option console serial
   GUI CURSOR ON 0, 100,100,rgb(red)
   CONTROLLER MOUSE OPEN mp
   mm.fontheight = MM.INFO(FONTHEIGHT)
   mm.fontwidth = MM.INFO(FONTWIDTH)
 endif


Jim


A good tweak, but fair warning - I plan to put support for different fonts in at some point. Having fixed Font H&W at the start will likely defeat this... i.e. FONTWIDTH & Co need to figure in the calculations at the point of use as they may change.

your views?