(shrink-window #&key (frac .99) (min-width 30) (min-height 45) (win (get-window)))
Shrink the window WIN to FRAC * its old size. Never let it get smaller than MIN-WIDTH by MIN-HEIGHT.
Module: (app scwm auto-shrink)
Defined in scheme/auto-shrink.scm at line 22 (CVS log)