Tk

 view release on metacpan or  search on metacpan

Change.log  view on Meta::CPAN

r13391 | srezic | 2009-10-16 16:12:24 +0200 (Fr, 16. Okt 2009) | 1 line

* ignore for git checkout
------------------------------------------------------------------------
r13386 | srezic | 2009-10-10 21:37:19 +0200 (Sa, 10. Okt 2009) | 1 line

* fixed some nroff(?) leftover
------------------------------------------------------------------------
r12772 | srezic | 2009-05-17 23:07:43 +0200 (So, 17. Mai 2009) | 1 line

* getpwuid not available on Windows systems (patch by Ch Lamprecht)
------------------------------------------------------------------------
r12756 | srezic | 2009-05-07 22:47:48 +0200 (Do, 07. Mai 2009) | 3 lines

* Control-X/Y/C now also works if Caps Lock is active
  http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=205895
  (applied a variation of the patch in the bugreport)
------------------------------------------------------------------------
r12755 | srezic | 2009-05-07 22:20:27 +0200 (Do, 07. Mai 2009) | 1 line

* use fvwm -version instead of --version for compat with 2.4.x

Tk/FBox.pm  view on Meta::CPAN

# _get_homedir --
#
#       Get home directory of the current user
#
sub _get_homedir {
    my($user) = @_;
    if (!defined $user) {
	eval {
	    local $SIG{__DIE__};
	    (getpwuid($<))[7];
	} || $ENV{HOME} || undef; # chdir undef changes to home directory, too
    } else {
	eval {
	    local $SIG{__DIE__};
	    (getpwnam($user))[7];
	};
    }
}

sub _cwd {

myConfig  view on Meta::CPAN

my %define = ();

$inc    = "";
$xlib   = "";
$define = '';
$gccopt = "";
@macro = ( macro => {} );
$is_maintainer = 0;
eval{
    $is_maintainer = (getpwuid($<))[6]
        =~ /(Nick\s+Ing-Simmons|Slaven\s+Rezic)/;
};
if (defined $Config{'gccversion'})
 {
  $ver = $Config{'gccversion'};
  if ($ver ge "2.8")
   {
    # retain author's favourite warnings if using gcc
    $gccopt .= " -Wall -Wno-implicit-int -Wno-comment -Wno-unused -D__USE_FIXED_PROTOTYPES__";
    eval

pTk/mTk/generic/tkCanvPs.c  view on Meta::CPAN

     *--------------------------------------------------------
     * Generate the header and prolog for the Postscript.
     *--------------------------------------------------------
     */

    if (psInfo.prolog) {
      Tcl_AppendResult(interp, "%!PS-Adobe-3.0 EPSF-3.0\n",
		       "%%Creator: Tk Canvas Widget\n", (char *) NULL);
#ifdef HAVE_PW_GECOS
    if (!Tcl_IsSafe(interp)) {
	struct passwd *pwPtr = getpwuid(getuid());	/* INTL: Native. */
	Tcl_AppendResult(interp, "%%For: ",
		(pwPtr != NULL) ? pwPtr->pw_gecos : "Unknown", "\n",
		(char *) NULL);
	endpwent();
    }
#endif /* HAVE_PW_GECOS */
    Tcl_AppendResult(interp, "%%Title: Window ",
	    Tk_PathName(tkwin), "\n", (char *) NULL);
    time(&now);
    Tcl_AppendResult(interp, "%%CreationDate: ",

pTk/mTk/tclUnix/tclUnixFCmd.c  view on Meta::CPAN

    result = TclpObjStat(fileName, &statBuf);

    if (result != 0) {
	Tcl_AppendResult(interp, "could not read \"",
		Tcl_GetString(fileName), "\": ",
		Tcl_PosixError(interp), (char *) NULL);
	return TCL_ERROR;
    }

    pwPtr = getpwuid(statBuf.st_uid);			/* INTL: Native. */
    if (pwPtr == NULL) {
	*attributePtrPtr = Tcl_NewIntObj((int) statBuf.st_uid);
    } else {
	Tcl_DString ds;
	CONST char *utf;

	utf = Tcl_ExternalToUtfDString(NULL, pwPtr->pw_name, -1, &ds);
	*attributePtrPtr = Tcl_NewStringObj(utf, Tcl_DStringLength(&ds));
	Tcl_DStringFree(&ds);
    }