-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathmove-spin.tin
58 lines (48 loc) · 2.7 KB
/
move-spin.tin
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defnet move-spin1-cb (self v)
(move-spin-low 1 self v) )
(defnet move-spin2-cb (self v)
(move-spin-low 2 self v) )
(defnet move-spin-low (which self v)
(deflocal vv)
(set vv (gui-spin-value which))
(if (<> v vv)
then (if (gui-locked)
then (iup-set-int self "SPINVALUE" vv)
else (iup-set-str-attribute self "VALUE" v)
(gui-update-image) )))
(defnet move-spin-kb1-cb (self c)
(move-spin-kb-low 1 self c) )
(defnet move-spin-kb2-cb (self c)
(move-spin-kb-low 2 self c) )
(defnet move-spin-kb-low (which self c)
(alt (gui-locked)
(or (= <_kv "av1"> undef) (= <_kv "av2"> undef))
(seq (= c (cmacro K_CR))
(move-spin-shortcut-low which self 0) )
(seq (= c (cmacro K_sUP))
(move-spin-shortcut-low which self 10) )
(seq (= c (cmacro K_sDOWN))
(move-spin-shortcut-low which self -10) )
(seq (= c (cmacro K_TAB))
(opt (gui-sync-low which false)) )))
(defnet move-spin-shortcut-low (which spin incr)
(opt (gui-spin-set-value which (+ (gui-spin-value which) incr))
(gui-update-image) ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;; ;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;