aboutsummaryrefslogtreecommitdiff
path: root/cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl')
-rw-r--r--cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl18
1 files changed, 9 insertions, 9 deletions
diff --git a/cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl b/cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl
index 20df73cb3858..5baad98ca7dd 100644
--- a/cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl
+++ b/cad/opencascade/files/patch-src_DrawResources_CheckCommands.tcl
@@ -1,14 +1,14 @@
---- src/DrawResources/CheckCommands.tcl.orig 2020-11-03 14:49:56 UTC
+--- src/DrawResources/CheckCommands.tcl.orig 2021-10-30 11:13:45 UTC
+++ src/DrawResources/CheckCommands.tcl
-@@ -1053,6 +1053,7 @@ help checkplatform {
- -windows : return 1 if current platform is 'Windows', overwise return 0
- -linux : return 1 if current platform is 'Linux', overwise return 0
- -osx : return 1 if current platform is 'MacOS X', overwise return 0
-+ -freebsd : return 1 if current platform is 'FreeBSD', overwise return 0
+@@ -1095,6 +1095,7 @@ help checkplatform {
+ -windows : return 1 if current platform is 'Windows', otherwise return 0
+ -linux : return 1 if current platform is 'Linux', otherwise return 0
+ -osx : return 1 if current platform is 'MacOS X', otherwise return 0
++ -freebsd : return 1 if current platform is 'FreeBSD', otherwise return 0
Only one option can be used at once.
If no option is given, procedure will return the name of current platform.
-@@ -1061,9 +1062,11 @@ proc checkplatform {args} {
+@@ -1103,9 +1104,11 @@ proc checkplatform {args} {
set check_for_windows false
set check_for_linux false
set check_for_macosx false
@@ -20,7 +20,7 @@
{"-osx" check_for_macosx 0}}
_check_args ${args} ${options} "checkplatform"
-@@ -1072,17 +1075,19 @@ proc checkplatform {args} {
+@@ -1114,17 +1117,19 @@ proc checkplatform {args} {
set current_platform Windows
} elseif { $::tcl_platform(os) == "Linux" } {
set current_platform Linux
@@ -42,7 +42,7 @@
error "Error: wrong usage of command checkplatform, only single option can be used at once"
}
-@@ -1091,8 +1096,13 @@ proc checkplatform {args} {
+@@ -1133,8 +1138,13 @@ proc checkplatform {args} {
return 1
}