Changeset 452 for branches


Ignore:
Timestamp:
Jun 3, 2010, 7:49:51 PM (15 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: EVFSGUI 2.1 changes, initial SMBLOGON commit

Location:
branches/guitools-2.0
Files:
8 added
10 edited

Legend:

Unmodified
Added
Removed

  • branches/guitools-2.0/evfsgui/changes

    r450 r452  
    77- Enable WPS integration code (partly done)
    88- Enable and complete printer support code
    9 - Eventually support server based logon scripts (requires REXX rpc library,
    10   partly done)
     9- Support server based logon scripts (requires REXX rpc library,
     10  partly done) (works in a separate utility right now)
    1111- Passive connections/double connection detection does not seem to work
    1212  properly (it does, it is Turbofolder that is creating the 100% CPU load)
    … …  
    1414Version 2.1-beta
    1515- Added: On-the-fly browsing on remote servers
    16 - Added: Filed can be "opened" during on-the-fly browsing (a mountpoint
    17          is created first)
     16- Added: Files can be "opened" during on-the-fly browsing (a mountpoint
     17         is created first) - does not work properly yet!
    1818- Added: Set icons of browsed files according to extender types (only most
    1919         often used types (EXE, OOO, PDF, generic multimedia icons - no WPS
    2020         mechanism for that)
     21- Added: Refresh display every 60 seconds in order to reflect changes
     22         done on the command line while EVFSGUI is open
     23- Added: "Detach all" menuitem in context menu
     24- Added: "Refresh" menuitem in context menu
     25- Fixed: Do not flash during refresh
    2126         
    2227Version 2.0.5 2010-04-23

  • branches/guitools-2.0/evfsgui/evfsgui.VRP

    r450 r452  
    1010VRXWindow: __VREFileListWindow,1,807,11033,1506,3358
    1111VRXWindow: __VRESectionListWindow,1,2361,10648,8696,4794
    12 VRXWindow: __VREToolsWindow,0,2517,7082,6992,1669
     12VRXWindow: __VREToolsWindow,1,2517,7082,6992,1669
    1313VRXWindow: __VREWindListWindow,1,542,8721,2650,3150
    1414UserFile: 1

  • branches/guitools-2.0/evfsgui/evfsgui.VRX

    r450 r452  
    162162
    163163    I = 0
     164    ok = VRSet("DT_STATUSBAR","Caption", "")
    164165    do until lines(samba.!msg) = 0
    165166        infoline = linein(samba.!msg)
    … …  
    460461
    461462    CALL NLVSetText 'MENU_CONTEXT_DETACH',        'Caption', 11
     463    CALL NLVSetText 'MENU_CONTEXT_DETACH_ALL',    'Caption', 120
     464    CALL NLVSetText 'MENU_CONTEXT_REFRESH',       'Caption', 38
    462465    CALL NLVSetText 'MENU_CONTEXT_UNMOUNT',       'Caption', 12
    463466    CALL NLVSetText 'MENU_CONTEXT_EDIT',          'Caption', 32
    … …  
    469472    CALL NLVSetText 'MENU_CONTEXT_OPEN_SPLITVIEW','Caption', 99
    470473
    471     CALL NLVSetText 'Menu_File',          'Caption', 80
    472     CALL NLVSetText 'Menu_Context',       'Caption', 81
    473     CALL NLVSetText 'Menu_View',          'Caption', 82
    474     CALL NLVSetText 'Menu_Selected',      'Caption', 83
    475     CALL NLVSetText 'Menu_Help',          'Caption', 84
     474    CALL NLVSetText 'Menu_File',                  'Caption', 80
     475    CALL NLVSetText 'Menu_Context',               'Caption', 81
     476    CALL NLVSetText 'Menu_View',                  'Caption', 82
     477    CALL NLVSetText 'Menu_Selected',              'Caption', 83
     478    CALL NLVSetText 'Menu_Help',                  'Caption', 84
    476479
    477480    CALL NLVSetText 'Menu_View_Dialog',   'Caption', 85
    … …  
    832835
    833836    data = VRMethod('CN_CURRENT', 'GetRecordAttr', rh, 'UserData')
     837    options.currentdata = data
     838
    834839    ok = VRset("DT_StatusBar","Caption", data' - 'VRGet("Main", "HintText"))
    835840
    … …  
    861866
    862867    IF p_mounts > 0 THEN DO
    863         CALL VRSet 'MENU_CONTEXT_UNMOUNT', 'Visible', 1
    864         CALL VRSet 'PB_UNMOUNT', 'Enabled', 1
     868        CALL VRSet 'PB_UNMOUNT',               'Enabled', 1
     869        CALL VRSet 'MENU_CONTEXT_UNMOUNT',     'Visible', 1
     870       
    865871        if pos("*",p_string) > 0 | pos(";",p_string) > 0 then CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 0
    866872                                 else CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 1
    867873    END
    868874    ELSE DO
    869         CALL VRSet 'PB_UNMOUNT', 'Enabled', 0
    870         CALL VRSet 'MENU_CONTEXT_UNMOUNT', 'Visible', 0
    871         CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 0
     875        CALL VRSet 'PB_UNMOUNT',               'Enabled', 0
     876        CALL VRSet 'MENU_CONTEXT_UNMOUNT',     'Visible', 0
     877        CALL VRSet 'MENU_CONTEXT_EDIT',        'Visible', 0
    872878    END
    873879
    … …  
    875881
    876882    IF parent == '' THEN DO
    877         CALL VRSet 'PB_DETACH',           'Enabled', 1
    878         CALL VRSet 'MENU_CONTEXT_DETACH', 'Visible', 1
    879         CALL VRSet 'MENU_CONTEXT_OPEN',   'Visible', 1
    880         CALL VRSet 'MENU_CONTEXT_SEP1',   'Visible', 1
     883        CALL VRSet 'PB_DETACH',               'Enabled', 1
     884        CALL VRSet 'MENU_CONTEXT_DETACH',     'Visible', 1
     885        CALL VRSet 'MENU_CONTEXT_OPEN',       'Visible', 1
     886        CALL VRSet 'MENU_CONTEXT_SEP1',       'Visible', 1
     887        CALL VRSet 'MENU_CONTEXT_DETACH_ALL', 'Visible', 1
     888        CALL VRSet 'MENU_CONTEXT_SEP2',       'Visible', 1
     889       
    881890    END
    882891    ELSE DO
    883         CALL VRSet 'PB_DETACH',           'Enabled', 0
    884         CALL VRSet 'MENU_CONTEXT_DETACH', 'Visible', 0
    885         CALL VRSet 'MENU_CONTEXT_OPEN',   'Visible', 0
    886         CALL VRSet 'MENU_CONTEXT_SEP1',   'Visible', 0
     892        CALL VRSet 'PB_DETACH',               'Enabled', 0
     893        CALL VRSet 'MENU_CONTEXT_DETACH',     'Visible', 0
     894        CALL VRSet 'MENU_CONTEXT_OPEN',       'Visible', 0
     895        CALL VRSet 'MENU_CONTEXT_SEP1',       'Visible', 0
     896        CALL VRSet 'MENU_CONTEXT_DETACH_ALL', 'Visible', 0
     897        CALL VRSet 'MENU_CONTEXT_SEP2',       'Visible', 0
     898       
    887899    END
    888900    parse var p_string p_domain':\\'p_server'\'p_share
    … …  
    939951    CALL VRSet 'MENU_CONTEXT_OPEN', 'Visible', 1
    940952    CALL VRSet 'MENU_CONTEXT_SEP1', 'Visible', 1
     953    CALL VRSet 'MENU_CONTEXT_SEP2', 'Visible', 1
     954    CALL VRSet 'MENU_CONTEXT_SEP3', 'Visible', 1
    941955    CALL VRSet 'Menu_Context_Open_Default', "Visible", 1
    942956
    943957    IF p_mounts > 0 THEN DO
    944 
    945         CALL VRSet 'MENU_CONTEXT_UNMOUNT', 'Visible', 1
    946         CALL VRSet 'PB_UNMOUNT', 'Enabled', 1
     958        CALL VRSet 'PB_UNMOUNT',               'Enabled', 1
     959        CALL VRSet 'MENU_CONTEXT_UNMOUNT',     'Visible', 1
     960       
    947961        if pos("*",p_string) > 0 | pos(";",p_string) > 0 then CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 0
    948962                                 else CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 1
    949963    END
    950964    ELSE DO
    951         CALL VRSet 'PB_UNMOUNT', 'Enabled', 0
    952         CALL VRSet 'MENU_CONTEXT_UNMOUNT', 'Visible', 0
    953         CALL VRSet 'MENU_CONTEXT_EDIT', 'Visible', 0
     965        CALL VRSet 'PB_UNMOUNT',               'Enabled', 0
     966        CALL VRSet 'MENU_CONTEXT_UNMOUNT',     'Visible', 0
     967        CALL VRSet 'MENU_CONTEXT_EDIT',        'Visible', 0
    954968    END
    955969
    … …  
    957971
    958972    IF parent == '' THEN DO
    959         CALL VRSet 'PB_DETACH',           'Enabled', 1
    960         CALL VRSet 'MENU_CONTEXT_DETACH', 'Visible', 1
    961         CALL VRSet 'MENU_CONTEXT_OPEN',   'Visible', 1
    962         CALL VRSet 'MENU_CONTEXT_SEP1',   'Visible', 1
     973        CALL VRSet 'PB_DETACH',               'Enabled', 1
     974        CALL VRSet 'MENU_CONTEXT_DETACH',     'Visible', 1
     975        CALL VRSet 'MENU_CONTEXT_OPEN',       'Visible', 1
     976        CALL VRSet 'MENU_CONTEXT_SEP1',       'Visible', 1
     977        CALL VRSet 'MENU_CONTEXT_DETACH_ALL', 'Visible', 1
     978        CALL VRSet 'MENU_CONTEXT_SEP2',       'Visible', 1
     979        CALL VRSet 'MENU_CONTEXT_SEP3',       'Visible', 1
    963980    END
    964981    ELSE DO
    965         CALL VRSet 'PB_DETACH',           'Enabled', 0
    966         CALL VRSet 'MENU_CONTEXT_DETACH', 'Visible', 0
    967         CALL VRSet 'MENU_CONTEXT_OPEN',   'Visible', 0
    968         CALL VRSet 'MENU_CONTEXT_SEP1',   'Visible', 0
     982        CALL VRSet 'PB_DETACH',               'Enabled', 0
     983        CALL VRSet 'MENU_CONTEXT_DETACH',     'Visible', 0
     984        CALL VRSet 'MENU_CONTEXT_OPEN',       'Visible', 0
     985        CALL VRSet 'MENU_CONTEXT_SEP1',       'Visible', 0
     986        CALL VRSet 'MENU_CONTEXT_DETACH_ALL', 'Visible', 0
     987        CALL VRSet 'MENU_CONTEXT_SEP2',       'Visible', 0
     988        CALL VRSet 'MENU_CONTEXT_SEP3',       'Visible', 0
    969989    END
    970990
    … …  
    10081028CN_CURRENT_DragDrop:
    10091029    IF options.!debug == 1 THEN SAY time()' CN_CURRENT_DragDrop started'
    1010 
     1030    ok = VRSet("TM_RefreshCurrentDisplay","Enabled", 0)
    10111031    IF options.!debug == 1 THEN say "  settings.!network = "settings.!network
    10121032
    … …  
    12401260    call _GetSmbObjectProperties VRInfo('Record')
    12411261
    1242     IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DoubleClick done'
    1243 return  /* Enable last 2 lines for 2.0.x (to disable on the fly browsing) */
    1244  
     1262/*  IF options.!debug == 1 THEN SAY time()' CN_SMBTREE_DoubleClick done'
     1263return */
     1264    /* Enable last 2 lines for 2.0.x (to disable on the fly browsing) */
    12451265
    12461266    IF options.!debug == 1 THEN SAY '  Browsing "'SMBObj.udatatype'"'
    … …  
    14791499    END
    14801500    if userdata = "UNKNOWN" then ok = VRMethod('CN_CURRENT', 'RemoveRecord', rh)
    1481     else CALL VRMethod 'CN_CURRENT', 'SetRecordAttr', rh, 'UserData', userdata
     1501    else do
     1502        CALL VRMethod 'CN_CURRENT', 'SetRecordAttr', rh, 'UserData', userdata
     1503        if options.currentdata = userdata then ok = VRMethod('CN_CURRENT', 'SetRecordAttr', rh, 'Selected', 1)
     1504    end
    14821505
    14831506    DO i = 1 TO points.0
    … …  
    14921515GetMountPoints: PROCEDURE EXPOSE existrec. options. fs. cd. samba.
    14931516    IF options.!debug == 1 THEN SAY time()' GetMountPoints started'
    1494     CALL VRSet 'CN_CURRENT', 'Painting', 0
     1517/*  CALL VRSet 'CN_CURRENT', 'Painting', 0 */
    14951518/*  IF options.!debug == 1 THEN SAY time()' '||"GetMountPoints: SysDriveMap(USED) started"  */
    14961519    drvs = SysDriveMap('C:', 'USED') /* was "REMOTE" */
    … …  
    15301553/*      IF options.!debug == 1 THEN say '  "'attached.i'" "'userdata'"' */
    15311554        CALL VRMethod 'CN_CURRENT', 'SetRecordAttr', rh, 'UserData', userdata
     1555        if options.currentdata = userdata then ok = VRMethod('CN_CURRENT', 'SetRecordAttr', rh, 'Selected', 1)
     1556
    15321557        CALL VRMethod 'CN_CURRENT', 'SetRecordAttr', rh, 'Expanded', 1
    15331558
    … …  
    15391564    END
    15401565    existrec.0 = exc
    1541     CALL VRSet 'CN_CURRENT', 'Painting', 1
     1566/*  CALL VRSet 'CN_CURRENT', 'Painting', 1 */
    15421567    IF options.!debug == 1 THEN SAY time()' '||"GetMountPoints done"
    15431568RETURN
    … …  
    20872112return
    20882113
     2114/*:VRX         Menu_Context_Detach_All_Click
     2115*/
     2116Menu_Context_Detach_All_Click:
     2117    ok = VRMethod( "CN_CURRENT", "GetRecordList", "All", "umrh." )
     2118    do um = 1 to umrh.0
     2119        ok = VRMethod( "CN_CURRENT", "SetRecordAttr", umrh.um, "Selected", 1)
     2120        call PB_DETACH_Click
     2121    end
     2122    drop um umrh.
     2123return
     2124
    20892125/*:VRX         Menu_Context_Detach_Click
    20902126*/
    … …  
    22202256
    22212257    IF options.!debug == 1 THEN SAY time()' '||"Menu_Context_Open_Tree_Click done"
     2258return
     2259
     2260/*:VRX         Menu_Context_Refresh_Click
     2261*/
     2262Menu_Context_Refresh_Click:
     2263    CALL Refresh
    22222264return
    22232265
    … …  
    32723314PB_MOUNT_Click:
    32733315    IF options.!debug == 1 THEN SAY time()' '||"PB_MOUNT_Click started"
     3316    ok = VRSet("TM_RefreshCurrentDisplay","Enabled", 0)
    32743317say "network = "network
    32753318    if options.!editmode = 1 then do
    … …  
    33823425    CALL Mount
    33833426    CALL Refresh
     3427    ok = VRSet("TM_RefreshCurrentDisplay","Enabled", 1)
    33843428    IF options.!debug == 1 THEN SAY time()' '||"PB_MOUNT_Click done"
    33853429RETURN 0
    … …  
    35873631Refresh:
    35883632    IF options.!debug == 1 THEN SAY time()' Refresh started'
     3633    CALL VRSet 'CN_CURRENT', 'Painting', 0
     3634
    35893635    CALL VRMethod 'CN_CURRENT', 'RemoveRecord', 'All'
    35903636
    … …  
    36393685
    36403686    CALL VRMethod "CB_DRIVES", "AddStringList", "drvstem."
     3687    CALL VRSet 'CN_CURRENT', 'Painting', 1
    36413688    IF options.!debug == 1 THEN SAY time()' '||"Refresh done"
    36423689RETURN 0
    … …  
    40704117return
    40714118
     4119/*:VRX         TM_RefreshCurrentDisplay_Trigger
     4120*/
     4121TM_RefreshCurrentDisplay_Trigger:
     4122    CALL REFRESH
     4123return
     4124
    40724125/*:VRX         TM_RefreshTreeDisplay_Trigger
    40734126*/

  • branches/guitools-2.0/evfsgui/evfsi_de.mkm

    r450 r452  
    4141EVG0036I: Verbinden  %1  mit  %2
    4242EVG0037I: Erkl„rung
    43 EVG0038I: Er~neuern
     43EVG0038I: Aktualisiere~n
    4444EVG0039I: Netzwerkumgebung
    4545; Erweitert properties window UI
    … …  
    111111EVG0102I: Konnte %1 nicht laden - Verbindungen konnten nicht wiederhergestellt werden.
    112112EVG0103I: %1 ist keine Profildatei!
     113EVG0104?:
     114EVG0105?:
     115EVG0106?:
     116EVG0107?:
     117EVG0108?:
     118EVG0109?:
     119EVG0110?:
     120EVG0111?:
     121EVG0112?:
     122EVG0113?:
     123EVG0114?:
     124EVG0115?:
     125EVG0116?:
     126EVG0117?:
     127EVG0118?:
     128EVG0119?:
     129;More menu strings
     130EVG0120I: A~lle abh„ngen

  • branches/guitools-2.0/evfsgui/evfsi_en.mkm

    r450 r452  
    111111EVG0102I: Failed to load %1 - could not establish connections.
    112112EVG0103I: %1 is not a profile!
     113EVG0104?:
     114EVG0105?:
     115EVG0106?:
     116EVG0107?:
     117EVG0108?:
     118EVG0109?:
     119EVG0110?:
     120EVG0111?:
     121EVG0112?:
     122EVG0113?:
     123EVG0114?:
     124EVG0115?:
     125EVG0116?:
     126EVG0117?:
     127EVG0118?:
     128EVG0119?:
     129;More menu strings
     130EVG0120I: Detach a~ll

  • branches/guitools-2.0/evfsgui/evfsi_fr.mkm

    r450 r452  
    117117 l'ouverture de %1 - les connexions n'ont pas pu ˆtre ‚tablies.
    118118EVG0103I: %1 n'est pas une fichier de profil!
     119EVG0104?:
     120EVG0105?:
     121EVG0106?:
     122EVG0107?:
     123EVG0108?:
     124EVG0109?:
     125EVG0110?:
     126EVG0111?:
     127EVG0112?:
     128EVG0113?:
     129EVG0114?:
     130EVG0115?:
     131EVG0116?:
     132EVG0117?:
     133EVG0118?:
     134EVG0119?:
     135;More menu strings
     136EVG0120I: D‚tache~r tous

  • branches/guitools-2.0/evfsgui/evfsi_it.mkm

    r450 r452  
    115115EVG0102I: Impossibile caricare %1 - impossibile stabilire le connessioni
    116116EVG0103I: %1 non Š file di profilo!
     117EVG0104?:
     118EVG0105?:
     119EVG0106?:
     120EVG0107?:
     121EVG0108?:
     122EVG0109?:
     123EVG0110?:
     124EVG0111?:
     125EVG0112?:
     126EVG0113?:
     127EVG0114?:
     128EVG0115?:
     129EVG0116?:
     130EVG0117?:
     131EVG0118?:
     132EVG0119?:
     133;More menu strings
     134EVG0120I: Rimuovi ~tutti

  • branches/guitools-2.0/evfsgui/readme.txt

    r450 r452  
    1 EVFSGUI Version 2.0.4 (eCS 2.0 GA level)
     1EVFSGUI Version 2.0.5 (eCS 2.0 GA level)
    22========================================
    33
    … …  
    66OS:         eCS 1.2 or better, OS/2 Warp 4.5 or better
    77Filesystem: EVFS (included with eCS) or
    8             NDFS (Netdrive, shareware from Blueprint Software)
     8            NDFS (Netdrive, excellent shareware from Blueprint Software)
    99kLIBC:      Version 063 is required (not 064x as for the Samba server)           
     10GCC:        gcc442.dll is required.
    1011           
    11122. Installation:
    … …  
    1314- Get smbclut-3.0.37-os2-20100114.zip (or better).
    1415- Unzip the enclosed binaries into a directory within your PATH.
    15 - Unzip the files from evfsgui-201-20xxxxxx.zip into a
    16   directory within your PATH (preferably the one where you also put
    17   binaries from smbclut-3.0.37-os2-20100114.zip).
     16- Unzip the files from evfsgui-20x-20xxxxxx.zip into x:\ECS
     17  (where x: is your bootdrive). Make sure the directory structure is preserved.
    1818 
    1919Recommended way of installation:
    20 - Install into x:\ecs\system\samba (eCS 2.0 default)
     20- Install WVFSGUI into x:\ecs
     21- Install smbclut into x:\ecs\system\samba (eCS 2.0 default)
    2122- Alternatively you may create x:\samba where x: is your bootdrive
    2223- Add that directory to PATH, LIBPATH.
    … …  
    149150for his support, feedback and ideas.
    150151
    151 Herwig Bauernfeind, St.Veit/Glan, Austria, 12.01.2010
     152Herwig Bauernfeind, St.Veit/Glan, Austria, 23.04.2010
    152153mailto: herwig.bauernfeind@aon.at
Note: See TracChangeset for help on using the changeset viewer.