Tkabber contrib

Check-in [a96589993c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:flip: Fixed joining group with current Tkabber.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | tkabber-1.1.1
Files: files | file ages | folders
SHA1:a96589993cd36a668a721edd38d4de8e56331c87
User & Date: sgolovan 2016-02-04 05:28:35
Context
2016-02-04
05:28
flip: Fixed joining group with current Tkabber. Leaf check-in: a96589993c user: sgolovan tags: tkabber-1.1.1
2015-05-01
08:00
Create new branch named "tkabber-1.1.1" check-in: 81072bf614 user: sgolovan tags: tkabber-1.1.1
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to flip/flip.tcl.

175
176
177
178
179
180
181
182
183
184
185
	}
	[namespace current]::puke $new_fd
	return $nick
}

rename ::muc::join_group ::muc::join_group:saved

proc ::muc::join_group {xlib group nick {password ""}} {
    ::muc::join_group:saved $xlib $group \
	[::plugins::flip::flipping $xlib $nick $group] $password
}







|
|
|

175
176
177
178
179
180
181
182
183
184
185
	}
	[namespace current]::puke $new_fd
	return $nick
}

rename ::muc::join_group ::muc::join_group:saved

proc ::muc::join_group {xlib group nick args} {
    eval [list ::muc::join_group:saved $xlib $group \
	[::plugins::flip::flipping $xlib $nick $group]] $args
}