Commit 1e88bea6 authored by Erick's avatar Erick

Small fixes

parent f6aa68e6
;;;;
;;;; container.stk -- GTK containers
;;;;
;;;; Copyright 2001-2002 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2001-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 25-May-2001 16:59 (eg)
;;;; Last file update: 9-Apr-2002 00:01 (eg)
;;;; Last file update: 9-May-2008 16:06 (eg)
;;;;
;======================================================================
......@@ -111,7 +111,7 @@
;;;; C O N T A I N E R - I N F O
;;;;
(define-generic %container-info)
(define-generic %container-info <generic>)
(define-method container-info ((w <gtk-widget>))
(let ((p (parent w)))
......
;;;;
;;;; image.stk -- GTK Image Widget
;;;;
;;;; Copyright 2000-2001 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2000-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 13-Oct-2000 17:15 (eg)
;;;; Last file update: 14-Aug-2001 17:24 (eg)
;;;; Last file update: 9-May-2008 16:07 (eg)
;;;;
......@@ -35,7 +35,7 @@
'("xpm"))) ;; with GTK only, accepts only XPMs
(define *image-path*
(let ((user-path (%build-path-from-shell-variable "STKLOS_IMAGE_PATH")))
(let ((user-path (build-path-from-shell-variable "STKLOS_IMAGE_PATH")))
(if (null? user-path)
(list (string-append (%library-prefix)
"/share/stklos/"
......
;;;;
;;;; widget.stk -- GTK widget
;;;;
;;;; Copyright 2001-2002 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2001-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,11 +21,11 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 30-May-2001 18:30 (eg)
;;;; Last file update: 9-Apr-2002 00:02 (eg)
;;;; Last file update: 9-May-2008 16:06 (eg)
;;;;
(define-generic container-add!) ;; forward declaration
(define-generic container-add! <generic>) ;; forward declaration
......
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 17-May-2000 14:55 (eg)
;;;; Last file update: 5-May-2008 10:26 (eg)
;;;; Last file update: 9-May-2008 23:37 (eg)
;;;;
......@@ -30,7 +30,7 @@
(define *path-separator* (if (eqv? (running-os) 'windows) ";" ":"))
(define *load-suffixes* (list "ostk" "spi" "stk" "scm" "so"))
(define *load-suffixes* (list "so" "ostk" "spi" "stk" "scm"))
(define *load-verbose* #f)
(define *load-path* '()) ;; initialized later
......@@ -333,7 +333,7 @@ doc>
(set! require/provide
(lambda (what)
(unless (member what provided)
(%load what (load-path)))
(%load what (load-path) (load-suffixes)))
(provide what)))
(set! provide (lambda (what)
......
This diff is collapsed.
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment