Diff
Not logged in

Differences From Artifact [2ae591dc44]:

To Artifact [5e80b29d4a]:


1463
1464
1465
1466
1467
1468
1469
1470
1471
1472



1473
1474
1475
1476

1477
1478
1479


1480
1481

1482
1483
1484
1485
1486
1487
1488
1489



1490
1491
1492
1493

1494
1495
1496


1497
1498

1499
1500
1501
1502
1503
1504
1505
1506



1507
1508
1509
1510

1511
1512
1513


1514
1515

1516
1517
1518
1519
1520
1521
1522
1523



1524
1525
1526
1527

1528
1529
1530


1531
1532

1533
1534
1535
1536
1537
1538
1539
1540



1541
1542
1543
1544

1545
1546
1547


1548
1549

1550
1551
1552
1553
1554
1555
1556
1557



1558
1559
1560
1561
1562


1563
1564

1565
1566
1567
1568
1569
1570
1571
1572
1573




1574
1575
1576
1577
1578
1579
1580




1581
1582
1583
1584
1585
1586
1587
1463
1464
1465
1466
1467
1468
1469



1470
1471
1472
1473
1474
1475

1476
1477


1478
1479
1480

1481
1482
1483
1484
1485
1486



1487
1488
1489
1490
1491
1492

1493
1494


1495
1496
1497

1498
1499
1500
1501
1502
1503



1504
1505
1506
1507
1508
1509

1510
1511


1512
1513
1514

1515
1516
1517
1518
1519
1520



1521
1522
1523
1524
1525
1526

1527
1528


1529
1530
1531

1532
1533
1534
1535
1536
1537



1538
1539
1540
1541
1542
1543

1544
1545


1546
1547
1548

1549
1550
1551
1552
1553
1554



1555
1556
1557
1558
1559
1560


1561
1562
1563

1564
1565
1566
1567
1568
1569




1570
1571
1572
1573
1574
1575
1576




1577
1578
1579
1580
1581
1582
1583
1584
1585
1586
1587







-
-
-
+
+
+



-
+

-
-
+
+

-
+





-
-
-
+
+
+



-
+

-
-
+
+

-
+





-
-
-
+
+
+



-
+

-
-
+
+

-
+





-
-
-
+
+
+



-
+

-
-
+
+

-
+





-
-
-
+
+
+



-
+

-
-
+
+

-
+





-
-
-
+
+
+



-
-
+
+

-
+





-
-
-
-
+
+
+
+



-
-
-
-
+
+
+
+








    $widgets(4) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(apiKey)]]]

    ###########################################################################

    set widgets(3) [object create -alias Label]
    $widgets(3) Name lblPackage
    $widgets(3) Text "Package Name"
    set widgets(5) [object create -alias Label]
    $widgets(5) Name lblPackage
    $widgets(5) Text "Package Name"

    ###########################################################################

    set widgets(4) [object create -alias TextBox]
    set widgets(6) [object create -alias TextBox]

    $widgets(4) Name txtPackage
    $widgets(4) Text $argumentData(package)
    $widgets(6) Name txtPackage
    $widgets(6) Text $argumentData(package)

    $widgets(4) add_TextChanged [namespace code \
    $widgets(6) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(package)]]]

    ###########################################################################

    set widgets(5) [object create -alias Label]
    $widgets(5) Name lblPatchLevel
    $widgets(5) Text "Package Patch Level"
    set widgets(7) [object create -alias Label]
    $widgets(7) Name lblPatchLevel
    $widgets(7) Text "Package Patch Level"

    ###########################################################################

    set widgets(6) [object create -alias TextBox]
    set widgets(8) [object create -alias TextBox]

    $widgets(6) Name txtPatchLevel
    $widgets(6) Text $argumentData(patchLevel)
    $widgets(8) Name txtPatchLevel
    $widgets(8) Text $argumentData(patchLevel)

    $widgets(6) add_TextChanged [namespace code \
    $widgets(8) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(patchLevel)]]]

    ###########################################################################

    set widgets(7) [object create -alias Label]
    $widgets(7) Name lblLanguage
    $widgets(7) Text Language
    set widgets(9) [object create -alias Label]
    $widgets(9) Name lblLanguage
    $widgets(9) Text Language

    ###########################################################################

    set widgets(8) [object create -alias TextBox]
    set widgets(10) [object create -alias TextBox]

    $widgets(8) Name txtLanguage
    $widgets(8) Text $argumentData(language)
    $widgets(10) Name txtLanguage
    $widgets(10) Text $argumentData(language)

    $widgets(8) add_TextChanged [namespace code \
    $widgets(10) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(language)]]]

    ###########################################################################

    set widgets(9) [object create -alias Label]
    $widgets(9) Name lblVersion
    $widgets(9) Text Version
    set widgets(11) [object create -alias Label]
    $widgets(11) Name lblVersion
    $widgets(11) Text Version

    ###########################################################################

    set widgets(10) [object create -alias TextBox]
    set widgets(12) [object create -alias TextBox]

    $widgets(10) Name txtVersion
    $widgets(10) Text $argumentData(version)
    $widgets(12) Name txtVersion
    $widgets(12) Text $argumentData(version)

    $widgets(10) add_TextChanged [namespace code \
    $widgets(12) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(version)]]]

    ###########################################################################

    set widgets(11) [object create -alias Label]
    $widgets(11) Name lblPlatform
    $widgets(11) Text Platform
    set widgets(13) [object create -alias Label]
    $widgets(13) Name lblPlatform
    $widgets(13) Text Platform

    ###########################################################################

    set widgets(12) [object create -alias TextBox]
    set widgets(14) [object create -alias TextBox]

    $widgets(12) Name txtPlatform
    $widgets(12) Text $argumentData(platform)
    $widgets(14) Name txtPlatform
    $widgets(14) Text $argumentData(platform)

    $widgets(12) add_TextChanged [namespace code \
    $widgets(14) add_TextChanged [namespace code \
        [list textBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(platform)]]]

    ###########################################################################

    set widgets(13) [object create -alias Label]
    $widgets(13) Name lblFileNames
    $widgets(13) Text Files
    set widgets(15) [object create -alias Label]
    $widgets(15) Name lblFileNames
    $widgets(15) Text Files

    ###########################################################################

    set widgets(14) [object create -alias ListBox]
    $widgets(14) Name lstFileNames
    set widgets(16) [object create -alias ListBox]
    $widgets(16) Name lstFileNames

    $widgets(14) add_DoubleClick [namespace code \
    $widgets(16) add_DoubleClick [namespace code \
        [list listBoxEventHandler [appendArgs [namespace current] \
        ::argumentData(fileNames)]]]

    ###########################################################################

    set widgets(15) [object create -alias Button]
    $widgets(15) Name btnSubmit
    $widgets(15) Text Submit
    $widgets(15) add_Click [namespace code [list submitEventHandler false]]
    set widgets(17) [object create -alias Button]
    $widgets(17) Name btnSubmit
    $widgets(17) Text Submit
    $widgets(17) add_Click [namespace code [list submitEventHandler false]]

    ###########################################################################

    set widgets(16) [object create -alias Button]
    $widgets(16) Name btnClear
    $widgets(16) Text Clear
    $widgets(16) add_Click [namespace code [list clearEventHandler]]
    set widgets(18) [object create -alias Button]
    $widgets(18) Name btnClear
    $widgets(18) Text Clear
    $widgets(18) add_Click [namespace code [list clearEventHandler]]

    ###########################################################################

    set horizontalMargin \
        [expr {([$form Width] - [$form ClientSize.Width]) / 2}]

    set verticalMargin \