forked from patrickTingen/DataDigger
-
Notifications
You must be signed in to change notification settings - Fork 0
/
wSettingsTab1.w
916 lines (731 loc) · 30.6 KB
/
wSettingsTab1.w
1
2
3
4
5
6
7
8
9
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
&ANALYZE-SUSPEND _VERSION-NUMBER AB_v10r12 GUI
&ANALYZE-RESUME
&Scoped-define WINDOW-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS C-Win
/*------------------------------------------------------------------------
File:
Description:
Input Parameters:
<none>
Output Parameters:
<none>
Author:
Created:
------------------------------------------------------------------------*/
/* This .W file was created with the Progress AppBuilder. */
/*----------------------------------------------------------------------*/
/* Create an unnamed pool to store all the widgets created
by this procedure. This is a good default which assures
that this procedure's triggers and internal procedures
will execute in this procedure's storage, and that proper
cleanup will occur on deletion of the procedure. */
CREATE WIDGET-POOL.
/* *************************** Definitions ************************** */
/* Parameters Definitions --- */
DEFINE INPUT PARAMETER phParent AS HANDLE NO-UNDO.
DEFINE INPUT PARAMETER phRectangle AS HANDLE NO-UNDO.
/* Local Variable Definitions --- */
{ DataDigger.i }
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
/* ******************** Preprocessor Definitions ******************** */
&Scoped-define PROCEDURE-TYPE Window
&Scoped-define DB-AWARE no
/* Name of designated FRAME-NAME and/or first browse and/or first query */
&Scoped-define FRAME-NAME DEFAULT-FRAME
/* Custom List Definitions */
/* List-1,List-2,List-3,List-4,List-5,List-6 */
&Scoped-define List-1 FRAME-S FRAME-I
/* _UIB-PREPROCESSOR-BLOCK-END */
&ANALYZE-RESUME
/* *********************** Control Definitions ********************** */
/* Define the widget handle for the window */
DEFINE VAR C-Win AS WIDGET-HANDLE NO-UNDO.
/* Definitions of the field level widgets */
DEFINE BUTTON btnPingBack
LABEL "More info"
SIZE-PIXELS 90 BY 24 TOOLTIP "click for more info on pingback".
DEFINE BUTTON btnPingBackStats
LABEL "Statistics"
SIZE-PIXELS 90 BY 24 TOOLTIP "Show statistics".
DEFINE VARIABLE tgPingback AS LOGICAL INITIAL no
LABEL "Allow &pingback"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 140 BY 17 NO-UNDO.
DEFINE BUTTON btnClearCache
LABEL "Clear Cache"
SIZE-PIXELS 90 BY 24 TOOLTIP "clear all objects from the cache".
DEFINE VARIABLE fiPreCacheInterval AS INTEGER FORMAT ">>>,>>9":U INITIAL 0
LABEL "Interval"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE RECTANGLE RECT-21
EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL
SIZE-PIXELS 330 BY 110.
DEFINE VARIABLE tgCacheFieldDefs AS LOGICAL INITIAL no
LABEL "Field Definitions"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 175 BY 17 TOOLTIP "cache table definitions" NO-UNDO.
DEFINE VARIABLE tgCacheTableDefs AS LOGICAL INITIAL no
LABEL "Table Definitions"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 175 BY 17 TOOLTIP "cache table definitions" NO-UNDO.
DEFINE VARIABLE tgCacheUserSettings AS LOGICAL INITIAL no
LABEL "Cache User Settings"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 175 BY 17 TOOLTIP "cache user settings" NO-UNDO.
DEFINE VARIABLE tgPreCache AS LOGICAL INITIAL no
LABEL "Background caching"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 175 BY 17 TOOLTIP "use background caching for tables and fields" NO-UNDO.
DEFINE VARIABLE fiMaxFilterHistory AS INTEGER FORMAT ">>9":U INITIAL 0
LABEL "Maximum nr data filter history to save"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE VARIABLE tgAutoExpandQueryEditor AS LOGICAL INITIAL no
LABEL "Auto &Expand Query Editor After Right Click On Index"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 325 BY 17 NO-UNDO.
DEFINE VARIABLE tgShowHiddenTables AS LOGICAL INITIAL no
LABEL "Show &Hidden Schema Tables In Table Browse"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 325 BY 17 NO-UNDO.
DEFINE VARIABLE fiMaxColumns AS INTEGER FORMAT ">,>>>,>>9":U INITIAL 0
LABEL "Maximum nr of &columns in Data Browse"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE VARIABLE fiMaxQueryHistory AS INTEGER FORMAT ">>9":U INITIAL 0
LABEL "Maximum nr of &queries to save"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE VARIABLE fiQueryTimeOut AS INTEGER FORMAT ">,>>>,>>9":U INITIAL 0
LABEL "Query time out"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE VARIABLE cbDoubleClick AS CHARACTER FORMAT "X(256)":U
LABEL "&Double click on data record will"
VIEW-AS COMBO-BOX INNER-LINES 5
LIST-ITEMS "DUMP","EDIT","VIEW"
DROP-DOWN-LIST
SIZE-PIXELS 70 BY 21 TOOLTIP "what to do when you double click on a record in the data browse" NO-UNDO.
DEFINE VARIABLE cbViewType AS CHARACTER FORMAT "X(256)":U
LABEL "Default &View type"
VIEW-AS COMBO-BOX INNER-LINES 5
LIST-ITEMS "TXT","HTML","XLS","4GL"
DROP-DOWN-LIST
SIZE-PIXELS 70 BY 21 TOOLTIP "the format for viewing data" NO-UNDO.
DEFINE VARIABLE tgKeepAlive AS LOGICAL INITIAL no
LABEL "&Keep DB Connections Alive"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 270 BY 17 TOOLTIP "periodically poll all databases to ensure the connection stays alive" NO-UNDO.
DEFINE VARIABLE tgStartOnPrimaryMonitor AS LOGICAL INITIAL no
LABEL "&Always start on primary monitor"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 210 BY 17 TOOLTIP "if you have more than 1 monitor forces DD to start on primary" NO-UNDO.
DEFINE VARIABLE tgUseDeleteTriggers AS LOGICAL INITIAL no
LABEL "Use &Delete triggers"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 170 BY 17 TOOLTIP "enable or disable DELETE triggers when deleting records" NO-UNDO.
DEFINE VARIABLE tgUseWriteTriggers AS LOGICAL INITIAL no
LABEL "Use &Write triggers"
VIEW-AS TOGGLE-BOX
SIZE-PIXELS 176 BY 17 TOOLTIP "enable or disable WRITE triggers when editing/creating records" NO-UNDO.
DEFINE VARIABLE fiMaxExtent AS INTEGER FORMAT ">,>>>,>>9":U INITIAL 0
LABEL "Maximum nr of &extent fields to show"
VIEW-AS FILL-IN
SIZE-PIXELS 30 BY 21 NO-UNDO.
DEFINE BUTTON btnCheckNow
LABEL "Check Now"
SIZE-PIXELS 90 BY 24 TOOLTIP "check on the latest version of DataDigger".
DEFINE VARIABLE cbUpdateChannel AS INTEGER FORMAT "->,>>>,>>9":U INITIAL 0
LABEL "Check"
VIEW-AS COMBO-BOX INNER-LINES 5
LIST-ITEM-PAIRS "Manually (stable)",0,
"Stable versions",1,
"Beta versions",2
DROP-DOWN-LIST
SIZE-PIXELS 135 BY 21 NO-UNDO.
DEFINE VARIABLE fiCurrentBuild AS CHARACTER FORMAT "X(256)":U
LABEL "Your Build"
VIEW-AS FILL-IN
SIZE-PIXELS 80 BY 21 NO-UNDO.
DEFINE VARIABLE fiCurrentVersion AS CHARACTER FORMAT "X(256)":U
LABEL "Your Version"
VIEW-AS FILL-IN
SIZE-PIXELS 25 BY 21 NO-UNDO.
DEFINE RECTANGLE RECT-19
EDGE-PIXELS 2 GRAPHIC-EDGE NO-FILL
SIZE-PIXELS 330 BY 78.
/* ************************ Frame Definitions *********************** */
DEFINE FRAME DEFAULT-FRAME
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 0 Y 0
SIZE-PIXELS 767 BY 1057 WIDGET-ID 100.
DEFINE FRAME FRAME-A
btnPingBack AT Y 5 X 153 WIDGET-ID 206
btnPingBackStats AT Y 5 X 245 WIDGET-ID 208
tgPingback AT Y 10 X 10 WIDGET-ID 202
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 120
SIZE-PIXELS 340 BY 60
TITLE "1" WIDGET-ID 3500.
DEFINE FRAME FRAME-Y
fiMaxExtent AT Y 4 X 235 COLON-ALIGNED WIDGET-ID 62
"(0=show all)" VIEW-AS TEXT
SIZE-PIXELS 85 BY 13 AT Y 8 X 280 WIDGET-ID 100
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 839
SIZE-PIXELS 390 BY 60
TITLE "1" WIDGET-ID 3400.
DEFINE FRAME FRAME-AB
tgCacheTableDefs AT Y 25 X 25 WIDGET-ID 188
btnClearCache AT Y 25 X 235 WIDGET-ID 200
tgCacheFieldDefs AT Y 45 X 25 WIDGET-ID 196
fiPreCacheInterval AT Y 63 X 249 COLON-ALIGNED WIDGET-ID 66
tgPreCache AT Y 65 X 25 WIDGET-ID 198
tgCacheUserSettings AT Y 95 X 25 WIDGET-ID 192
"Caching" VIEW-AS TEXT
SIZE-PIXELS 55 BY 17 AT Y 0 X 15 WIDGET-ID 184
"sec" VIEW-AS TEXT
SIZE-PIXELS 35 BY 13 AT Y 67 X 291 WIDGET-ID 100
RECT-21 AT Y 5 X 5 WIDGET-ID 102
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 452
SIZE-PIXELS 390 BY 150
TITLE "1" WIDGET-ID 3300.
DEFINE FRAME FRAME-W
tgUseDeleteTriggers AT Y 4 X 10 WIDGET-ID 94
tgUseWriteTriggers AT Y 4 X 189 WIDGET-ID 96
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 397
SIZE-PIXELS 390 BY 50
TITLE "1" WIDGET-ID 3200.
DEFINE FRAME FRAME-U
tgKeepAlive AT Y 4 X 10 WIDGET-ID 94
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 289
SIZE-PIXELS 390 BY 47
TITLE "1" WIDGET-ID 3000.
DEFINE FRAME frUpdate
fiCurrentBuild AT Y 23 X 235 COLON-ALIGNED WIDGET-ID 186
fiCurrentVersion AT Y 25 X 85 COLON-ALIGNED WIDGET-ID 188
btnCheckNow AT Y 50 X 235 WIDGET-ID 180
cbUpdateChannel AT Y 52 X 85 COLON-ALIGNED WIDGET-ID 200
"Check for updates" VIEW-AS TEXT
SIZE-PIXELS 110 BY 17 AT Y 0 X 15 WIDGET-ID 184
RECT-19 AT Y 7 X 5 WIDGET-ID 176
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 5
SIZE-PIXELS 390 BY 110
TITLE "1" WIDGET-ID 2900.
DEFINE FRAME FRAME-D
tgAutoExpandQueryEditor AT Y 4 X 10 WIDGET-ID 64
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 183
SIZE-PIXELS 340 BY 50
TITLE "1" WIDGET-ID 600.
DEFINE FRAME FRAME-E
tgShowHiddenTables AT Y 4 X 10 WIDGET-ID 68
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 235
SIZE-PIXELS 340 BY 50
TITLE "1" WIDGET-ID 700.
DEFINE FRAME FRAME-G
fiMaxQueryHistory AT Y 4 X 235 COLON-ALIGNED WIDGET-ID 66
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 606
SIZE-PIXELS 340 BY 55
TITLE "1" WIDGET-ID 900.
DEFINE FRAME FRAME-H
fiQueryTimeOut AT Y 5 X 235 COLON-ALIGNED WIDGET-ID 178
"msec" VIEW-AS TEXT
SIZE-PIXELS 56 BY 13 AT Y 8 X 279 WIDGET-ID 100
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 665
SIZE-PIXELS 340 BY 55
TITLE "1" WIDGET-ID 1000.
DEFINE FRAME FRAME-C
fiMaxFilterHistory AT Y 4 X 235 COLON-ALIGNED WIDGET-ID 66
"(0=disable)" VIEW-AS TEXT
SIZE-PIXELS 85 BY 13 AT Y 8 X 280 WIDGET-ID 100
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 723
SIZE-PIXELS 390 BY 55
TITLE "1" WIDGET-ID 500.
DEFINE FRAME FRAME-F
fiMaxColumns AT Y 4 X 235 COLON-ALIGNED WIDGET-ID 62
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 782
SIZE-PIXELS 390 BY 55
TITLE "1" WIDGET-ID 800.
DEFINE FRAME FRAME-I
cbDoubleClick AT Y 4 X 235 COLON-ALIGNED WIDGET-ID 92
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 956
SIZE-PIXELS 390 BY 53
TITLE "1" WIDGET-ID 1100.
DEFINE FRAME FRAME-S
cbViewType AT Y 3 X 235 COLON-ALIGNED WIDGET-ID 92
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 902
SIZE-PIXELS 390 BY 50
TITLE "1" WIDGET-ID 1900.
DEFINE FRAME FRAME-V
tgStartOnPrimaryMonitor AT Y 4 X 10 WIDGET-ID 94
WITH 1 DOWN KEEP-TAB-ORDER OVERLAY
SIDE-LABELS NO-UNDERLINE THREE-D
AT X 5 Y 340
SIZE-PIXELS 390 BY 55
TITLE "1" WIDGET-ID 3100.
/* *********************** Procedure Settings ************************ */
&ANALYZE-SUSPEND _PROCEDURE-SETTINGS
/* Settings for THIS-PROCEDURE
Type: Window
Allow: Basic,Browse,DB-Fields,Window,Query
Other Settings: COMPILE
*/
&ANALYZE-RESUME _END-PROCEDURE-SETTINGS
/* ************************* Create Window ************************** */
&ANALYZE-SUSPEND _CREATE-WINDOW
IF SESSION:DISPLAY-TYPE = "GUI":U THEN
CREATE WINDOW C-Win ASSIGN
HIDDEN = YES
TITLE = "<insert window title>"
HEIGHT-P = 1057
WIDTH-P = 843
MAX-HEIGHT-P = 1057
MAX-WIDTH-P = 1600
VIRTUAL-HEIGHT-P = 1057
VIRTUAL-WIDTH-P = 1600
RESIZE = yes
SCROLL-BARS = no
STATUS-AREA = no
BGCOLOR = ?
FGCOLOR = ?
KEEP-FRAME-Z-ORDER = yes
THREE-D = yes
MESSAGE-AREA = no
SENSITIVE = yes.
ELSE {&WINDOW-NAME} = CURRENT-WINDOW.
/* END WINDOW DEFINITION */
&ANALYZE-RESUME
/* *********** Runtime Attributes and AppBuilder Settings *********** */
&ANALYZE-SUSPEND _RUN-TIME-ATTRIBUTES
/* SETTINGS FOR WINDOW C-Win
NOT-VISIBLE,,RUN-PERSISTENT */
/* REPARENT FRAME */
ASSIGN FRAME FRAME-A:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-AB:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-C:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-D:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-E:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-F:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-G:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-H:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-I:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-S:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-U:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-V:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-W:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME FRAME-Y:FRAME = FRAME DEFAULT-FRAME:HANDLE
FRAME frUpdate:FRAME = FRAME DEFAULT-FRAME:HANDLE.
/* SETTINGS FOR FRAME DEFAULT-FRAME
FRAME-NAME */
DEFINE VARIABLE XXTABVALXX AS LOGICAL NO-UNDO.
ASSIGN XXTABVALXX = FRAME FRAME-S:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-I:HANDLE)
XXTABVALXX = FRAME FRAME-Y:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-S:HANDLE)
XXTABVALXX = FRAME FRAME-F:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-Y:HANDLE)
XXTABVALXX = FRAME FRAME-C:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-F:HANDLE)
XXTABVALXX = FRAME FRAME-H:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-C:HANDLE)
XXTABVALXX = FRAME FRAME-G:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-H:HANDLE)
XXTABVALXX = FRAME FRAME-AB:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-G:HANDLE)
XXTABVALXX = FRAME FRAME-W:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-AB:HANDLE)
XXTABVALXX = FRAME FRAME-V:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-W:HANDLE)
XXTABVALXX = FRAME FRAME-U:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-V:HANDLE)
XXTABVALXX = FRAME FRAME-E:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-U:HANDLE)
XXTABVALXX = FRAME FRAME-D:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-E:HANDLE)
XXTABVALXX = FRAME FRAME-A:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-D:HANDLE)
XXTABVALXX = FRAME frUpdate:MOVE-BEFORE-TAB-ITEM (FRAME FRAME-A:HANDLE)
/* END-ASSIGN-TABS */.
ASSIGN
FRAME DEFAULT-FRAME:HIDDEN = TRUE.
/* SETTINGS FOR FRAME FRAME-A
NOT-VISIBLE */
ASSIGN
FRAME FRAME-A:HIDDEN = TRUE.
ASSIGN
tgPingback:PRIVATE-DATA IN FRAME FRAME-A =
"DataDigger:Update,PingBack".
/* SETTINGS FOR FRAME FRAME-AB
NOT-VISIBLE */
ASSIGN
FRAME FRAME-AB:HIDDEN = TRUE.
ASSIGN
fiPreCacheInterval:PRIVATE-DATA IN FRAME FRAME-AB =
"DataDigger:Cache,PreCacheInterval".
ASSIGN
tgCacheFieldDefs:PRIVATE-DATA IN FRAME FRAME-AB =
"DataDigger:Cache,FieldDefs".
ASSIGN
tgCacheTableDefs:PRIVATE-DATA IN FRAME FRAME-AB =
"DataDigger:Cache,TableDefs".
ASSIGN
tgCacheUserSettings:PRIVATE-DATA IN FRAME FRAME-AB =
"DataDigger:Cache,Settings".
ASSIGN
tgPreCache:PRIVATE-DATA IN FRAME FRAME-AB =
"DataDigger:Cache,preCache".
/* SETTINGS FOR FRAME FRAME-C
NOT-VISIBLE */
ASSIGN
FRAME FRAME-C:HIDDEN = TRUE.
ASSIGN
fiMaxFilterHistory:PRIVATE-DATA IN FRAME FRAME-C =
"DataDigger,MaxFilterHistory".
/* SETTINGS FOR FRAME FRAME-D
NOT-VISIBLE */
ASSIGN
FRAME FRAME-D:HIDDEN = TRUE.
ASSIGN
tgAutoExpandQueryEditor:PRIVATE-DATA IN FRAME FRAME-D =
"DataDigger,AutoExpandQueryEditor".
/* SETTINGS FOR FRAME FRAME-E
NOT-VISIBLE */
ASSIGN
FRAME FRAME-E:HIDDEN = TRUE.
ASSIGN
tgShowHiddenTables:PRIVATE-DATA IN FRAME FRAME-E =
"DataDigger,ShowHiddenTables".
/* SETTINGS FOR FRAME FRAME-F
NOT-VISIBLE */
ASSIGN
FRAME FRAME-F:HIDDEN = TRUE.
ASSIGN
fiMaxColumns:PRIVATE-DATA IN FRAME FRAME-F =
"DataDigger,MaxColumns".
/* SETTINGS FOR FRAME FRAME-G
NOT-VISIBLE */
ASSIGN
FRAME FRAME-G:HIDDEN = TRUE.
ASSIGN
fiMaxQueryHistory:PRIVATE-DATA IN FRAME FRAME-G =
"DataDigger,MaxQueryHistory".
/* SETTINGS FOR FRAME FRAME-H
NOT-VISIBLE */
ASSIGN
FRAME FRAME-H:HIDDEN = TRUE.
ASSIGN
fiQueryTimeOut:PRIVATE-DATA IN FRAME FRAME-H =
"DataDigger,MaxQueryTime".
/* SETTINGS FOR FRAME FRAME-I
NOT-VISIBLE 1 */
ASSIGN
FRAME FRAME-I:HIDDEN = TRUE.
ASSIGN
cbDoubleClick:PRIVATE-DATA IN FRAME FRAME-I =
"DataDigger,DataDoubleClick".
/* SETTINGS FOR FRAME FRAME-S
NOT-VISIBLE 1 */
ASSIGN
FRAME FRAME-S:HIDDEN = TRUE.
ASSIGN
cbViewType:PRIVATE-DATA IN FRAME FRAME-S =
"DataDigger,ViewType".
/* SETTINGS FOR FRAME FRAME-U
NOT-VISIBLE */
ASSIGN
FRAME FRAME-U:HIDDEN = TRUE.
ASSIGN
tgKeepAlive:PRIVATE-DATA IN FRAME FRAME-U =
"DataDigger,KeepAlive".
/* SETTINGS FOR FRAME FRAME-V
NOT-VISIBLE */
ASSIGN
FRAME FRAME-V:HIDDEN = TRUE.
ASSIGN
tgStartOnPrimaryMonitor:PRIVATE-DATA IN FRAME FRAME-V =
"DataDigger,StartOnPrimaryMonitor".
/* SETTINGS FOR FRAME FRAME-W
NOT-VISIBLE */
ASSIGN
FRAME FRAME-W:HIDDEN = TRUE.
ASSIGN
tgUseDeleteTriggers:PRIVATE-DATA IN FRAME FRAME-W =
"DataDigger,EnableDeleteTriggers".
ASSIGN
tgUseWriteTriggers:PRIVATE-DATA IN FRAME FRAME-W =
"DataDigger,EnableWriteTriggers".
/* SETTINGS FOR FRAME FRAME-Y
NOT-VISIBLE */
ASSIGN
FRAME FRAME-Y:HIDDEN = TRUE.
ASSIGN
fiMaxExtent:PRIVATE-DATA IN FRAME FRAME-Y =
"DataDigger,MaxExtent".
/* SETTINGS FOR FRAME frUpdate
NOT-VISIBLE */
ASSIGN
FRAME frUpdate:HIDDEN = TRUE.
ASSIGN
cbUpdateChannel:PRIVATE-DATA IN FRAME frUpdate =
"DataDigger:Update,UpdateChannel".
ASSIGN
fiCurrentBuild:READ-ONLY IN FRAME frUpdate = TRUE
fiCurrentBuild:PRIVATE-DATA IN FRAME frUpdate =
"DataDigger,Build".
ASSIGN
fiCurrentVersion:READ-ONLY IN FRAME frUpdate = TRUE
fiCurrentVersion:PRIVATE-DATA IN FRAME frUpdate =
"DataDigger,Version".
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
THEN C-Win:HIDDEN = yes.
/* _RUN-TIME-ATTRIBUTES-END */
&ANALYZE-RESUME
/* ************************ Control Triggers ************************ */
&Scoped-define SELF-NAME C-Win
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON END-ERROR OF C-Win /* <insert window title> */
OR ENDKEY OF {&WINDOW-NAME} ANYWHERE DO:
/* This case occurs when the user presses the "Esc" key.
In a persistently run window, just ignore this. If we did not, the
application would exit. */
IF THIS-PROCEDURE:PERSISTENT THEN RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL C-Win C-Win
ON WINDOW-CLOSE OF C-Win /* <insert window title> */
DO:
/* This event will close the window and terminate the procedure. */
APPLY "CLOSE":U TO THIS-PROCEDURE.
RETURN NO-APPLY.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define FRAME-NAME frUpdate
&Scoped-define SELF-NAME btnCheckNow
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnCheckNow C-Win
ON CHOOSE OF btnCheckNow IN FRAME frUpdate /* Check Now */
DO:
RUN btnCheckUpgrade.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define FRAME-NAME FRAME-AB
&Scoped-define SELF-NAME btnClearCache
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnClearCache C-Win
ON CHOOSE OF btnClearCache IN FRAME FRAME-AB /* Clear Cache */
DO:
RUN clearDiskCache.
RUN clearRegistryCache.
MESSAGE "Cache cleared" VIEW-AS ALERT-BOX INFO BUTTONS OK.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define FRAME-NAME FRAME-A
&Scoped-define SELF-NAME btnPingBack
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnPingBack C-Win
ON CHOOSE OF btnPingBack IN FRAME FRAME-A /* More info */
DO:
OS-COMMAND NO-WAIT START VALUE("http://datadigger.wordpress.com/pingback").
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME btnPingBackStats
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL btnPingBackStats C-Win
ON CHOOSE OF btnPingBackStats IN FRAME FRAME-A /* Statistics */
DO:
OS-COMMAND NO-WAIT START VALUE("{&PINGBACKURL}+").
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define FRAME-NAME FRAME-AB
&Scoped-define SELF-NAME tgCacheTableDefs
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tgCacheTableDefs C-Win
ON VALUE-CHANGED OF tgCacheTableDefs IN FRAME FRAME-AB /* Table Definitions */
, tgCacheFieldDefs
DO:
tgPreCache:SENSITIVE = (tgCacheFieldDefs:CHECKED OR tgCacheTableDefs:CHECKED).
APPLY "VALUE-CHANGED" TO tgPreCache.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define SELF-NAME tgPreCache
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CONTROL tgPreCache C-Win
ON VALUE-CHANGED OF tgPreCache IN FRAME FRAME-AB /* Background caching */
DO:
fiPreCacheInterval:SENSITIVE = (tgPreCache:SENSITIVE AND tgPreCache:CHECKED).
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&Scoped-define FRAME-NAME DEFAULT-FRAME
&UNDEFINE SELF-NAME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK C-Win
/* *************************** Main Block *************************** */
/* The CLOSE event can be used from inside or outside the procedure to */
/* terminate it. */
ON CLOSE OF THIS-PROCEDURE
RUN disable_UI.
/* Best default for GUI applications is... */
PAUSE 0 BEFORE-HIDE.
/* Handle reparenting, startup etc */
{frameLib.i}
/* Now enable the interface and wait for the exit condition. */
/* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */
MAIN-BLOCK:
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:
IF NOT THIS-PROCEDURE:PERSISTENT THEN
WAIT-FOR CLOSE OF THIS-PROCEDURE.
END.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
/* ********************** Internal Procedures *********************** */
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE btnCheckUpgrade C-Win
PROCEDURE btnCheckUpgrade :
/* Check for an upgrade of DataDigger
*/
DEFINE VARIABLE iChannel AS INTEGER NO-UNDO.
iChannel = INTEGER(cbUpdateChannel:SCREEN-VALUE IN FRAME frUpdate).
RUN checkVersion.p(INPUT iChannel, INPUT TRUE). /* TRUE for manual check */
END PROCEDURE. /* btnCheckUpgrade */
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE disable_UI C-Win _DEFAULT-DISABLE
PROCEDURE disable_UI :
/*------------------------------------------------------------------------------
Purpose: DISABLE the User Interface
Parameters: <none>
Notes: Here we clean-up the user-interface by deleting
dynamic widgets we have created and/or hide
frames. This procedure is usually called when
we are ready to "clean-up" after running.
------------------------------------------------------------------------------*/
/* Delete the WINDOW we created */
IF SESSION:DISPLAY-TYPE = "GUI":U AND VALID-HANDLE(C-Win)
THEN DELETE WIDGET C-Win.
IF THIS-PROCEDURE:PERSISTENT THEN DELETE PROCEDURE THIS-PROCEDURE.
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE enable_UI C-Win _DEFAULT-ENABLE
PROCEDURE enable_UI :
/*------------------------------------------------------------------------------
Purpose: ENABLE the User Interface
Parameters: <none>
Notes: Here we display/view/enable the widgets in the
user-interface. In addition, OPEN all queries
associated with each FRAME and BROWSE.
These statements here are based on the "Other
Settings" section of the widget Property Sheets.
------------------------------------------------------------------------------*/
VIEW FRAME DEFAULT-FRAME IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-DEFAULT-FRAME}
DISPLAY fiCurrentBuild fiCurrentVersion cbUpdateChannel
WITH FRAME frUpdate IN WINDOW C-Win.
ENABLE RECT-19 fiCurrentBuild fiCurrentVersion btnCheckNow cbUpdateChannel
WITH FRAME frUpdate IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-frUpdate}
DISPLAY tgPingback
WITH FRAME FRAME-A IN WINDOW C-Win.
ENABLE btnPingBack btnPingBackStats tgPingback
WITH FRAME FRAME-A IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-A}
DISPLAY tgAutoExpandQueryEditor
WITH FRAME FRAME-D IN WINDOW C-Win.
ENABLE tgAutoExpandQueryEditor
WITH FRAME FRAME-D IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-D}
DISPLAY tgShowHiddenTables
WITH FRAME FRAME-E IN WINDOW C-Win.
ENABLE tgShowHiddenTables
WITH FRAME FRAME-E IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-E}
DISPLAY tgKeepAlive
WITH FRAME FRAME-U IN WINDOW C-Win.
ENABLE tgKeepAlive
WITH FRAME FRAME-U IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-U}
DISPLAY tgStartOnPrimaryMonitor
WITH FRAME FRAME-V IN WINDOW C-Win.
ENABLE tgStartOnPrimaryMonitor
WITH FRAME FRAME-V IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-V}
DISPLAY tgUseDeleteTriggers tgUseWriteTriggers
WITH FRAME FRAME-W IN WINDOW C-Win.
ENABLE tgUseDeleteTriggers tgUseWriteTriggers
WITH FRAME FRAME-W IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-W}
DISPLAY tgCacheTableDefs tgCacheFieldDefs fiPreCacheInterval tgPreCache
tgCacheUserSettings
WITH FRAME FRAME-AB IN WINDOW C-Win.
ENABLE RECT-21 tgCacheTableDefs btnClearCache tgCacheFieldDefs
fiPreCacheInterval tgPreCache tgCacheUserSettings
WITH FRAME FRAME-AB IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-AB}
DISPLAY fiMaxQueryHistory
WITH FRAME FRAME-G IN WINDOW C-Win.
ENABLE fiMaxQueryHistory
WITH FRAME FRAME-G IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-G}
DISPLAY fiQueryTimeOut
WITH FRAME FRAME-H IN WINDOW C-Win.
ENABLE fiQueryTimeOut
WITH FRAME FRAME-H IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-H}
DISPLAY fiMaxFilterHistory
WITH FRAME FRAME-C IN WINDOW C-Win.
ENABLE fiMaxFilterHistory
WITH FRAME FRAME-C IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-C}
DISPLAY fiMaxColumns
WITH FRAME FRAME-F IN WINDOW C-Win.
ENABLE fiMaxColumns
WITH FRAME FRAME-F IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-F}
DISPLAY fiMaxExtent
WITH FRAME FRAME-Y IN WINDOW C-Win.
ENABLE fiMaxExtent
WITH FRAME FRAME-Y IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-Y}
DISPLAY cbViewType
WITH FRAME FRAME-S IN WINDOW C-Win.
ENABLE cbViewType
WITH FRAME FRAME-S IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-S}
DISPLAY cbDoubleClick
WITH FRAME FRAME-I IN WINDOW C-Win.
ENABLE cbDoubleClick
WITH FRAME FRAME-I IN WINDOW C-Win.
{&OPEN-BROWSERS-IN-QUERY-FRAME-I}
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME
&ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE localInitialize C-Win
PROCEDURE localInitialize :
/*------------------------------------------------------------------------------
Purpose:
Parameters: <none>
Notes:
------------------------------------------------------------------------------*/
fiCurrentVersion:font in frame frUpdate = getFont("Fixed").
fiCurrentBuild:font in frame frUpdate = getFont("Fixed").
END PROCEDURE.
/* _UIB-CODE-BLOCK-END */
&ANALYZE-RESUME