diff options
Diffstat (limited to 'win32caml')
| -rw-r--r-- | win32caml/libgraph.h | 4 | ||||
| -rw-r--r-- | win32caml/ocaml.c | 2 | ||||
| -rw-r--r-- | win32caml/startocaml.c | 2 |
3 files changed, 4 insertions, 4 deletions
diff --git a/win32caml/libgraph.h b/win32caml/libgraph.h index 1df232988..1202f178b 100644 --- a/win32caml/libgraph.h +++ b/win32caml/libgraph.h @@ -50,8 +50,8 @@ extern int bits_per_pixel; #define DEFAULT_SCREEN_WIDTH 1024 #define DEFAULT_SCREEN_HEIGHT 768 #define BORDER_WIDTH 2 -#define WINDOW_NAME "Caml graphics" -#define ICON_NAME "Caml graphics" +#define WINDOW_NAME "OCaml graphics" +#define ICON_NAME "OCaml graphics" #define DEFAULT_EVENT_MASK \ (ExposureMask | KeyPressMask | StructureNotifyMask) #define DEFAULT_FONT "fixed" diff --git a/win32caml/ocaml.c b/win32caml/ocaml.c index 04899473f..59ebd035b 100644 --- a/win32caml/ocaml.c +++ b/win32caml/ocaml.c @@ -1564,7 +1564,7 @@ int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine if (!Setup(&hAccelTable)) return 0; // Need to set up a console so that we can send ctrl-break signal - // to inferior Caml + // to inferior OCaml AllocConsole(); GetConsoleTitle(consoleTitle,sizeof(consoleTitle)); hwndConsole = FindWindow(NULL,consoleTitle); diff --git a/win32caml/startocaml.c b/win32caml/startocaml.c index d457dd41b..7180fc50e 100644 --- a/win32caml/startocaml.c +++ b/win32caml/startocaml.c @@ -151,7 +151,7 @@ int GetOcamlPath(void) || _access(path, 0) != 0) { /* Registry key doesn't exist or contains invalid path */ /* Ask user */ - if (!BrowseForFile("Ocaml interpreter|ocaml.exe", path)) { + if (!BrowseForFile("OCaml interpreter|ocaml.exe", path)) { ShowDbgMsg("Impossible to find ocaml.exe. I quit"); exit(0); } |