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 | let ordermagic = 'l';; | 153 | let ordermagic = 'l';; |
| 149 | let metamask = 0x40;; | 154 | let metamask = 0x40;; |
| 150 | let altmask = 8;; | 155 | let altmask = 8;; |
| @@ -1181,8 +1186,6 @@ let init t w h = · 1030 unmodified lines | |||
| 1181 | fd, state.w, state.h; | 1186 | fd, state.w, state.h; |
| 1182 | ;; | 1187 | ;; |
| 1183 | 1188 | ||
| 1184 | let settitle s = state.setwmname (~> s);; | ||
| 1185 | |||
| 1186 | let setcursor cursor = | 1189 | let setcursor cursor = |
| 1187 | if cursor != state.curcurs | 1190 | if cursor != state.curcurs |
| 1188 | then ( | 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 | let xlatt, xlatf = | 1197 | let xlatt, xlatf = |
| 1197 | let t = Hashtbl.create 20 | 1198 | let t = Hashtbl.create 20 |
| 1198 | and f = Hashtbl.create 20 in | 1199 | and f = Hashtbl.create 20 in |
| @@ -1280,6 +1281,3 @@ let ks2kt = · 81 unmodified lines | |||
| 1280 | | code when code land 0xff00 = 0xff00 -> Ctrl code | 1281 | | code when code land 0xff00 = 0xff00 -> Ctrl code |
| 1281 | | code -> Code code | 1282 | | code -> Code code |
| 1282 | ;; | 1283 | ;; |
| 1283 | |||
| 1284 | let fontsizescale n = float n *. state.fscale |> truncate;; | ||
| 1285 | let setmapc f = state.mapc <- f;; | ||