ui.tools.browser: don't scroll up when reloading page

db4
Slava Pestov 2009-09-08 16:23:12 -05:00
parent c52ffebffe
commit 9159ce74ab
1 changed files with 2 additions and 2 deletions

View File

@ -83,8 +83,8 @@ M: browser-gadget handle-gesture
} 2|| ;
M: browser-gadget definitions-changed ( assoc browser -- )
model>> [ value>> swap showing-definition? ] keep
'[ _ notify-connections ] when ;
[ model>> value>> swap showing-definition? ] keep
'[ _ [ history-value ] keep set-history-value ] when ;
M: browser-gadget focusable-child* search-field>> ;