[Tkabber-dev] r151 - in trunk/plugins/pluginmanager: . msgs

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 18 17:32:07 MSD 2008


Author: kostix
Date: 2008-10-18 17:32:06 +0400 (Sat, 18 Oct 2008)
New Revision: 151

Modified:
   trunk/plugins/pluginmanager/AUTHORS
   trunk/plugins/pluginmanager/license.terms
   trunk/plugins/pluginmanager/msgs/en.msg
   trunk/plugins/pluginmanager/msgs/ru.msg
   trunk/plugins/pluginmanager/pluginmanager.tcl
   trunk/plugins/pluginmanager/readme
   trunk/plugins/pluginmanager/version
Log:
pluginmanager/*: svn:eol-style set to "native" on all files.



Property changes on: trunk/plugins/pluginmanager/AUTHORS
___________________________________________________________________
Added: svn:eol-style
   + native

Modified: trunk/plugins/pluginmanager/license.terms
===================================================================
--- trunk/plugins/pluginmanager/license.terms	2008-10-17 18:01:13 UTC (rev 150)
+++ trunk/plugins/pluginmanager/license.terms	2008-10-18 13:32:06 UTC (rev 151)
@@ -1,19 +1,19 @@
-Copyright (c) 2007 Rakhmanin Ruslan <rakhmaninr at mail.ru>
-
-Permission is hereby granted, free of charge, to any person obtaining a
-copy of this software and associated documentation files (the "Software"),
-to deal in the Software without restriction, including without limitation
-the rights to use, copy, modify, merge, publish, distribute, sublicense,
-and/or sell copies of the Software, and to permit persons to whom the
-Software is furnished to do so, subject to the following conditions:
-
-The above copyright notice and this permission notice shall be included
-in all copies or substantial portions of the Software.
-
-THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
-OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
-THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-DEALINGS IN THE SOFTWARE.
+Copyright (c) 2007 Rakhmanin Ruslan <rakhmaninr at mail.ru>
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the "Software"),
+to deal in the Software without restriction, including without limitation
+the rights to use, copy, modify, merge, publish, distribute, sublicense,
+and/or sell copies of the Software, and to permit persons to whom the
+Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
+THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+DEALINGS IN THE SOFTWARE.


Property changes on: trunk/plugins/pluginmanager/license.terms
___________________________________________________________________
Added: svn:eol-style
   + native


Property changes on: trunk/plugins/pluginmanager/msgs/en.msg
___________________________________________________________________
Added: svn:eol-style
   + native


Property changes on: trunk/plugins/pluginmanager/msgs/ru.msg
___________________________________________________________________
Added: svn:eol-style
   + native

Modified: trunk/plugins/pluginmanager/pluginmanager.tcl
===================================================================
--- trunk/plugins/pluginmanager/pluginmanager.tcl	2008-10-17 18:01:13 UTC (rev 150)
+++ trunk/plugins/pluginmanager/pluginmanager.tcl	2008-10-18 13:32:06 UTC (rev 151)
@@ -1,98 +1,98 @@
-package require msgcat
-
-namespace eval pluginmanager {
-
-    ::msgcat::mcload [file join [file dirname [info script]] msgs]
-
-    variable DirPluginsAll [file join [file dirname $::rootdir] plugins]
-    variable PluginsAll [lsort [glob -type d -tails \
-	-directory $DirPluginsAll -nocomplain *]]
-    foreach plugin $PluginsAll {
-	variable $plugin 0
-    }
-    variable DirPluginsInstalled [file join $::configdir plugins]
-    if {[file exists $DirPluginsInstalled] == 0} {
-        file mkdir $DirPluginsInstalled
-    }
-    variable PluginsInstalled
-    variable winname .plugin_manager
-
-    proc create_menu {} {
-	set menu [.mainframe getmenu services]
-	set ix [::msgcat::mc "Plugins"]
-	$menu insert $ix separator
-	$menu insert $ix command \
-		-label [::msgcat::mc "Add/remove plugins"] \
-		-command [namespace current]::open_window
-    }
-
-    hook::add finload_hook [namespace current]::create_menu
-
-    proc open_window {} {
-	variable PluginsAll
-	variable DirPluginsInstalled
-	variable PluginsInstalled [lsort [glob -type d -tails \
-		-directory $DirPluginsInstalled -nocomplain *]]
-	variable winname
-
-	if {[winfo exists $winname]} {
-	    return
-	}
-
-	add_win $winname -title [::msgcat::mc "Add/remove plugins"] \
-	    -tabtitle [::msgcat::mc "Add/remove plugins"] \
-	    -raisecmd [list focus $winname.apply]
-	set sw [ScrolledWindow $winname.sw]
-	set t [text $winname.pluginlist -wrap word -background [$winname cget -background]]
-	$sw setwidget $t
-	place $sw -in $winname -relwidth 1 -relheight 1 \
-			-x 0 -y 0 -width -1 -height -40
-	
-	foreach plugin $PluginsAll {
-	    if { [lsearch -exact $PluginsInstalled $plugin] >= 0 } {
-		variable $plugin 1
-	    } else {
-		variable $plugin 0
-	    }
-	    set cb_$plugin [checkbutton $t.cb$plugin -cursor left_ptr\
-			-text $plugin \
-			-variable [namespace current]::$plugin]
-	    $t window create end -window [set cb_$plugin]
-	    bindscroll [set cb_$plugin] $t
-	    $t insert end "\n"
-	    $t insert end [::msgcat::mc $plugin]
-	    $t insert end "\n\n"
-	}
-	set apply_button [button $winname.apply \
-			-text [::msgcat::mc "Apply changes"] \
-			-command [namespace current]::installdelete] 
-	
-	place $apply_button -in $winname -relx 1 -rely 1 -x -5 -y -2 -anchor se
-	$t configure -state disabled
-    }
-
-    proc installdelete {} {
-        variable DirPluginsAll
-	variable PluginsAll
-	variable DirPluginsInstalled
-	variable PluginsInstalled [lsort [glob -type d -tails \
-		-directory $DirPluginsInstalled -nocomplain *]]
-	variable winname
-	foreach plugin $PluginsAll {
-	    variable $plugin
-	    if { [set $plugin] } {
-		if { [lsearch -exact $PluginsInstalled $plugin] < 0 } {
-		    file copy -force [file join $DirPluginsAll $plugin] $DirPluginsInstalled
-		}
-	    } else {
-		if { [lsearch -exact $PluginsInstalled $plugin] >= 0 } {
-		    file delete -force [file join $DirPluginsInstalled $plugin]
-		}
-	    }
-	}
-	tk_messageBox -type ok -icon info -title [::msgcat::mc "Operation complite"] \
-		-message [::msgcat::mc "You need to restart Tkabber to apply changes"]
-    }
-}
-
-# vim:ts=8:sw=4:sts=4:noet
+package require msgcat
+
+namespace eval pluginmanager {
+
+    ::msgcat::mcload [file join [file dirname [info script]] msgs]
+
+    variable DirPluginsAll [file join [file dirname $::rootdir] plugins]
+    variable PluginsAll [lsort [glob -type d -tails \
+	-directory $DirPluginsAll -nocomplain *]]
+    foreach plugin $PluginsAll {
+	variable $plugin 0
+    }
+    variable DirPluginsInstalled [file join $::configdir plugins]
+    if {[file exists $DirPluginsInstalled] == 0} {
+        file mkdir $DirPluginsInstalled
+    }
+    variable PluginsInstalled
+    variable winname .plugin_manager
+
+    proc create_menu {} {
+	set menu [.mainframe getmenu services]
+	set ix [::msgcat::mc "Plugins"]
+	$menu insert $ix separator
+	$menu insert $ix command \
+		-label [::msgcat::mc "Add/remove plugins"] \
+		-command [namespace current]::open_window
+    }
+
+    hook::add finload_hook [namespace current]::create_menu
+
+    proc open_window {} {
+	variable PluginsAll
+	variable DirPluginsInstalled
+	variable PluginsInstalled [lsort [glob -type d -tails \
+		-directory $DirPluginsInstalled -nocomplain *]]
+	variable winname
+
+	if {[winfo exists $winname]} {
+	    return
+	}
+
+	add_win $winname -title [::msgcat::mc "Add/remove plugins"] \
+	    -tabtitle [::msgcat::mc "Add/remove plugins"] \
+	    -raisecmd [list focus $winname.apply]
+	set sw [ScrolledWindow $winname.sw]
+	set t [text $winname.pluginlist -wrap word -background [$winname cget -background]]
+	$sw setwidget $t
+	place $sw -in $winname -relwidth 1 -relheight 1 \
+			-x 0 -y 0 -width -1 -height -40
+	
+	foreach plugin $PluginsAll {
+	    if { [lsearch -exact $PluginsInstalled $plugin] >= 0 } {
+		variable $plugin 1
+	    } else {
+		variable $plugin 0
+	    }
+	    set cb_$plugin [checkbutton $t.cb$plugin -cursor left_ptr\
+			-text $plugin \
+			-variable [namespace current]::$plugin]
+	    $t window create end -window [set cb_$plugin]
+	    bindscroll [set cb_$plugin] $t
+	    $t insert end "\n"
+	    $t insert end [::msgcat::mc $plugin]
+	    $t insert end "\n\n"
+	}
+	set apply_button [button $winname.apply \
+			-text [::msgcat::mc "Apply changes"] \
+			-command [namespace current]::installdelete] 
+	
+	place $apply_button -in $winname -relx 1 -rely 1 -x -5 -y -2 -anchor se
+	$t configure -state disabled
+    }
+
+    proc installdelete {} {
+        variable DirPluginsAll
+	variable PluginsAll
+	variable DirPluginsInstalled
+	variable PluginsInstalled [lsort [glob -type d -tails \
+		-directory $DirPluginsInstalled -nocomplain *]]
+	variable winname
+	foreach plugin $PluginsAll {
+	    variable $plugin
+	    if { [set $plugin] } {
+		if { [lsearch -exact $PluginsInstalled $plugin] < 0 } {
+		    file copy -force [file join $DirPluginsAll $plugin] $DirPluginsInstalled
+		}
+	    } else {
+		if { [lsearch -exact $PluginsInstalled $plugin] >= 0 } {
+		    file delete -force [file join $DirPluginsInstalled $plugin]
+		}
+	    }
+	}
+	tk_messageBox -type ok -icon info -title [::msgcat::mc "Operation complite"] \
+		-message [::msgcat::mc "You need to restart Tkabber to apply changes"]
+    }
+}
+
+# vim:ts=8:sw=4:sts=4:noet


Property changes on: trunk/plugins/pluginmanager/pluginmanager.tcl
___________________________________________________________________
Added: svn:eol-style
   + native


Property changes on: trunk/plugins/pluginmanager/readme
___________________________________________________________________
Added: svn:eol-style
   + native

Modified: trunk/plugins/pluginmanager/version
===================================================================
--- trunk/plugins/pluginmanager/version	2008-10-17 18:01:13 UTC (rev 150)
+++ trunk/plugins/pluginmanager/version	2008-10-18 13:32:06 UTC (rev 151)
@@ -1,15 +1,15 @@
-2008-june-16
-ver 0.3
-Updated plugins description.
-Fixed error processing plugin names start with an upper-case letter.
-
-2007-dec-08
-ver 0.21
-
-
-2007-nov-30
-ver 0.2
-
-
-2007-nov-26
+2008-june-16
+ver 0.3
+Updated plugins description.
+Fixed error processing plugin names start with an upper-case letter.
+
+2007-dec-08
+ver 0.21
+
+
+2007-nov-30
+ver 0.2
+
+
+2007-nov-26
 ver 0.1 - demonstration version
\ No newline at end of file


Property changes on: trunk/plugins/pluginmanager/version
___________________________________________________________________
Added: svn:eol-style
   + native



More information about the Tkabber-dev mailing list