/ stazsoftware.com / www.stazsoftware.com.tar / www.stazsoftware.com / futurebasic / sample-code / BringWindowsForward.sit / bring_forward

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0d 62 72 69 6e 67 5f | 66 6f 72 77 61 72 64 00 |..bring_|forward.|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 46 42 5e | 65 00 00 00 00 00 00 00 |.TEXTFB^|e.......|
|00000050| 00 00 00 00 00 04 ff 00 | 00 01 73 bb 79 00 72 bb |........|..s.y.r.|
|00000060| 79 00 72 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |y.r.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 15 96 00 00 |........|........|
|00000080| 0d 27 7e 27 41 0d 27 20 | 20 20 20 20 20 20 20 20 |.'~'A.' |        |
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 75 |        |      Ru|
|000000a0| 6e 74 69 6d 65 20 3a 20 | 52 6e 74 6d 20 41 70 70 |ntime : |Rntm App|
|000000b0| 65 61 72 61 6e 63 65 2e | 49 6e 63 6c 0d 27 20 20 |earance.|Incl.'  |
|000000c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000000d0| 20 20 20 20 20 20 20 20 | 20 43 50 55 20 3a 20 43 |        | CPU : C|
|000000e0| 61 72 62 6f 6e 0d 27 20 | 20 20 20 20 20 20 20 20 |arbon.' |        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 44 65 62 |        |     Deb|
|00000100| 75 67 67 65 72 20 3a 20 | 4f 66 66 0d 27 20 20 20 |ugger : |Off.'   |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 44 49 4d 27 |        |    DIM'|
|00000120| 64 20 56 61 72 73 20 4f | 6e 6c 79 20 3a 20 4f 6e |d Vars O|nly : On|
|00000130| 0d 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.'      |        |
|00000140| 4e 6f 20 52 65 2d 44 49 | 4d 27 64 20 56 61 72 73 |No Re-DI|M'd Vars|
|00000150| 20 3a 20 4f 6e 0d 27 20 | 20 20 20 20 20 20 20 20 | : On.' |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 43 41 4c 4c 20 |        |   CALL |
|00000170| 52 65 71 27 64 20 3a 20 | 4f 66 66 0d 27 20 20 20 |Req'd : |Off.'   |
|00000180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 52 65 |        |      Re|
|00000190| 67 69 73 74 65 72 20 56 | 61 72 73 20 3a 20 4f 6e |gister V|ars : On|
|000001a0| 0d 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.'      |        |
|000001b0| 20 20 4d 61 63 73 42 75 | 67 20 4c 61 62 65 6c 73 |  MacsBu|g Labels|
|000001c0| 20 3a 20 4f 6e 0d 27 20 | 20 20 20 20 20 20 20 20 | : On.' |        |
|000001d0| 20 20 41 72 79 20 42 6f | 75 6e 64 73 20 43 68 65 |  Ary Bo|unds Che|
|000001e0| 63 6b 69 6e 67 20 3a 20 | 4f 66 66 0d 27 20 20 20 |cking : |Off.'   |
|000001f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000200| 20 20 51 42 20 4c 61 62 | 65 6c 73 20 3a 20 4f 66 |  QB Lab|els : Of|
|00000210| 66 0d 27 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |f.'     |        |
|00000220| 20 20 20 20 4f 70 74 69 | 6d 69 7a 65 20 53 54 52 |    Opti|mize STR|
|00000230| 23 20 3a 20 4f 6e 0d 27 | 20 20 20 20 20 20 20 20 |# : On.'|        |
|00000240| 20 4d 61 6b 65 20 4c 69 | 6e 65 20 53 74 61 72 74 | Make Li|ne Start|
|00000250| 20 54 61 62 6c 65 20 3a | 20 4f 66 66 0d 27 20 20 | Table :| Off.'  |
|00000260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 53 |        |       S|
|00000270| 68 6f 77 20 57 61 72 6e | 69 6e 67 73 20 3a 20 4f |how Warn|ings : O|
|00000280| 6e 0d 27 7e 27 42 0d 0d | 2f 2a 0d 0d 20 20 20 20 |n.'~'B..|/*..    |
|00000290| 20 74 68 69 73 20 65 78 | 61 6d 70 6c 65 20 73 68 | this ex|ample sh|
|000002a0| 6f 77 20 68 6f 77 20 74 | 6f 20 62 72 69 6e 67 20 |ow how t|o bring |
|000002b0| 61 6c 6c 20 6f 66 20 61 | 6e 20 61 70 70 6c 69 63 |all of a|n applic|
|000002c0| 61 74 69 6f 6e 27 73 20 | 77 69 6e 64 6f 77 27 73 |ation's |window's|
|000002d0| 20 74 6f 20 74 68 65 0d | 20 20 20 20 20 66 72 6f | to the.|     fro|
|000002e0| 6e 74 20 61 74 20 6f 6e | 65 20 74 69 6d 65 2e 20 |nt at on|e time. |
|000002f0| 74 6f 20 74 65 73 74 20 | 69 74 2c 20 73 65 6e 64 |to test |it, send|
|00000300| 20 74 68 65 20 61 70 70 | 6c 69 63 61 74 69 6f 6e | the app|lication|
|00000310| 20 74 6f 20 74 68 65 20 | 62 61 63 6b 67 72 6f 75 | to the |backgrou|
|00000320| 6e 64 2c 0d 20 20 20 20 | 20 62 72 69 6e 67 20 61 |nd,.    | bring a|
|00000330| 6e 6f 74 68 65 72 20 6c | 61 79 65 72 20 6f 76 65 |nother l|ayer ove|
|00000340| 72 20 69 74 2c 20 74 68 | 65 6e 20 74 72 79 20 74 |r it, th|en try t|
|00000350| 6f 20 62 72 69 6e 67 20 | 6f 6e 6c 79 20 6f 6e 65 |o bring |only one|
|00000360| 20 6f 66 20 74 68 65 20 | 0d 20 20 20 20 20 77 69 | of the |.     wi|
|00000370| 6e 64 6f 77 73 20 74 6f | 20 74 68 65 20 66 6f 72 |ndows to| the for|
|00000380| 65 67 72 6f 75 6e 64 2e | 0d 0d 2a 2f 0d 0d 0d 6c |eground.|..*/...l|
|00000390| 6f 63 61 6c 20 66 6e 20 | 62 72 69 6e 67 41 6c 6c |ocal fn |bringAll|
|000003a0| 57 69 6e 64 6f 77 73 46 | 6f 72 77 61 72 64 0d 27 |WindowsF|orward.'|
|000003b0| 7e 27 39 0d 64 69 6d 20 | 70 73 6e 20 61 73 20 50 |~'9.dim |psn as P|
|000003c0| 72 6f 63 65 73 73 53 65 | 72 69 61 6c 4e 75 6d 62 |rocessSe|rialNumb|
|000003d0| 65 72 0d 64 69 6d 20 65 | 72 72 20 61 73 20 4f 53 |er.dim e|rr as OS|
|000003e0| 45 72 72 0d 62 65 65 70 | 0d 0d 6c 6f 6e 67 20 69 |Err.beep|..long i|
|000003f0| 66 20 66 6e 20 47 65 74 | 43 75 72 72 65 6e 74 50 |f fn Get|CurrentP|
|00000400| 72 6f 63 65 73 73 28 20 | 70 73 6e 20 29 20 3d 20 |rocess( |psn ) = |
|00000410| 5f 6e 6f 45 72 72 0d 65 | 72 72 20 3d 20 66 6e 20 |_noErr.e|rr = fn |
|00000420| 53 65 74 46 72 6f 6e 74 | 50 72 6f 63 65 73 73 28 |SetFront|Process(|
|00000430| 20 70 73 6e 20 29 0d 65 | 6e 64 20 69 66 0d 65 6e | psn ).e|nd if.en|
|00000440| 64 20 66 6e 0d 0d 0d 6c | 6f 63 61 6c 20 66 6e 20 |d fn...l|ocal fn |
|00000450| 68 61 6e 64 6c 65 44 69 | 61 6c 6f 67 0d 27 7e 27 |handleDi|alog.'~'|
|00000460| 39 0d 64 69 6d 20 61 63 | 74 69 6f 6e 20 61 73 20 |9.dim ac|tion as |
|00000470| 6c 6f 6e 67 0d 64 69 6d | 20 72 65 66 65 72 65 6e |long.dim| referen|
|00000480| 63 65 20 61 73 20 6c 6f | 6e 67 0d 0d 61 63 74 69 |ce as lo|ng..acti|
|00000490| 6f 6e 20 20 20 20 3d 20 | 64 69 61 6c 6f 67 28 20 |on    = |dialog( |
|000004a0| 30 20 29 0d 72 65 66 65 | 72 65 6e 63 65 20 3d 20 |0 ).refe|rence = |
|000004b0| 64 69 61 6c 6f 67 28 20 | 61 63 74 69 6f 6e 20 29 |dialog( |action )|
|000004c0| 0d 0d 73 65 6c 65 63 74 | 20 61 63 74 69 6f 6e 0d |..select| action.|
|000004d0| 63 61 73 65 20 5f 6d 66 | 65 76 65 6e 74 0d 73 65 |case _mf|event.se|
|000004e0| 6c 65 63 74 20 72 65 66 | 65 72 65 6e 63 65 0d 63 |lect ref|erence.c|
|000004f0| 61 73 65 20 5f 6d 66 72 | 65 73 75 6d 65 0d 66 6e |ase _mfr|esume.fn|
|00000500| 20 62 72 69 6e 67 41 6c | 6c 57 69 6e 64 6f 77 73 | bringAl|lWindows|
|00000510| 46 6f 72 77 61 72 64 0d | 65 6e 64 20 73 65 6c 65 |Forward.|end sele|
|00000520| 63 74 0d 65 6e 64 20 73 | 65 6c 65 63 74 0d 0d 65 |ct.end s|elect..e|
|00000530| 6e 64 20 66 6e 0d 0d 0d | 0d 77 69 6e 64 6f 77 20 |nd fn...|.window |
|00000540| 31 0d 77 69 6e 64 6f 77 | 20 32 0d 0d 6f 6e 20 64 |1.window| 2..on d|
|00000550| 69 61 6c 6f 67 20 66 6e | 20 68 61 6e 64 6c 65 44 |ialog fn| handleD|
|00000560| 69 61 6c 6f 67 0d 0d 64 | 6f 0d 68 61 6e 64 6c 65 |ialog..d|o.handle|
|00000570| 45 76 65 6e 74 73 0d 75 | 6e 74 69 6c 20 30 0d 00 |Events.u|ntil 0..|
|00000580| 00 00 01 00 00 00 01 12 | 00 00 00 12 00 00 00 61 |........|.......a|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 00 00 00 08 00 2c 00 08 | 03 1e 02 48 00 00 00 02 |.....,..|...H....|
|00000690| 01 b4 00 00 01 00 00 00 | 01 12 00 00 00 12 00 00 |........|........|
|000006a0| 00 61 08 a3 b1 08 01 fe | 00 00 00 1c 00 46 00 01 |.a......|.....F..|
|000006b0| 77 50 4f 53 00 00 00 12 | 52 45 4d 3e 00 00 00 1e |wPOS....|REM>....|
|000006c0| 03 e8 00 00 00 00 00 00 | 08 a3 af 74 03 e8 00 10 |........|...t....|
|000006d0| 00 00 00 0c 08 a3 b0 7c | 0f 57 69 6e 64 6f 77 20 |.......||.Window |
|000006e0| 50 6f 73 69 74 69 6f 6e | 0a 52 45 4d 20 49 6e 64 |Position|.REM Ind|
|000006f0| 65 6e 74 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ent.....|........|
+--------+-------------------------+-------------------------+--------+--------+