Go to:
Gentoo Home
Documentation
Forums
Lists
Bugs
Planet
Store
Wiki
Get Gentoo!
Gentoo's Bugzilla – Attachment 334916 Details for
Bug 451032
Example files for Emacs test plans
Home
|
New
–
[Ex]
|
Browse
|
Search
|
Privacy Policy
|
[?]
|
Reports
|
Requests
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
Example file for app-emacs/ocaml-mode and app-emacs/tuareg-mode
text.ml (text/plain), 1.91 KB, created by
Ulrich Müller
on 2013-01-09 12:11:45 UTC
(
hide
)
Description:
Example file for app-emacs/ocaml-mode and app-emacs/tuareg-mode
Filename:
MIME Type:
Creator:
Ulrich Müller
Created:
2013-01-09 12:11:45 UTC
Size:
1.91 KB
patch
obsolete
>(***********************************************************************) >(* *) >(* MLTk, Tcl/Tk interface of Objective Caml *) >(* *) >(* Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis *) >(* projet Cristal, INRIA Rocquencourt *) >(* Jacques Garrigue, Kyoto University RIMS *) >(* *) >(* Copyright 2002 Institut National de Recherche en Informatique et *) >(* en Automatique and Kyoto University. All rights reserved. *) >(* This file is distributed under the terms of the GNU Library *) >(* General Public License, with the special exception on linking *) >(* described in file LICENSE found in the Objective Caml source tree. *) >(* *) >(***********************************************************************) >open Tk > >let top = opentk () > >let scroll_link sb tx = > Text.configure tx [YScrollCommand (Scrollbar.set sb)]; > Scrollbar.configure sb [ScrollCommand (Text.yview tx)] > >let f = Frame.create top [] >let text = Text.create f [] >let scrollbar = Scrollbar.create f [] > >let buffer = ref "" > >let kill () = > buffer := > Text.get text (TextIndex (Insert, [])) > (TextIndex (Insert, [LineEnd])); > Text.delete text (TextIndex (Insert, [])) > (TextIndex (Insert, [LineEnd])) >;; > >let yank () = > Text.insert text (TextIndex (Insert, [])) !buffer [] > >let _ = bind text [[Control], KeyPressDetail "y"] (BindSet ([], fun _ -> > yank () )) >;; >let _ = bind text [[Control], KeyPressDetail "k"] (BindSet ([], fun _ -> > kill () )) >;; > >let _ = > scroll_link scrollbar text; > > pack [text;f][]; > pack [f][]; > mainLoop () >;; >
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Raw
Actions:
View
Attachments on
bug 451032
:
334872
|
334874
|
334876
|
334878
|
334880
|
334882
|
334884
|
334886
|
334888
|
334890
|
334892
|
334894
|
334896
|
334898
|
334900
|
334902
|
334904
|
334906
|
334908
|
334910
|
334912
|
334914
| 334916 |
334918
|
334920
|
334922
|
334924
|
334926
|
334928
|
334930
|
334932
|
334934
|
334936
|
334938
|
353472
|
353474
|
353476
|
360484
|
370044