HMS

Home Media Server for Roku Players
git clone https://www.brianlane.com/git/HMS
Log | Files | Refs | README | LICENSE

main.brs (693B)

      1 '********************************************************************
      2 '**  Home Media Server Application - Main
      3 '**  Copyright (c) 2022 Brian C. Lane All Rights Reserved.
      4 '********************************************************************
      5 sub Main()
      6     ShowChannelRSGScreen()
      7 end sub
      8 
      9 sub ShowChannelRSGScreen()
     10     screen = CreateObject("roSGScreen")
     11     m.port = CreateObject("roMessagePort")
     12     screen.SetMessagePort(m.port)
     13     scene = screen.CreateScene("MainScene")
     14     screen.Show()
     15 
     16     while(true)
     17         msg = wait(0, m.port)
     18         msgType = type(msg)
     19         if msgType = "roSGScreenEvent"
     20             if msg.IsScreenClosed() then return
     21         end if
     22     end while
     23 end sub