File AppWindow.xml changed (mode: 100755) (index d61efca..5e39893) |
50 |
50 |
</menu> |
</menu> |
51 |
51 |
</menustrip> |
</menustrip> |
52 |
52 |
|
|
53 |
|
<menustrip id="channeltitlemenu"> |
|
54 |
|
<menu title="RSS title"> |
|
55 |
|
<item id="rsst_copy" notify="selected">Copy</item> |
|
|
53 |
|
<menustrip id="channelmenu"> |
|
54 |
|
<menu title="RSS channel"> |
|
55 |
|
<item id="rsst_copy" notify="selected">Copy title</item> |
|
56 |
|
<item id="rssd_copy" notify="selected">Copy description</item> |
56 |
57 |
<item id="rsst_copyurl" notify="selected">Copy URL</item> |
<item id="rsst_copyurl" notify="selected">Copy URL</item> |
57 |
58 |
</menu> |
</menu> |
58 |
59 |
</menustrip> |
</menustrip> |
59 |
60 |
|
|
60 |
|
<menustrip id="channeldescriptionmenu"> |
|
|
61 |
|
<!--<menustrip id="channeldescriptionmenu"> |
61 |
62 |
<menu title="RSS description"> |
<menu title="RSS description"> |
62 |
63 |
<item id="rssd_copy" notify="selected">Copy</item> |
<item id="rssd_copy" notify="selected">Copy</item> |
63 |
64 |
</menu> |
</menu> |
64 |
|
</menustrip> |
|
|
65 |
|
</menustrip>--> |
65 |
66 |
|
|
66 |
67 |
<menustrip id="articletitlemenu"> |
<menustrip id="articletitlemenu"> |
67 |
68 |
<menu title="Article title"> |
<menu title="Article title"> |
|
129 |
130 |
<vgroup> |
<vgroup> |
130 |
131 |
<hgroup> |
<hgroup> |
131 |
132 |
<image id="feedimage" source="brush:1" freevert="true"/> |
<image id="feedimage" source="brush:1" freevert="true"/> |
132 |
|
<vgroup> |
|
133 |
|
<text id="channel_title" PreParse="\33b" contextmenu="channeltitlemenu"/> |
|
134 |
|
<text id="channel_description" contextmenu="channeldescriptionmenu"/> |
|
|
133 |
|
<vgroup contextmenu="channelmenu"> |
|
134 |
|
<text id="channel_title" PreParse="\33b" /> |
|
135 |
|
<text id="channel_link" PreParse="\335\33u" inputmode="relverify" notify="pressed" /> |
135 |
136 |
</vgroup> |
</vgroup> |
136 |
137 |
</hgroup> |
</hgroup> |
|
138 |
|
<text id="channel_description" contextmenu="channelmenu"/> |
137 |
139 |
<listview id="articles" notify="active" cyclechain="true" contextmenu="articleslistmenu"> |
<listview id="articles" notify="active" cyclechain="true" contextmenu="articleslistmenu"> |
138 |
140 |
<column title="Title"/> |
<column title="Title"/> |
139 |
141 |
<column title="PubDate"/> |
<column title="PubDate"/> |
File IvoR.hws changed (mode: 100755) (index 3cf6263..4e263c3) |
... |
... |
Function IvoR:ShowArticle(pos) |
112 |
112 |
EndIf |
EndIf |
113 |
113 |
EndFunction |
EndFunction |
114 |
114 |
|
|
|
115 |
|
|
|
116 |
|
Function IvoR:OpenChannel() |
|
117 |
|
;č Vostuda, ale nemáme to nikde uloženo. Jen na formě =] |
|
118 |
|
Local url$ = mui.Get("channel_link", "Contents") |
|
119 |
|
If url$ Then OpenURL(url$) |
|
120 |
|
EndFunction |
|
121 |
|
|
115 |
122 |
Function IvoR:Clear() |
Function IvoR:Clear() |
116 |
123 |
mui.Set("channel_title", "Contents", "") |
mui.Set("channel_title", "Contents", "") |
117 |
124 |
;mui.Set("channel_title", "ContextMenu", "(none)") |
;mui.Set("channel_title", "ContextMenu", "(none)") |
118 |
125 |
|
|
119 |
126 |
mui.Set("channel_description", "Contents", "") |
mui.Set("channel_description", "Contents", "") |
120 |
127 |
;mui.Set("channel_description", "ContextMenu", "(none)") |
;mui.Set("channel_description", "ContextMenu", "(none)") |
|
128 |
|
mui.Set("channel_link", "Contents", "") |
121 |
129 |
|
|
122 |
130 |
mui.DoMethod("articles", "Clear") |
mui.DoMethod("articles", "Clear") |
123 |
131 |
|
|
|
... |
... |
EndFunction |
178 |
186 |
Function CharacterData(p, str$) |
Function CharacterData(p, str$) |
179 |
187 |
;DebugPrint("CD: ", str$) |
;DebugPrint("CD: ", str$) |
180 |
188 |
If channel_level |
If channel_level |
181 |
|
If current_element$ = "title" Then mui.Set("channel_title", "Contents", tf_Label(str$)) |
|
182 |
|
If current_element$ = "description" Then mui.Set("channel_description", "Contents", tf_Label(str$)) |
|
|
189 |
|
Switch current_element$ |
|
190 |
|
Case "title": mui.Set("channel_title", "Contents", tf_Label(str$)) |
|
191 |
|
Case "description": |
|
192 |
|
mui.Set("channel_description", "Contents", tf_Label(str$)) |
|
193 |
|
Case "link": mui.Set("channel_link", "Contents", StripStr(str$)) |
|
194 |
|
EndSwitch |
183 |
195 |
|
|
184 |
196 |
Else |
Else |
185 |
197 |
Switch current_element$ |
Switch current_element$ |
File IvoRSS.hws changed (mode: 100755) (index 1b61d76..9152542) |
... |
... |
Function p_MUIEvent(msg) |
107 |
107 |
Case "rsst_copy": |
Case "rsst_copy": |
108 |
108 |
p_CopyContents("channel_title", "Channel title") |
p_CopyContents("channel_title", "Channel title") |
109 |
109 |
Case "rssd_copy": |
Case "rssd_copy": |
110 |
|
p_CopyContents("channel_description", "Channel description") |
|
|
110 |
|
p_CopyContents("channel_description", "Channel description") |
|
111 |
|
Case "rsst_copyurl": |
|
112 |
|
p_CopyContents("channel_link", "Channel link") |
111 |
113 |
Case "artt_copy": |
Case "artt_copy": |
112 |
114 |
p_CopyContents("item_title", "Title") |
p_CopyContents("item_title", "Title") |
113 |
115 |
Case "art_copy": |
Case "art_copy": |
|
... |
... |
Function p_MUIEvent(msg) |
181 |
183 |
lurk:AddFromlist("Active") |
lurk:AddFromlist("Active") |
182 |
184 |
EndSwitch |
EndSwitch |
183 |
185 |
|
|
|
186 |
|
Case "Text": |
|
187 |
|
Switch msg.ID |
|
188 |
|
Case "channel_link": |
|
189 |
|
If msg.TriggerValue = 0 Then IvoR:OpenChannel() |
|
190 |
|
;Case "foundfeeds": |
|
191 |
|
; lurk:AddFromlist("Active") |
|
192 |
|
EndSwitch |
184 |
193 |
|
|
185 |
194 |
Case "Button": |
Case "Button": |
186 |
195 |
Switch msg.ID |
Switch msg.ID |