| … | |
… | |
| 165 | if ($IFACE eq "UNIX") { |
165 | if ($IFACE eq "UNIX") { |
| 166 | $args{window} = unpack "xxxxN", $args{window}; |
166 | $args{window} = unpack "xxxxN", $args{window}; |
| 167 | $args{ws_type} = rcv_i32; |
167 | $args{ws_type} = rcv_i32; |
| 168 | $args{ws_depth} = rcv_u32; |
168 | $args{ws_depth} = rcv_u32; |
| 169 | } |
169 | } |
| 170 | warn Dumper([$objid,\%args]); |
|
|
| 171 | |
170 | |
| 172 | $_OBJ{$objid}->set_window(\%args); |
171 | $_OBJ{$objid}->set_window(\%args); |
| 173 | |
172 | |
| 174 | } else { |
173 | } else { |
| 175 | die "unknown command '$cmd' received"; |
174 | die "unknown command '$cmd' received"; |
