arcadia 0.11.0 → 0.11.1

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/labelentry.tcl

@@ -1,7 +1,7 @@
 # ------------------------------------------------------------------------------
 #  labelentry.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: labelentry.tcl,v 1.6 2003/10/20 21:23:52 damonc Exp $
+#  $Id: labelentry.tcl,v 1.6.2.1 2011/02/14 16:56:09 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - LabelEntry::create
@@ -39,8 +39,13 @@ proc LabelEntry::create { path args } {
     array set maps [list LabelEntry {} :cmd {} .labf {} .e {}]
     array set maps [Widget::parseArgs LabelEntry $args]
 
-    eval [list frame $path] $maps(:cmd) -class LabelEntry \
-	    -relief flat -bd 0 -highlightthickness 0 -takefocus 0
+    if {[Widget::theme]} {
+        eval [list ttk::frame $path] $maps(:cmd) -class LabelEntry \
+            -takefocus 0
+    }  else  {
+        eval [list frame $path] $maps(:cmd) -class LabelEntry \
+            -relief flat -bd 0 -highlightthickness 0 -takefocus 0
+    }
     Widget::initFromODB LabelEntry $path $maps(LabelEntry)
 	
     set labf  [eval [list LabelFrame::create $path.labf] $maps(.labf) \

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/labelframe.tcl

@@ -1,7 +1,7 @@
 # ------------------------------------------------------------------------------
 #  labelframe.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: labelframe.tcl,v 1.6 2003/10/20 21:23:52 damonc Exp $
+#  $Id: labelframe.tcl,v 1.6.2.1 2011/02/14 16:56:09 oehhar Exp $
 # ------------------------------------------------------------------------------
 #  Index of commands:
 #     - LabelFrame::create
@@ -46,15 +46,25 @@ namespace eval LabelFrame {
 proc LabelFrame::create { path args } {
     Widget::init LabelFrame $path $args
 
-    set path  [eval [list frame $path] [Widget::subcget $path :cmd] \
-	    -relief flat -bd 0 -takefocus 0 -highlightthickness 0 \
-	    -class LabelFrame]
+    if {[Widget::theme]} {
+        set path  [eval [list ttk::frame $path] [Widget::subcget $path :cmd] \
+            -takefocus 0 \
+            -class LabelFrame]
+    }  else  {
+        set path  [eval [list frame $path] [Widget::subcget $path :cmd] \
+            -relief flat -bd 0 -takefocus 0 -highlightthickness 0 \
+            -class LabelFrame]
+    }
 
     set label [eval [list Label::create $path.l] [Widget::subcget $path .l] \
-                   -takefocus 0 -highlightthickness 0 -relief flat \
-		   -borderwidth 0 -dropenabled 0 -dragenabled 0]
-    set frame [eval [list frame $path.f] [Widget::subcget $path .f] \
-                   -highlightthickness 0 -takefocus 0]
+        -takefocus 0 -dropenabled 0 -dragenabled 0]
+    if {[Widget::theme]} {
+        set frame [eval [list ttk::frame $path.f] [Widget::subcget $path .f] \
+            -takefocus 0]
+    }  else  {
+        set frame [eval [list frame $path.f] [Widget::subcget $path .f] \
+            -highlightthickness 0 -takefocus 0]
+    }
 
     switch  [Widget::getoption $path -side] {
         left   {set packopt "-side left"}

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/da.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       Fed
-*italicName:     Kursiv
-*underlineName:  Understreg
-*overstrikeName: Overstreg
-*fontName:       &Font
-*sizeName:       &St�rrelse
-*styleName:      St&il
+*boldName:          Fed
+*italicName:        Kursiv
+*underlineName:     Understreg
+*overstrikeName:    Overstreg
+*fontName:          &Font
+*sizeName:          &St�rrelse
+*styleName:         St&il
+*colorPickerName:   F&arve...
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
 
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Indtast brugernavn og password
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/de.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       Fett
-*italicName:     Kursiv
-*underlineName:  Unterstrichen
-*overstrikeName: Durchgestrichen
-*fontName:       &Schriftart
-*sizeName:       S&chriftgrad
-*styleName:      Sc&hriftschnitt
+*boldName:          Fett
+*italicName:        Kursiv
+*underlineName:     Unterstrichen
+*overstrikeName:    Durchgestrichen
+*fontName:          &Schriftart
+*sizeName:          S&chriftgrad
+*styleName:         Sc&hriftschnitt
+*colorPickerName:   &Farbe...
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
 
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Enter login and password
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Grundfarben
+*userColorsName: Benutzerdefinierte Farben

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/en.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       Bold
-*italicName:     Italic
-*underlineName:  Underline
-*overstrikeName: Overstrike
-*fontName:       &Font
-*sizeName:       &Size
-*styleName:      St&yle
+*boldName:          Bold
+*italicName:        Italic
+*underlineName:     Underline
+*overstrikeName:    Overstrike
+*fontName:          &Font
+*sizeName:          &Size
+*styleName:         St&yle
+*colorPickerName:   &Color...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Enter login and password
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/es.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       &Negrita
-*italicName:     &Cursiva
-*underlineName:  &Subrayado
-*overstrikeName: &Tachado
-*fontName:       &Fuente
-*sizeName:       &Tama�o
-*styleName:      &Estilo
+*boldName:          &Negrita
+*italicName:        &Cursiva
+*underlineName:     &Subrayado
+*overstrikeName:    &Tachado
+*fontName:          &Fuente
+*sizeName:          &Tama�o
+*styleName:         &Estilo
+*colorPickerName:   &Color...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -51,3 +52,7 @@
 
 *PasswdDlg.title:  Introduzca su nombre de usuario y contrase�a
 
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/fr.rc

@@ -17,13 +17,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       &Gras
-*italicName:     &Italique
-*underlineName:  &Soulign�
-*overstrikeName: &Barr�
-*fontName:       &Police
-*sizeName:       &Taille
-*styleName:      St&yle
+*boldName:          &Gras
+*italicName:        &Italique
+*underlineName:     &Soulign�
+*overstrikeName:    &Barr�
+*fontName:          &Police
+*sizeName:          &Taille
+*styleName:         St&yle
+*colorPickerName:   &Couleur...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Entrez le login et le mot de passe
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/hu.rc

@@ -25,6 +25,7 @@
 *fontName:       &Betűtípus
 *sizeName:       &Méret
 *styleName:      S&tílus
+*colorPickerName:   &Szín...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -50,3 +51,9 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Add meg a felhasználónevet és a jelszót
+
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Alapszínek
+*userColorsName: Felhasználói színek

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/nl.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       Vet
-*italicName:     Cursief
-*underlineName:  Onderstrepen
-*overstrikeName: Doorhalen
-*fontName:       &Lettertype
-*sizeName:       &Grootte
-*styleName:      &Stijl
+*boldName:          Vet
+*italicName:        Cursief
+*underlineName:     Onderstrepen
+*overstrikeName:    Doorhalen
+*fontName:          &Lettertype
+*sizeName:          &Grootte
+*styleName:         &Stijl
+*colorPickerName:   &Kleur...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Voer inlognaam en wachtwoord in
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/no.rc

@@ -18,13 +18,14 @@
 
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-*boldName:       Halvfet
-*italicName:     Kursiv
-*underlineName:  Understreking
-*overstrikeName: Overstryke
-*fontName:       &Skrift
-*sizeName:       &St�rrelse
-*styleName:      St&il
+*boldName:          Halvfet
+*italicName:        Kursiv
+*underlineName:     Understreking
+*overstrikeName:    Overstryke
+*fontName:          &Skrift
+*sizeName:          &St�rrelse
+*styleName:         St&il
+*colorPickerName:   &Color...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
@@ -50,3 +51,8 @@
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
 *PasswdDlg.title:  Skriv inn logginn og passord
+
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Base colors
+*userColorsName: User colors

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/lang/pl.rc

@@ -1,104 +1,60 @@
 ! ------------------------------------------------------------------------------
-
 !  pl.rc
-
 !  This file is part of Unifix BWidget Toolkit
-
 !  Definition of english resources
-
 ! ------------------------------------------------------------------------------
 
 
-
-
-
 ! --- symbolic names of buttons ------------------------------------------------
 
-
-
 *abortName:   &Porzuć
-
 *retryName:   P&onów
-
 *ignoreName:  &Ignoruj
-
 *okName:      &OK
-
 *cancelName:  &Anyluj
-
 *yesName:     &Tak
-
 *noName:      &Nie
 
 
-
-
-
 ! --- symbolic names of label of SelectFont dialog ----------------------------
 
-
-
-*boldName:       Pogrubiona
-
-*italicName:     Kursywa
-
-*underlineName:  Podkreślenie
-
-*overstrikeName: Przekreślenie
-
-*fontName:       &Czcionka:
-
-*sizeName:       &Rozmiar:
-
-*styleName:      St&yl czcionki:
-
-
-
+*boldName:          Pogrubiona
+*italicName:        Kursywa
+*underlineName:     Podkreślenie
+*overstrikeName:    Przekreślenie
+*fontName:          &Czcionka:
+*sizeName:          &Rozmiar:
+*styleName:         St&yl czcionki:
+*colorPickerName:   &Kolor...
 
 
 ! --- symbolic names of label of PasswdDlg dialog -----------------------------
 
-
-
 *loginName:    &Login
-
 *passwordName: &Hasło
 
 
-
-
-
 ! --- resource for SelectFont dialog ------------------------------------------
 
-
-
 *SelectFont.title:	    Wybór czcionki
-
 *SelectFont.sampletext:	    Przykładowy tekst
 
 
-
-
-
 ! --- resource for MessageDlg dialog ------------------------------------------
 
-
-
 *MessageDlg.noneTitle:      Wiadomość
-
 *MessageDlg.infoTitle:      Informacja
-
 *MessageDlg.questionTitle:  Pytanie
-
 *MessageDlg.warningTitle:   Ostrzeżenie
-
 *MessageDlg.errorTitle:     Błąd
 
-
-
 ! --- resource for PasswdDlg dialog -------------------------------------------
 
+*PasswdDlg.title:  Wpisz login i hasło
 
 
-*PasswdDlg.title:  Wpisz login i hasło
+! --- symbolic names of label of SelectColor dialog ----------------------------
+
+*baseColorsName: Kolory podstawowe
+*userColorsName: Kolory niestandardowe
 

data/tcl/{bwidget-1.9.4 → bwidget-1.9.5}/listbox.tcl

@@ -1,7 +1,7 @@
 # ----------------------------------------------------------------------------
 #  listbox.tcl
 #  This file is part of Unifix BWidget Toolkit
-#  $Id: listbox.tcl,v 1.29.2.3 2010/05/12 08:12:34 oehhar Exp $
+#  $Id: listbox.tcl,v 1.29.2.6 2011/06/23 09:17:19 oehhar Exp $
 # ----------------------------------------------------------------------------
 #  Index of commands:
 #     - ListBox::create
@@ -667,7 +667,7 @@ proc ListBox::find {path findInfo {confine ""}} {
                      [string equal $item "img"]  ||
                      [string equal $item "win"] } {
                     # item is the label or image/window of the node
-                    set item [string range [lindex $ltags 1] 2 end]
+                    set item [ListBox::_get_node_name $path $id]
                     set found 1
                     break
                 }
@@ -970,16 +970,10 @@ proc ListBox::_update_scrollregion { path } {
         set ys [lindex $bbox 3]
 
         if { $w < $xs } {
-            set w [expr {int($xs)}]
-            if { [set r [expr {$w % $xinc}]] } {
-                set w [expr {$w+$xinc-$r}]
-            }
+            set w [expr {$xs + $w % $xinc}]
         }
         if { $h < $ys } {
-            set h [expr {int($ys)}]
-            if { [set r [expr {$h % $yinc}]] } {
-                set h [expr {$h+$yinc-$r}]
-            }
+            set h [expr {$ys + $h % $yinc}]
         }
     }
 
@@ -1116,7 +1110,7 @@ proc ListBox::_redraw_selection { path } {
     set selfill [Widget::getoption $path -selectfill]
     set multi   [Widget::getoption $path -multicolumn]
     foreach id [$path.c find withtag sel] {
-        set item [string range [lindex [$path.c gettags $id] 1] 2 end]
+        set item [ListBox::_get_node_name $path $id]
         if {-1 == [lsearch -exact $data(upd,delete) $item]} {
             $path.c itemconfigure "n:$item" \
                 -fill [_getoption $path $item -foreground]
@@ -1238,7 +1232,7 @@ proc ListBox::_init_drag_cmd { path X Y top } {
     if { [string equal $item "item"] ||
          [string equal $item "img"]  ||
          [string equal $item "win"] } {
-        set item [string range [lindex $ltags 1] 2 end]
+        set item [ListBox::_get_node_name $path]
         if {[llength [set cmd [Widget::getoption $path -draginitcmd]]]} {
             return [uplevel \#0 $cmd [list $path $item $top]]
         }
@@ -1637,9 +1631,31 @@ proc ListBox::_mouse_select { path cmd args } {
 }
 
 
+# ListBox::_get_node_name --
+#
+#	Given a listbox item, get the name of the node represented by that
+#	item.
+#
+# Arguments:
+#	path		listbox to query
+#	item		Optional item to examine; if omitted, 
+#			defaults to "current"
+#
+# Results:
+#	node	name of the listbox node.
+proc ListBox::_get_node_name {path {item current}} {
+    set tags [$path.c gettags $item]
+    if {[lindex $tags 0] == "img"} {
+        set node [string range [lindex $tags 2] 2 end]
+    } else {
+        set node [string range [lindex $tags 1] 2 end]
+    }
+    return $node
+}
+
+
 proc ListBox::_get_current { path } {
-    set t [$path.c gettags current]
-    return [string range [lindex $t 1] 2 end]
+    return [ListBox::_get_node_name $path]
 }