@VERSION 5,2
@APPTITLE "IvoRSS"
@APPVERSION "$VER: IvoRSS 0.1 (16.6.22)"
@APPCOPYRIGHT "© 2022, Aleksei Gerasimov"
@APPAUTHOR "Aleksei Gerasimov"
@APPDESCRIPTION "Simple RSS reader"
@REQUIRE "muiroyale", {Version=1, Revision=7}
@REQUIRE "hurl"
@REQUIRE "xmlparser" 
@DISPLAY {Hidden=True}

@FILE 1, "AppWindow.xml"


/*
** Handles all incoming events
*/

Function p_MUIEvent(msg)
    DebugPrint("MUI event!", "  Class:", msg.Class, "  ID:", msg.ID, "  Attribute:", msg.Attribute)
    Switch msg.Class
    Case "Window":
        Switch msg.Attribute
        Case "CloseRequest":
            End
        EndSwitch
    Case "Menuitem":
        Switch msg.ID
        Case "menu_about":
            Local reqtext$ = "\27c\27b IvoRSS 0.1 \n\27n Simple RSS client"
            If mui.Request("About", reqtext$, "Open repository|*OK") Then OpenURL("http://rocketgit.com/iam-git/IvoRSS")
        Case "menu_about_mui":
            mui.DoMethod("app", "AboutMUI")
        Case "menu_about_muiroyale":
            mui.DoMethod("app", "AboutMUIRoyale")
        Case "menu_quit":
            End
        Case "menu_muisettings":
            mui.DoMethod("app", "OpenConfigWindow")
		EndSwitch
    EndSwitch
EndFunction





mui.CreateGUI(ReadString(1))
InstallEventHandler({MUIRoyale = p_MUIEvent})





url$ = "https://www.powerpc-notebook.org/en/feed/"

DownloadFile(url$, {File = "feed.xml", Adapter = "hurl"})

text$ = FileToString("feed.xml")
mui.Set("textfield", "Text", text$)



 
Function StartElement(p, name$, attrs) 
	DebugPrint("*** Start Element:", name$) 
 
	For i,v In Pairs(attrs) 
		If GetType(i) = #STRING Then DebugPrint("-->", i .. "=" .. v) 
	Next 
 
EndFunction 
 
Function EndElement(p, name$) 
	DebugPrint("*** End Element:", name$) 
EndFunction 
 
 
p = XMLParser.New({StartElement = StartElement, EndElement = EndElement}) 
Assert(p:Parse(text$)) 
p:Close() 






Repeat
   WaitEvent
Forever