11 my ($vnc, $inc, $x,$y,$w,$h) = @_ ;
\r
13 my $codec = $vnc->{CODEC};
\r
19 $data= $codec->encode_framebuffer_update($codec->encode_raw_rect($codec->encode_pixel(0,0,255), $x,$y,$w,$h) ) ;
\r
21 $data = $codec->encode_framebuffer_update( $codec->encode_rre($codec->encode_pixel(0,255,0), $x,$y,$w,$h,
\r
22 $codec->encode_rre_subrect( $codec->encode_pixel(255,255,255), 10,10,20,10),
\r
23 $codec->encode_rre_subrect( $codec->encode_pixel(0,128,128), 10,20,10,20)
\r
30 my $s = new VNC::Server( Port=>2,
\r
32 Caption=>'Hello From perlVNC',
\r
33 Width => 50, Height => 50,
\r
34 Password => 'dummy',
\r
35 IdleHandler => sub {print "Nothing happened for 1 second...\n"},
\r
36 KeyEventHandler => sub { my ($vnc,$d,$k) = @_; print "down = $d, key = $k\n";},
\r
37 PointerEventHandler => \&pointer,
\r
38 UpdateDisplayHandler => \&updater
\r
41 $s->vnc_server_loop;
\r
44 my ($vnc,$mask,$x,$y) = @_ ;
\r
57 $s->update_all_displays;
\r