← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/amsn/gutsy

« back to all changes in this revision

Viewing changes to plugins/tclAE2.0/Contents/Resources/aelegacy.tcl

  • Committer: Bazaar Package Importer
  • Author(s): Theodore Karkoulis
  • Date: 2006-01-04 15:26:02 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060104152602-ipe1yg00rl3nlklv
Tags: 0.95-1
http://bugs.debian.org/345052
http://bugs.debian.org/278575
New Upstream Release (closes: #345052, #278575).

Show diffs side-by-side

added added

removed removed

Lines of Context:
plugins/tclAE2.0/Contents/Resources/aelegacy.tcl
1
 
namespace eval tclAE {}
2
 
 
3
 
proc tclAE::print {theAEDesc} {
4
 
        return $theAEDesc
5
 
}
6
 
 
7
 
proc tclAE::disposeDesc {theAEDesc} {
8
 
        # not sure what to do here, so do nothing
9
 
}
10
 
 
11
 
proc tclAE::encode {string} {
12
 
    binary scan [encoding convertto macRoman $string] H* hex
13
 
    return "\u00ab${hex}\u00bb"
14
 
}
15
 
 
16
 
proc tclAE::legacyQueueHandler {theAppleEvent theReply} {
17
 
    handleReply $theAppleEvent
18
 
}
19
 
namespace eval tclAE {}
20
 
 
21
 
proc tclAE::print {theAEDesc} {
22
 
        return $theAEDesc
23
 
}
24
 
 
25
 
proc tclAE::disposeDesc {theAEDesc} {
26
 
        # not sure what to do here, so do nothing
27
 
}
28
 
 
29
 
proc tclAE::encode {string} {
30
 
    binary scan [encoding convertto macRoman $string] H* hex
31
 
    return "\u00ab${hex}\u00bb"
32
 
}
33
 
 
34
 
proc tclAE::legacyQueueHandler {theAppleEvent theReply} {
35
 
    handleReply $theAppleEvent
36
 
}
37
 
namespace eval tclAE {}
38
 
 
39
 
proc tclAE::print {theAEDesc} {
40
 
        return $theAEDesc
41
 
}
42
 
 
43
 
proc tclAE::disposeDesc {theAEDesc} {
44
 
        # not sure what to do here, so do nothing
45
 
}
46
 
 
47
 
proc tclAE::encode {string} {
48
 
    binary scan [encoding convertto macRoman $string] H* hex
49
 
    return "\u00ab${hex}\u00bb"
50
 
}
51
 
 
52
 
proc tclAE::legacyQueueHandler {theAppleEvent theReply} {
53
 
    handleReply $theAppleEvent
54
 
}