Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
branch: master

Fetching latest commit…

Cannot retrieve the latest commit at this time

..
Failed to load latest commit information.
Doc
Test
FnCcommands.c
FnCimages.c
FnCwidgets.c
FnCwidgets.c-orig
FnCwidgets.h
Makefile
README.html
README.org
StrOperations.c
StrOperations.h
You2tk_.c
globalvariables.c
globalvariables.h
tcltk.em
tk_class.em
tk_class2.em
tk_commands.em
tk_general.em
tk_images.em
tk_init.c
tk_utils.em
you2tk.em
you2tki2c

README.org

Tcl/Tk connection for Youtoo 0.93

#

Copyright

Youtoo is free software: you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation, either version 2 of the License, or (at your option) any later version.

Youtoo is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with Youtoo in the file COPYING. If not, see http://www.gnu.org/licenses/.

EuLisp index

General Description

This directory contains the Tcl/Tk connection for youtoo. This file tells you how to install it.

Documentation

The HTML documentation for this module is available online and in the Doc sub-directory.

Installation

  • Edit the Makefile (if necessary).
  • Run ‘make’ in directory TclTk
  • Add ‘-ltcltk -lX11 -ltk83 -ltcl83’ to U2_LIBS in youtoo.eulrc.${ARCH}/; perhaps also -ldl (eg for Linux) is necessary
  • Add ‘-L<EUL_X_LIB_DIR> -L<EUL_TCL_LIB_DIR> -L<EUL_TK_LIB_DIR>’ to U2_LIBS in EuLysses/.eulrc if necessary.
  • Add ‘-I<EUL_X_INCLUDE_DIR> -I<EUL_TCL_INCLUDE_DIR> -I<EUL_TK_INCLUDE_DIR>” to CFLAGS in EuLysses.eulrc if necessary.
  • Test with ‘cd Test; Bin.${ARCH}/youtoo tk_graph_editor -l level-1 -l tcltk’

Installation of the you2tk’ youtoo/Tk Interpreter

  • Run ‘make you2tk’
  • make sure your LD_LIBRARY_PATH environment variable is set correctly (you could edit EuLysses/you2tk to add <EUL_TCL_LIB_DIR> <EUL_TK_LIB_DIR> <EUL_X_LIB_DIR>)
Example test for you2tk

Run ‘Bin.${ARCH}/you2tk’ and type

(defun foo (b x)
  (print b)
  (tk-button-flash b))

  (let ((b1 (tk-make-button () text: "foo" command: foo args: '(self: 42)))
    (b2 (tk-make-button () text: "exit" fg: "red" command: tk-exit)))
    (tk-pack b1 b2 padx: "10" pady: "3"))

  (tk-main-loop)

WARNING

The original version of the Tcl/Tk code used various Tk internals that changed completely between the 7.6/4.2 and 8.3.4/8.3.4 releases. The code has since been crudely beaten into a semblance of submission, but it is surely full of resentment and bugs.

Something went wrong with that request. Please try again.