Tkabber contrib

Check-in [1874531298]
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 | descendants | both | trunk
Files: files | file ages | folders
SHA1:18745312987dbae85680a226e6b717b8cb2c625d
User & Date: sgolovan 2016-02-04 05:26:00
Context
2016-06-29
22:55
juick: Code refactoring mixed with handling Juick changes More or less accurate history of changes can be found in [1]. [1]: https://github.com/Totktonada/tkabber4juick/ check-in: 7e0bf9ef1f user: totktonada tags: trunk
2016-02-04
05:26
flip: Fixed joining group with current Tkabber. check-in: 1874531298 user: sgolovan tags: trunk
2015-05-17
17:27
1) A little bit of refactoring in plugin clienticons.tcl check-in: b2a8a70812 user: ancestor tags: trunk
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
}