Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

perl TK Gui rendering in windows remote desktop

by bosscar (Initiate)
on Nov 10, 2010 at 06:33 UTC ( #870495=perlquestion: print w/replies, xml ) Need Help??
bosscar has asked for the wisdom of the Perl Monks concerning the following question:

Howdy... I have been numerous perl TK GUI created with buttons and entry control using Windows ActivePerl 5.10. The GUI rendering has no issues in Windows. However if i have the GUI open in a windows PC and then if i remote login into the PC using windows remote desktop access. The Buttons and entry become transparent. Only option is to close and re run the perl gui again. This will fix the perl TK GUI in the remote login. Does anyone have a fix for this issue?
  • Comment on perl TK Gui rendering in windows remote desktop

Replies are listed 'Best First'.
Re: perl TK Gui rendering in windows remote desktop
by Orchew (Acolyte) on Nov 13, 2010 at 04:51 UTC
    RDP sessions often have a lower bit depth than the console (smaller color palette). Sounds like it could be a color-depth degradation failure. Can you make sure your RDP depth is as high as the regular display's?

    RDP is very robust, and I have seen only a few apps that misbehave. If Tk is one of them, I'd like to check it out!

    Assuming it's not the display bit depth, can you provide a hello world example that consistently does it?

    my $copilot = [ "Perl" ]
    bless $copilot;
Re: perl TK Gui rendering in windows remote desktop
by Anonymous Monk on Nov 10, 2010 at 07:18 UTC
    The problem, whatever it is, is with the remote desktop software
Re: perl TK Gui rendering in windows remote desktop
by XiaoShizihou (Initiate) on Oct 18, 2012 at 19:46 UTC

    this is seen on Win7 and WinXP. If the GUI is started locally, then mstsc does not render the GUI completely. If the GUI is started via mstsc, then locally the GUI is not rendered.

    #!/usr/local/bin/perl -w #use 5.10.0; use Tk; use strict; use warnings; use Tk::NoteBook; use Data::Dumper; # -------------------------------------------------------------------- +---------- #<+MAIN part of the program +> # -------------------------------------------------------------------- +---------- my $mw = MainWindow->new; $mw->title('MSTSC test $Rev:$'); $mw->bind( '<Key-F5>', sub { $mw->update; } ); $mw->bind( '<Escape>', sub { exit; } ); $mw->bind( '<Alt-x>', sub { exit;} ); $mw->bind( '<Alt-X>', sub { exit;} ); my $menubar = $mw->Frame()->pack( -side => 'top', -anchor => 'w', ); $menubar->Button( -text => "Exit", -command => sub { exit; } )->pack( +-side => 'right' ); $menubar->Button( -text => "Exit", -command => sub { exit; } )->pack( +-side => 'right' ); $menubar->Button( -text => "Exit", -command => sub { exit; } )->pack( +-side => 'right' ); $menubar->Button( -text => "Exit", -command => sub { exit; } )->pack( +-side => 'right' ); my $npage = $mw->NoteBook(); #->pack; # create the Main window to hold start/status buttons my $start_page = $npage->add( 'start', -label => "Start", ); my %widget_obj; my $label = "ZZ"; $widget_obj{output_tab_wid} = $npage->add( $label, -label => "$label", + ); $widget_obj{output_tab_wid}->Label( -text => "Input Window" )->pack( - +side => 'top', -anchor => 'n' ); $widget_obj{intext_wid} = $widget_obj{output_tab_wid}->Scrolled("Text" +)->pack( -side => 'top', -fill => 'both', -expand => 1, ); my $drive_frame = $start_page->Frame( -relief => 'groove', -borderwidth => 2, -label => "Special Button" )->pack( -side => 'left', -fill => 'y' ); $start_page->pack(-anchor => 'n' , -side => 'left', ); $widget_obj{'button_wid'} = $drive_frame->Button( -state => 'disabled', -text => $label, -relief => 'flat', -borderwidth => 4, -width => 15, -height => 15, -highlightthickness => 0, )->pack( -anchor => 'w' , -side => 'left', ); $npage->pack(); $mw->update; # $mw->focusmodel("active"); MainLoop; exit 0;

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://870495]
Approved by Corion
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (4)
As of 2018-06-25 06:48 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (126 votes). Check out past polls.