diff options
| -rw-r--r-- | otherlibs/labltk/example/demo.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/example/eyes.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/example/hello.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/example/tetris.ml | 6 | ||||
| -rw-r--r-- | otherlibs/labltk/jpf/balloon.mli | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/jpf/balloontest.ml | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/jpf/fileselect.mli | 4 | ||||
| -rw-r--r-- | otherlibs/labltk/support/fileevent.mli | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/support/protocol.mli | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/support/timer.mli | 2 | ||||
| -rw-r--r-- | otherlibs/labltk/support/tkwait.ml | 1 | ||||
| -rw-r--r-- | otherlibs/labltk/support/widget.mli | 2 |
12 files changed, 25 insertions, 4 deletions
diff --git a/otherlibs/labltk/example/demo.ml b/otherlibs/labltk/example/demo.ml index a3ac64a91..94d686355 100644 --- a/otherlibs/labltk/example/demo.ml +++ b/otherlibs/labltk/example/demo.ml @@ -12,6 +12,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + (* Some CamlTk4 Demonstration by JPF *) (* First, open these modules for convenience *) diff --git a/otherlibs/labltk/example/eyes.ml b/otherlibs/labltk/example/eyes.ml index a5373e922..021ea700c 100644 --- a/otherlibs/labltk/example/eyes.ml +++ b/otherlibs/labltk/example/eyes.ml @@ -12,6 +12,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + open Tk let _ = diff --git a/otherlibs/labltk/example/hello.ml b/otherlibs/labltk/example/hello.ml index 247a5215d..47d0201d1 100644 --- a/otherlibs/labltk/example/hello.ml +++ b/otherlibs/labltk/example/hello.ml @@ -12,6 +12,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + (* LablTk4 Demonstration by JPF *) (* First, open this modules for convenience *) diff --git a/otherlibs/labltk/example/tetris.ml b/otherlibs/labltk/example/tetris.ml index 7f9087243..580e7c82b 100644 --- a/otherlibs/labltk/example/tetris.ml +++ b/otherlibs/labltk/example/tetris.ml @@ -12,8 +12,10 @@ (* *) (*************************************************************************) -(* tetris.ml : a Tetris game for LablTk *) -(* written by Jun P. Furuse *) +(* $Id$ *) + +(* A Tetris game for LablTk *) +(* written by Jun P. Furuse *) open Tk diff --git a/otherlibs/labltk/jpf/balloon.mli b/otherlibs/labltk/jpf/balloon.mli index cccc6962b..f5954ddfa 100644 --- a/otherlibs/labltk/jpf/balloon.mli +++ b/otherlibs/labltk/jpf/balloon.mli @@ -11,6 +11,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + (* easy balloon help facility *) open Widget diff --git a/otherlibs/labltk/jpf/balloontest.ml b/otherlibs/labltk/jpf/balloontest.ml index 2bc1a3a7e..82c6aaeef 100644 --- a/otherlibs/labltk/jpf/balloontest.ml +++ b/otherlibs/labltk/jpf/balloontest.ml @@ -11,6 +11,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + open Tk open Widget open Balloon diff --git a/otherlibs/labltk/jpf/fileselect.mli b/otherlibs/labltk/jpf/fileselect.mli index 5b9930c3e..2eca3718d 100644 --- a/otherlibs/labltk/jpf/fileselect.mli +++ b/otherlibs/labltk/jpf/fileselect.mli @@ -11,9 +11,9 @@ (* *) (*************************************************************************) -open Support +(* $Id$ *) -(* fileselect.mli *) +open Support val f : title:string -> diff --git a/otherlibs/labltk/support/fileevent.mli b/otherlibs/labltk/support/fileevent.mli index c567846f1..8c6d0d481 100644 --- a/otherlibs/labltk/support/fileevent.mli +++ b/otherlibs/labltk/support/fileevent.mli @@ -13,6 +13,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + open Unix val add_fileinput : fd:file_descr -> callback:(unit -> unit) -> unit diff --git a/otherlibs/labltk/support/protocol.mli b/otherlibs/labltk/support/protocol.mli index 4db2a71c5..d7107b239 100644 --- a/otherlibs/labltk/support/protocol.mli +++ b/otherlibs/labltk/support/protocol.mli @@ -13,6 +13,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + open Widget (* Lower level interface *) diff --git a/otherlibs/labltk/support/timer.mli b/otherlibs/labltk/support/timer.mli index 182a994d3..c1d4be43f 100644 --- a/otherlibs/labltk/support/timer.mli +++ b/otherlibs/labltk/support/timer.mli @@ -13,6 +13,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + type t val add : ms:int -> callback:(unit -> unit) -> t diff --git a/otherlibs/labltk/support/tkwait.ml b/otherlibs/labltk/support/tkwait.ml index be1e8bb9b..38ed04a9c 100644 --- a/otherlibs/labltk/support/tkwait.ml +++ b/otherlibs/labltk/support/tkwait.ml @@ -13,6 +13,7 @@ (* *) (*************************************************************************) +(* $Id$ *) external internal_tracevis : string -> string -> unit = "camltk_wait_vis" diff --git a/otherlibs/labltk/support/widget.mli b/otherlibs/labltk/support/widget.mli index 5d79784e2..e3966689e 100644 --- a/otherlibs/labltk/support/widget.mli +++ b/otherlibs/labltk/support/widget.mli @@ -13,6 +13,8 @@ (* *) (*************************************************************************) +(* $Id$ *) + (* Support for widget manipulations *) type 'a widget |