Unified · Split
| @@ -145,6 +145,11 @@ let state = · 144 unmodified lines | ||
| 145 | 145 | } |
| 146 | 146 | ;; |
| 147 | 147 | |
| 148 | +let settitle s = state.setwmname (~> s);; | |
| 149 | +let fullscreen () = state.fullscreen state.wid;; | |
| 150 | +let fontsizescale n = float n *. state.fscale |> truncate;; | |
| 151 | +let setmapc f = state.mapc <- f;; | |
| 152 | + | |
| 148 | 153 | let ordermagic = 'l';; |
| 149 | 154 | let metamask = 0x40;; |
| 150 | 155 | let altmask = 8;; |
| @@ -1181,8 +1186,6 @@ let init t w h = · 1030 unmodified lines | ||
| 1181 | 1186 | fd, state.w, state.h; |
| 1182 | 1187 | ;; |
| 1183 | 1188 | |
| 1184 | −let settitle s = state.setwmname (~> s);; | |
| 1185 | − | |
| 1186 | 1189 | let setcursor cursor = |
| 1187 | 1190 | if cursor != state.curcurs |
| 1188 | 1191 | then ( |
| @@ -1191,8 +1194,6 @@ let setcursor cursor = · 2 unmodified lines | ||
| 1191 | 1194 | ) |
| 1192 | 1195 | ;; |
| 1193 | 1196 | |
| 1194 | −let fullscreen () = state.fullscreen state.wid;; | |
| 1195 | − | |
| 1196 | 1197 | let xlatt, xlatf = |
| 1197 | 1198 | let t = Hashtbl.create 20 |
| 1198 | 1199 | and f = Hashtbl.create 20 in |
| @@ -1280,6 +1281,3 @@ let ks2kt = · 81 unmodified lines | ||
| 1280 | 1281 | | code when code land 0xff00 = 0xff00 -> Ctrl code |
| 1281 | 1282 | | code -> Code code |
| 1282 | 1283 | ;; |
| 1283 | − | |
| 1284 | −let fontsizescale n = float n *. state.fscale |> truncate;; | |
| 1285 | −let setmapc f = state.mapc <- f;; | |