mirror of
https://github.com/KolibriOS/kolibrios.git
synced 2024-12-26 00:26:52 +03:00
38 lines
722 B
Plaintext
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, '|');
|
|
}
|
|
|
|
|