summary refs log tree commit diff stats
path: root/doc/pydoc/test.tc_ui.html
Commit message (Collapse)AuthorAgeFilesLines
* updated pydochut2010-03-121-1/+14
|
* incremented version number and updated pydoc html files v1.0.3hut2010-02-161-147/+46
|
* updated pydoc documentationhut2010-01-021-2/+0
|
* moved pydoc pages to doc/pydochut2009-12-251-0/+294
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-18 10:43:41 +0000
ecs/ranger/commit/test/tc_direction.py?h=v1.4.2&id=54ea4a29b7e95431df3d33aa1ffea1ad8c5ee321'>54ea4a29 ^ 
7a2665c2 ^

447cbcd6 ^







7a2665c2 ^



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
58
59
60
61
62

63
64
65
66
67

68

69
70
71
72
73

74

75
76
77

78

79
80
81
82
83
84
85

86
87
88






























































                                                                       




                                                         
 




                                                                     
                                                                                


                                                                     
 






                                                                                                             


                          
                                                          
                                                  
                                                                

          
              
  
; open a viewport, print coordinates of mouse clicks
; currently need to ctrl-c to exit after closing the viewport
(function main [
  (window-on (("practice" literal)) 300:literal 300:literal)
  { begin
    (pos:integer-integer-pair click?:boolean <- mouse-position)
    (loop-unless click?:boolean)
    (x:integer <- get pos:integer-integer-pair 0:offset)
    (y:integer <- get pos:integer-integer-pair 1:offset)
;?     ($print (("AAA " literal)))
;?     ($print x:integer)
;?     ($print ((", " literal)))
;?     ($print y:integer)
;?     ($print (("\n" literal)))
    (print-integer nil:literal/terminal x:integer)
    (print-character nil:literal/terminal ((#\, literal)))
    (print-character nil:literal/terminal ((#\space literal)))
    (print-integer nil:literal/terminal y:integer)
    (print-character nil:literal/terminal ((#\newline literal)))
    (loop)
  }
  (window-off)
])