forked from KolibriOS/kolibrios
32 lines
741 B
C
32 lines
741 B
C
struct UrlsHistory {
|
|
byte UrlHistory[6000];
|
|
void AddUrl();
|
|
void GoBack();
|
|
dword CurrentUrl();
|
|
};
|
|
|
|
UrlsHistory BrowserHistory;
|
|
|
|
void UrlsHistory::GoBack()
|
|
{
|
|
j = find_symbol(#UrlHistory, '|') -1; //ňĺęóůŕ˙ ńňđŕíčöŕ
|
|
if (j<=0) return;
|
|
UrlHistory[j] = 0x00;
|
|
j = find_symbol(#UrlHistory, '|'); //ďđĺäűäóůŕ˙ ńňđŕíčöŕ -> îíŕ íŕě č íóćíŕ
|
|
copystr(#UrlHistory + j, #URL);
|
|
copystr(#URL, #editURL);
|
|
WB1.ShowPage(#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, '|');
|
|
}
|