File: info1

package info (click to toggle)
gcl 2.6.14-19
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 60,804 kB
  • sloc: ansic: 177,407; lisp: 151,508; asm: 128,169; sh: 22,510; cpp: 11,923; tcl: 3,181; perl: 2,930; makefile: 2,360; sed: 334; yacc: 226; lex: 95; awk: 30; fortran: 24; csh: 23
file content (13 lines) | stat: -rwxr-xr-x 260 bytes parent folder | download | duplicates (18) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
#!/usr/local/bin/gcl.exe -f
(si::error-set 
  '(progn
     (tk::tkconnect :args
      "-geometry 20x20-2+2")
         (tk::wm :iconify ".")
	 (si::info (nth 1 SYSTEM::*COMMAND-ARGS*))
	 (tk::bind (quote .info)
		   "<Destroy>"
		   (quote (bye)))

	 (read)))