tlsgui

Check-in [8461cbe851]
Login

Check-in [8461cbe851]

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

Overview
Comment:fix [f99aa7c039]

Using information from chapter "Libraries and Packages" from: http://beedub.com/book/

Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8461cbe85116f5f0af7057541fa7e32c5aeacd24
User & Date: tgg 2012-04-09 18:12:49.955
References
2012-04-09
18:09 Fixed ticket [f99aa7c039]: improve packaging plus 4 other changes artifact: 1a4586a3d2 user: tgg
Context
2012-04-09
18:22
change Makefile because of [f99aa7c039]

Indeed stubs are now in DsLogAdminStubs directory. check-in: a874776aec user: tgg tags: trunk

18:12
fix [f99aa7c039]

Using information from chapter "Libraries and Packages" from: http://beedub.com/book/ check-in: 8461cbe851 user: tgg tags: trunk

13:09
fix [1b28240517]

After analysis, the issue stem from TAO tao_tls_* implementations. Teach tlsgui to handle this bug. check-in: 95d194f97f user: tgg tags: trunk

Changes
Unified Diff Ignore Whitespace Patch
Name change from src/DsLogAdmin.tcl to DsLogAdminStubs/DsLogAdmin.tcl.
Name change from src/TimeBase.tcl to DsLogAdminStubs/TimeBase.tcl.
Added DsLogAdminStubs/pkgIndex.tcl.


>
1
package ifneeded DsLogAdminStubs 1.1.2 [list source [file join $dir stubs.tcl]]
Added DsLogAdminStubs/stubs.tcl.


































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
# Copyright © 2012 Thomas Girard <thomas.g.girard@free.fr>.
# All rights reserved.
#
# tlsgui is free software; see LICENSE.txt for redistribution and
# use conditions. tlsgui comes with ABSOLUTELY NO WARRANTY.
#
# This file contains the DsLogAdminStubs package loading mechanism.
#
set _stub_files {
    TimeBase.tcl DsLogAdmin.tcl
}

foreach _stub_file $_stub_files {
    source [file join [file dirname [info script]] $_stub_file]
}

package provide DsLogAdminStubs 1.1.2
Name change from CHANGES.rst to NEWS.rst.
10
11
12
13
14
15
16







17
18
19
20
21
22
23
24
25
26
27



28
29
30
31
32
33
34
35
36
37
-------------
Add the following things:

* icon
* refresh button
* status bar









Version 1.0.x
-------------

Fix:

* [92ebe5574f] log should be selected in log list when object reference is a log object
* [3ae8926c5d] selected lines in listbox should always be visible
* [6941738bea] -ORBInitRef arguments not working
* [1b28240517] log record iterator is not working
* [c1f0e194e2] make about box non resizeable



* Display information on remote log and factory
* CORBA leaks
* Improve packaging (package? starkit?) see http://beedub.com/book/
* Refactor (DRY)


Version 1.0.0 [f161f1280df10b49]
--------------------------------

A simple and easy to use Tcl/Tk UI for the CORBA Telecom Log Service.







>
>
>
>
>
>
>










|
>
>
>

<
<
<






10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38



39
40
41
42
43
44
-------------
Add the following things:

* icon
* refresh button
* status bar

Misc:

* [c1f0e194e2] make about box non resizeable
* UTF-8
* CORBA leaks
* Refactor (DRY)


Version 1.0.x
-------------

Fix:

* [92ebe5574f] log should be selected in log list when object reference is a log object
* [3ae8926c5d] selected lines in listbox should always be visible
* [6941738bea] -ORBInitRef arguments not working
* [1b28240517] log record iterator is not working

Features:

* [f99aa7c039] improve packaging
* Display information on remote log and factory





Version 1.0.0 [f161f1280df10b49]
--------------------------------

A simple and easy to use Tcl/Tk UI for the CORBA Telecom Log Service.
Name change from src/tlsgui to tlsgui.
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76

77
78
79
80





81
82
83
84
85
86
87
    } else {
        return $old
    }
}

proc corba_init {} {
    if {[catch {package require combat} oops]} {
        puts stderr "Error: failed to find required \"combat\" package".
        exit 1
    }

    # Initialize CORBA stack
    if {[catch {set ::argv [eval corba::init $::argv]} res]} {
        puts stderr "Error: corba::init failed: $res"
        exit 1
    }


    # Load our stubs
    set wd [file dirname [info script]]
    source [file join $wd TimeBase.tcl]
    source [file join $wd DsLogAdmin.tcl]





}

proc lookup {name type {silent true}} {
    corba::try {
        set object [corba::resolve_initial_references $name]

    } catch {IDL:omg.org/CORBA/ORB/InvalidName:1.0 ex} {







|









>
|
|
|
|
>
>
>
>
>







60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
    } else {
        return $old
    }
}

proc corba_init {} {
    if {[catch {package require combat} oops]} {
        puts stderr "Error: failed to find required \"combat\" package"
        exit 1
    }

    # Initialize CORBA stack
    if {[catch {set ::argv [eval corba::init $::argv]} res]} {
        puts stderr "Error: corba::init failed: $res"
        exit 1
    }

    if {[catch {package require DsLogAdminStubs} oops]} {
        # Try harder
        set wd [file normalize [file dirname [info script]]]
        lappend ::auto_path [file join $wd DsLogAdminStubs]

        if {[catch {package require DsLogAdminStubs} oops]} {
            puts stderr "Error: failed to find required \"DsLogAdminStubs\" package"
            exit 1
        }
    }
}

proc lookup {name type {silent true}} {
    corba::try {
        set object [corba::resolve_initial_references $name]

    } catch {IDL:omg.org/CORBA/ORB/InvalidName:1.0 ex} {