| branch | qmlfrontend |
| changeset 11428 | e045dc60c37e |
| parent 11426 | 25e0f427f57e |
| child 11429 | 86c13e5662f1 |
| 11427:c6c6a4b32cea | 11428:e045dc60c37e |
|---|---|
59 0, -12, 8, 0, 0, 0, 0, 0, 0, -11, 0, -10); |
59 0, -12, 8, 0, 0, 0, 0, 0, 0, -11, 0, -10); |
60 |
60 |
61 procedure handler_; |
61 procedure handler_; |
62 begin |
62 begin |
63 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
63 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
64 writeln('handler_'); |
|
65 handleTail() |
64 handleTail() |
66 end; |
65 end; |
67 |
66 |
68 procedure handler_L; |
67 procedure handler_L; |
69 begin |
68 var cmd: TCmdParamL; |
70 writeln('handler_L'); |
69 begin |
70 cmd.cmd:= state.cmd; |
|
71 cmd.str1:= getShortString; // FIXME long line |
|
72 if cmd.str1[0] = #0 then exit; |
|
73 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
71 handleTail() |
74 handleTail() |
72 end; |
75 end; |
73 |
76 |
74 procedure handler_ML; |
77 procedure handler_ML; |
78 var cmd: TCmdParamL; |
|
79 f: boolean; |
|
75 begin |
80 begin |
76 writeln('handler_ML'); |
81 writeln('handler_ML'); |
77 handleTail() |
82 sendUI(mtNetData, @state.cmd, sizeof(state.cmd)); |
83 cmd.cmd:= Succ(state.cmd); |
|
84 |
|
85 repeat |
|
86 cmd.str1:= getShortString; // FIXME long line |
|
87 f:= cmd.str1[0] <> #0; |
|
88 if f then |
|
89 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
90 until not f |
|
78 end; |
91 end; |
79 |
92 |
80 procedure handler_MS; |
93 procedure handler_MS; |
81 var cmd: TCmdParamS; |
94 var cmd: TCmdParamS; |
82 f: boolean; |
95 f: boolean; |
91 sendUI(mtNetData, @cmd, sizeof(cmd)); |
104 sendUI(mtNetData, @cmd, sizeof(cmd)); |
92 until not f |
105 until not f |
93 end; |
106 end; |
94 |
107 |
95 procedure handler_S; |
108 procedure handler_S; |
96 begin |
109 var cmd: TCmdParamS; |
97 writeln('handler_S'); |
110 begin |
111 cmd.cmd:= state.cmd; |
|
112 cmd.str1:= getShortString; |
|
113 if cmd.str1[0] = #0 then exit; |
|
114 sendUI(mtNetData, @cmd, sizeof(cmd)); |
|
98 handleTail() |
115 handleTail() |
99 end; |
116 end; |
100 |
117 |
101 procedure handler_SL; |
118 procedure handler_SL; |
102 var cmd: TCmdParamSL; |
119 var cmd: TCmdParamSL; |