my( $win, $args ) = @_ ;

    $win->SUPER::Populate( $args ) ;
    
    $win->withdraw ;
    $win->iconname( $args->{-title} ) ;
    $win->protocol( 'WM_DELETE_WINDOW' => sub { } ) ;
    # Tk/ColourChooser Zeile 50:
    $win->transient( $win->toplevel ) ;