История изменений
Исправление MKuznetsov, (текущая версия) :
для страдающих под бременем хромов и файерфоксов - подарок к празднику:
лёгкий правильный браузер
package require lambda
package require http
package require tls
::http::register https 443 ::tls::socket
package require Tk
package require hv3
wm withdraw .
wm title . "LOR browser"
::hv3::hv3 .browser
.browser configure -requestcmd [ lambda R {
set content ""
set uri [ $R cget -uri ]
if { [ catch {
set token [ ::http::geturl $uri ]
} err ] } {
puts stderr "error $err"
} else {
upvar #0 $token state
if { [ info exists state(body) ] } {
set content $state(body)
} else {
set content {}
}
catch { http::cleanup $token }
}
$R finish $content
} ]
pack .browser -fill both -expand yes
wm deiconify .
raise .
.browser goto http://www.slackware.com/
tkwait window .
в JavaScript не умеет, CSS 2.1
зато 40 строчек. (и ~500К пакет hv3)
обработку ошибок, http-переадресации и фичи добавить самому по вкусу
PS/ вот так выглядит с фичами `apt install hv3`
Исправление MKuznetsov, :
для страдающих под бременем хромов и файерфоксов - подарок к празднику:
лёгкий правильный браузер
package require lambda
package require http
package require tls
::http::register https 443 ::tls::socket
package require Tk
package require hv3
wm withdraw .
wm title . "LOR browser"
::hv3::hv3 .browser
.browser configure -requestcmd [ lambda R {
set content ""
set uri [ $R cget -uri ]
if { [ catch {
set token [ ::http::geturl $uri ]
} err ] } {
puts stderr "error $err"
} else {
upvar #0 $token state
if { [ info exists state(body) ] } {
set content $state(body)
} else {
set content {}
}
catch { http::cleanup $token }
}
$R finish $content
} ]
pack .browser -fill both -expand yes
wm deiconify .
raise .
.browser goto http://www.slackware.com/
tkwait window .
в JavaScript не умеет, CSS 2.1
зато 40 строчек. (и ~500К пакет hv3)
обработку ошибок, http-переадресации и фичи добавить самому по вкусу
PS/ вот так выглядит с фичами https://file.io/J8srrbc0z8Ei
Исходная версия MKuznetsov, :
для страдающих под бременем хромов и файерфоксов - подарок к празднику:
лёгкий правильный браузер
package require lambda
package require http
package require tls
::http::register https 443 ::tls::socket
package require Tk
package require hv3
wm withdraw .
wm title . "LOR browser"
::hv3::hv3 .browser
.browser configure -requestcmd [ lambda R {
set content ""
set uri [ $R cget -uri ]
if { [ catch {
set token [ ::http::geturl $uri ]
} err ] } {
puts stderr "error $err"
} else {
upvar #0 $token state
if { [ info exists state(body) ] } {
set content $state(body)
} else {
set content {}
}
catch { http::cleanup $token }
}
$R finish $content
} ]
pack .browser -fill both -expand yes
wm deiconify .
raise .
.browser goto http://www.slackware.com/
tkwait window .
в JavaScript не умеет, CSS 2.1
зато 40 строчек. (и ~500К пакет hv3)
обработку ошибок, http-переадресации и фичи добавить самому по вкусу