Showing the changes to glutils.ml (1 of 3 files). Show all
Unified · Split
| @@ -57,3 +57,13 @@ let makecheckers () = · 56 unmodified lines | ||
| 57 | 57 | [ `mag_filter `nearest; `min_filter `nearest ]; |
| 58 | 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 | +;; | |