summaryrefslogtreecommitdiff
path: root/lib/dialogues/fsd.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'lib/dialogues/fsd.tcl')
-rw-r--r--lib/dialogues/fsd.tcl27
1 files changed, 15 insertions, 12 deletions
diff --git a/lib/dialogues/fsd.tcl b/lib/dialogues/fsd.tcl
index fce7e24..4733426 100644
--- a/lib/dialogues/fsd.tcl
+++ b/lib/dialogues/fsd.tcl
@@ -1,10 +1,13 @@
#!/usr/bin/tclsh
-# Part of MCU 8051 IDE ( http://mcu8051ide.sf.net )
+# Part of MCU 8051 IDE ( http://http://www.moravia-microsystems.com/mcu8051ide )
############################################################################
# Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012 by Martin OŇ°mera #
# martin.osmera@gmail.com #
# #
+# Copyright (C) 2014 by Moravia Microsystems, s.r.o. #
+# martin.osmera@moravia-microsystems.com #
+# #
# This program is free software; you can redistribute it and#or modify #
# it under the terms of the GNU General Public License as published by #
# the Free Software Foundation; either version 2 of the License, or #
@@ -58,27 +61,27 @@ set _FSD_TCL _
itcl::class KIFSD::FSD {
- common bookmark_change_command {} ;# Command to invoke on bokmark change
+ public common bookmark_change_command {} ;# Command to invoke on bokmark change
# Font for quick navigation panel
- common quick_nav_panel_font [font create \
+ public common quick_nav_panel_font [font create \
-family {helvetica} \
-size [expr {int(-12 * $::font_size_factor)}] \
-weight bold \
]
# Font for files listbox in mode (Short view)
- common listbox_font_short [font create \
+ public common listbox_font_short [font create \
-family {helvetica} \
-size [expr {int(-14 * $::font_size_factor)}] \
-weight normal \
]
# Font for files listbox in mode (Detailed view) and directories listbox
- common listbox_font_detailed [font create \
+ public common listbox_font_detailed [font create \
-family $::DEFAULT_FIXED_FONT \
-size [expr {int(-12 * $::font_size_factor)}] \
-weight normal \
]
# Font for listbox header
- common listbox_header_font [font create \
+ public common listbox_header_font [font create \
-family $::DEFAULT_FIXED_FONT \
-size [expr {int(-12 * $::font_size_factor)}] \
-weight bold \
@@ -1932,13 +1935,13 @@ itcl::class KIFSD::FSD {
public method file_listbox_item_menu {x y item} {
set item_menu_request 1
set current_item $item
- set current_item_index [$dir_listbox index $item]
+ set current_item_index [$file_listbox index $item]
foreach entry {Rename Delete Properties {Bookmark folder}} {
$win.listbox_menu entryconfigure [mc $entry] -state normal
}
set cur_listbox {file}
set current_item $item
- set current_item_index [$dir_listbox index $item]
+ set current_item_index [$file_listbox index $item]
tk_popup $win.listbox_menu $x $y
}
@@ -2078,7 +2081,7 @@ itcl::class KIFSD::FSD {
# Create dialog window and Notebook
set dialog [toplevel $win.properties_dialog -class {Configuration dialog} -bg ${::COMMON_BG_COLOR}]
- set nb [NoteBook $dialog.nb -bg ${::COMMON_BG_COLOR}]
+ set nb [ModernNoteBook $dialog.nb]
$nb insert end general -text "General"
if {!$::MICROSOFT_WINDOWS} { ;# Microsoft Windows has no file rights (compatible with posix rights)
$nb insert end permission -text "Permissions"
@@ -2091,7 +2094,7 @@ itcl::class KIFSD::FSD {
# Name:
set row 0
grid [label $frame.lbl_$row \
- -text [::mc "Name:"] -anchor w \
+ -text [::mc "Name:"] -anchor w \
-font $listbox_font_short \
] -column 0 -row $row -sticky w -pady 3
set ::KIFSD::FSD::item_properties(name) $name
@@ -2186,8 +2189,8 @@ itcl::class KIFSD::FSD {
] -side left -padx 2
# Pack notebook and bottom frame
- pack $nb -fill both -expand 1 -padx 10 -pady 5
- pack $bottom_frame -anchor e -after $nb -padx 10 -pady 5
+ pack [$nb get_nb] -fill both -expand 1 -padx 10 -pady 5
+ pack $bottom_frame -anchor e -after [$nb get_nb] -padx 10 -pady 5
# Configure dialog window
wm title $dialog [::mc "Item properties"]