Subject | Hash | Author | Date (UTC) |
---|---|---|---|
initial commit | 702a1b31f80bf565bf20cc6ecc4e9d748d772363 | Alex | 2022-06-17 23:42:13 |
File | Lines added | Lines deleted |
---|---|---|
AppWindow.xml | 26 | 0 |
IvoRSS.hws | 65 | 0 |
File AppWindow.xml added (mode: 100755) (index 0000000..014d1d2) | |||
1 | <?xml version="1.0" encoding="utf-8"?> | ||
2 | <application id="app" base="IVORSS"> | ||
3 | <menustrip id="mainstrip"> | ||
4 | <menu title="Project"> | ||
5 | <item id="menu_about" notify="selected">About...</item> | ||
6 | <item id="menu_about_mui" notify="selected">About MUI...</item> | ||
7 | <item id="menu_about_muiroyale" notify="selected">About MUI Royale...</item> | ||
8 | <item/> | ||
9 | <item id="menu_quit" notify="selected" shortcut="Q">Quit</item> | ||
10 | </menu> | ||
11 | <menu title="Settings"> | ||
12 | <item id="menu_muisettings" notify="selected">MUI...</item> | ||
13 | </menu> | ||
14 | </menustrip> | ||
15 | |||
16 | <window id="win" muiid="MAIN" title="IvoRSS" screentitle="IvoRSS 0.1" notify="closerequest" menustrip="mainstrip" appwindow="true"> | ||
17 | <hgroup> | ||
18 | <listview id="lv3" frame="readlist" notify="appmessage"><column/></listview> | ||
19 | <vgroup> | ||
20 | <listview id="lv1" frame="readlist" notify="appmessage"><column/></listview> | ||
21 | <listview id="lv2" frame="readlist" notify="appmessage"><column/></listview> | ||
22 | </vgroup> | ||
23 | </hgroup> | ||
24 | </window> | ||
25 | </application> | ||
26 |
File IvoRSS.hws added (mode: 100755) (index 0000000..222f215) | |||
1 | |||
2 | |||
3 | |||
4 | |||
5 | |||
6 | @VERSION 5,2 | ||
7 | @APPTITLE "IvoRSS" | ||
8 | @APPVERSION "$VER: IvoRSS 0.1 (16.6.22)" | ||
9 | @APPCOPYRIGHT "© 2022, Aleksei Gerasimov" | ||
10 | @APPAUTHOR "Stefan Stuntz" | ||
11 | @APPDESCRIPTION "Simple RSS reader" | ||
12 | @REQUIRE "muiroyale", {Version=1, Revision=7} | ||
13 | @REQUIRE "hurl" | ||
14 | @DISPLAY {Hidden=True} | ||
15 | |||
16 | @FILE 1, "AppWindow.xml" | ||
17 | |||
18 | |||
19 | /* | ||
20 | ** Handles all incoming events | ||
21 | */ | ||
22 | |||
23 | Function p_MUIEvent(msg) | ||
24 | DebugPrint("MUI event!", " Class:", msg.Class, " ID:", msg.ID, " Attribute:", msg.Attribute) | ||
25 | Switch msg.Class | ||
26 | Case "Window": | ||
27 | Switch msg.Attribute | ||
28 | Case "CloseRequest": | ||
29 | End | ||
30 | EndSwitch | ||
31 | Case "Menuitem": | ||
32 | Switch msg.ID | ||
33 | Case "menu_about": | ||
34 | Local reqtext$ = "\27c\27b IvoRSS 0.1 \n\27n Simple RSS client" | ||
35 | If mui.Request("About", reqtext$, "Open repository|*OK") Then OpenURL("http://rocketgit.com/iam-git/IvoRSS") | ||
36 | Case "menu_about_mui": | ||
37 | mui.DoMethod("app", "AboutMUI") | ||
38 | Case "menu_about_muiroyale": | ||
39 | mui.DoMethod("app", "AboutMUIRoyale") | ||
40 | Case "menu_quit": | ||
41 | End | ||
42 | Case "menu_muisettings": | ||
43 | mui.DoMethod("app", "OpenConfigWindow") | ||
44 | EndSwitch | ||
45 | EndSwitch | ||
46 | EndFunction | ||
47 | |||
48 | |||
49 | |||
50 | |||
51 | |||
52 | mui.CreateGUI(ReadString(1)) | ||
53 | InstallEventHandler({MUIRoyale = p_MUIEvent}) | ||
54 | |||
55 | |||
56 | |||
57 | |||
58 | |||
59 | url$ = "https://www.seznam.cz/" | ||
60 | |||
61 | DownloadFile(url$, {File = "index.html", Adapter = "hurl"}) | ||
62 | |||
63 | Repeat | ||
64 | WaitEvent | ||
65 | Forever |