Fossil SCM
Fix the menu of fossil_chat.tcl for mac.
Commit
aeb2ac781d8ee71ad9fad05108c4f3fa267eb69d
Parent
e0232ce1a031718…
1 file changed
+1
-1
+1
-1
| --- tools/fossil_chat.tcl | ||
| +++ tools/fossil_chat.tcl | ||
| @@ -14,11 +14,11 @@ | ||
| 14 | 14 | wm iconname . [wm title .] |
| 15 | 15 | |
| 16 | 16 | set ::PRIVATE 0 |
| 17 | 17 | |
| 18 | 18 | menu .mb -type menubar |
| 19 | -if {$tcl_platform(platform)=="unix"} { | |
| 19 | +if {$tcl_platform(platform)=="unix" && $tcl_platform(os)!="Darwin"} { | |
| 20 | 20 | pack .mb -side top -fill x |
| 21 | 21 | } else { |
| 22 | 22 | . config -menu .mb |
| 23 | 23 | } |
| 24 | 24 | .mb add cascade -label File -underline 0 -menu .mb.file |
| 25 | 25 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -14,11 +14,11 @@ | |
| 14 | wm iconname . [wm title .] |
| 15 | |
| 16 | set ::PRIVATE 0 |
| 17 | |
| 18 | menu .mb -type menubar |
| 19 | if {$tcl_platform(platform)=="unix"} { |
| 20 | pack .mb -side top -fill x |
| 21 | } else { |
| 22 | . config -menu .mb |
| 23 | } |
| 24 | .mb add cascade -label File -underline 0 -menu .mb.file |
| 25 |
| --- tools/fossil_chat.tcl | |
| +++ tools/fossil_chat.tcl | |
| @@ -14,11 +14,11 @@ | |
| 14 | wm iconname . [wm title .] |
| 15 | |
| 16 | set ::PRIVATE 0 |
| 17 | |
| 18 | menu .mb -type menubar |
| 19 | if {$tcl_platform(platform)=="unix" && $tcl_platform(os)!="Darwin"} { |
| 20 | pack .mb -side top -fill x |
| 21 | } else { |
| 22 | . config -menu .mb |
| 23 | } |
| 24 | .mb add cascade -label File -underline 0 -menu .mb.file |
| 25 |