Showing the changes to glutils.ml (1 of 3 files). Show all
Unified · Split
| @@ -57,3 +57,13 @@ let makecheckers () = · 56 unmodified lines | |||
| 57 | [ `mag_filter `nearest; `min_filter `nearest ]; | 57 | [ `mag_filter `nearest; `min_filter `nearest ]; |
| 58 | id; | 58 | id; |
| 59 | ;; | 59 | ;; |
| 60 | |||
| 61 | module G = | ||
| 62 | struct | ||
| 63 | let redisplay = ref false;; | ||
| 64 | let postRedisplay who = | ||
| 65 | Utils.vlog "redisplay for [%S]" who; | ||
| 66 | redisplay := true; | ||
| 67 | ;; | ||
| 68 | end | ||
| 69 | ;; | ||