1
0
kolibrios/programs/network/htmlv/browser/include/history.h--
lev 91c643be8c added sources of HTMLv with named colors and italic text support
git-svn-id: svn://kolibrios.org@1971 a494cfbc-eb01-0410-851d-a64ba20cac60
2011-06-25 01:52:11 +00:00

38 lines
722 B
Plaintext

struct UrlsHistory {
byte UrlHistory[6000];
void AddUrl();
void GoBack();
dword CurrentUrl();
};
UrlsHistory BrowserHistory;
void UrlsHistory::GoBack()
{
j = strlen(#UrlHistory);
WHILE(UrlHistory[j] <>'|') && (j > 0) j--;
IF (j > 0) UrlHistory[j] = 0x00;
WHILE(UrlHistory[j] <>'|') && (j > 0) {
copystr(#UrlHistory[j], #URL);
j--;
}
UrlHistory[j] = 0x00;
WB1.Load(#URL);
}
void UrlsHistory::AddUrl()
{
IF (strlen(#UrlHistory)>6000) copystr(#UrlHistory+5000,#UrlHistory);
copystr("|", #UrlHistory + strlen(#UrlHistory));
copystr(#URL, #UrlHistory + strlen(#UrlHistory));
}
dword UrlsHistory::CurrentUrl()
{
EAX=#UrlHistory + find_symbol(#UrlHistory, '|');
}