tlsgui

package ifneeded DsLogAdminStubs 1.1.2 [list source [file join $dir stubs.tcl]]

# 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

-------------
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.

-------------
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.

    } 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} {

    } 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} {