Changeset 328 for branches


Ignore:
Timestamp:
Sep 8, 2009, 8:56:36 AM (16 years ago)
Author:
Herwig Bauernfeind
Message:

GUI-Tools: More work on EVFSGUI V.next (Feature complete now, more bugs fixed, started code cleaning)

Location:
branches/guitools-2.0
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • branches/guitools-2.0/evfsgui/changes

    r327 r328  
    2626- Added: Optionally use big icons
    2727- Added: Profile files may be dropped onto the current connections container
     28- Added: Login dialog behaviour matches the one from smbusers now
     29- Added: Preliminary handling of smbtree error messages
    2830- Changed: Several changes in GUI style (as suggested by Alex Taylor)
    2931- Changed: Left align buttons in current connections panel (as suggested by
    … …  
    3739           on the same volume only, in 2.x a new profile is merged with the
    3840           old connections one.
     41- Changed: Split advanced dialog should be split into connection options and
     42           global options
     43- Changed: Redesigned mount dialog
     44- Changed: Redesigned login dialog
    3945- Fixed: Loading a profile presented the user a half drawn window
    4046- Fixed: Startup code if no evfsgui.ini is present
    … …  
    4652- Fixed: Disallow connecting to printers via context menu
    4753- Fixed: Edit and Selected menu easily got out of sync
     54- Fixed: Edit and Selected menu still got out of sync, really fixed now
    4855- Fixed: Another missing record validation
    4956- Fixed: Password display broken on double connection warning
     57- Fixed: Detect more printers
    5058
    5159ToDo:
    52 - Major code refactoring
     60- Major code refactoring (partly done)
    5361- Create Icon. stem in order to ease maintainance of icons
    5462- Create mechanism to save passive connections across sessions
    5563- Debug on/off option is badly implemented (rework required)
    56 - Advanced dialog should be split into connection options and global options
    57 - smbtree error messages are ignored (requires more code from smbmon)
    58 - printer share detection is flaky
    59 - error checking
    6064- rebuild required utilities with libc063 (instead of libc064x)
     65
     66Known problem:
     67- printer share detection is guessing only, however there is no known method
     68  to do this properly
    6169
    6270Version 1.3.4

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

    r327 r328  
    44MacroPath: VRM: U:\Develop\Samba\guitools-2.0\smbclgui
    55EXEPath:
    6 RunParameters:
     6RunParameters: -ndfs
    77RunDirectory:
    88VRXWindow: __VREMainWindow,1,530,2457,879,4071
    99VRXWindow: __VRESectionListWindow,1,337,11708,11623,3686
    10 VRXWindow: __VREToolsWindow,1,518,530,6993,1665
     10VRXWindow: __VREToolsWindow,1,518,530,6984,1663
    1111VRXWindow: __VREWindListWindow,1,482,7661,2650,3150
    1212UserFile: 1
    13 UserWindow: Main,1
     13UserWindow: SW_LOGIN,1

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

    r327 r328  
    112112    CD.StatusFH    = VRMethod( "CN_CONDET", "AddField", "Icon", "Status" )
    113113    CD.mpointFH    = VRMethod( "CN_CONDET", "AddField", "String", "mpoint" )
     114    CD.mpidxFH     = VRMethod( "CN_CONDET", "AddField", "String", "index" )
    114115    CD.workgroupFH = VRMethod( "CN_CONDET", "AddField", "String", "workgroup" )
    115116    CD.serverFH    = VRMethod( "CN_CONDET", "AddField", "String", "server" )
    … …  
    128129
    129130    /* Connection details */
     131    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.mpidxfh ,       "Visible", 0)
    130132    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.passwordfh ,    "Visible", 0)
    131133    ok = VRMethod("CN_CONDET", "SetFieldAttr", cd.spasswordfh ,   "Visible", 0)
    … …  
    184186*/
    185187_ShowMsg:
    186 
     188    /* preliminary implementation - we just do not ignore it anymore -
     189       - ShowMsg from smbmon/smbusers shoule become a shared library */
     190    ok = VRSet("DT_StatusBar", "Caption", Msg.Text)
    187191return
    188192
    … …  
    314318
    315319    rh = VRInfo('Record')
    316 
    317     /* Herwig B. */
    318     /* we have to check whether the record still exists because under certain
    319        circumstances the event routine is executed after the record was already
    320        removed */
    321320    if VRMethod( 'CN_CURRENT', "ValidateRecord", rh) <> 1 then return
    322     /* Herwig B. */
    323321
    324322    data = VRMethod('CN_CURRENT', 'GetRecordAttr', rh, 'UserData')
     323    ok = VRset("DT_StatusBar","Caption", data' - 'VRGet("Main", "HintText"))
    325324
    326325    PARSE VAR data p_node ';' p_mounts ';' p_string
    … …  
    445444CN_CURRENT_DoubleClick:
    446445    call beep 880, 20
     446say "double click"
    447447    rh = VRInfo('Record')
    448448    /* Herwig B. */
    … …  
    633633
    634634    /* This is the place to enable specific context menu entries */
     635    ok = VRMethod( "CN_SMBTREE", "GetRecordList", "All", "records." )
     636    ok = VRSet("Menu_Selected_Connect", "Visible", (records.0 <> 0))
    635637
    636638    ok = VRMethod( "Menu_Selected", "Popup", , , "", "" )
    … …  
    665667    end
    666668return rc
     669/*:VRX         EF_PASSWORD1_KeyPress
     670*/
     671EF_PASSWORD1_KeyPress:
     672    obj = VRInfo( "Object" )
     673    keystr = VRGet( obj, "KeyString" )
     674/*  say keystr */
     675    select
     676        when keystr = "{Enter}" then call PB_LOGIN_OK_Click
     677        when keystr = "{Newline}" then call PB_LOGIN_OK_Click
     678        when keystr  = "{Esc}" then call PB_LOGIN_CANCEL_Click
     679        otherwise nop
     680    end
     681return
     682
    667683/*:VRX         EF_PASSWORD_Change
    668684*/
    669685EF_PASSWORD_Change:
    670686    call _UserCredUpdate
     687return
     688
     689/*:VRX         EF_USER1_KeyPress
     690*/
     691EF_USER1_KeyPress:
     692    obj = VRInfo( "Object" )
     693    keystr = VRGet( obj, "KeyString" )
     694/*  say keystr */
     695    select
     696        when keystr = "{Enter}" then ok = VRMethod( "EF_Password1", "SetFocus" )
     697        when keystr = "{Newline}" then ok = VRMethod( "EF_Password1", "SetFocus" )
     698        when keystr  = "{Esc}" then call PB_LOGIN_CANCEL_Click
     699        otherwise nop
     700    end
    671701return
    672702
    … …  
    707737        userdata = ParseResourceData( userdata, res.i )
    708738    END
    709     if userdata = "UNKNOWN" then ok = VRMethod('CN_CURRENT', 'RemoveRecord', rh)
     739    if userdata = "UNKNOWN" then ok = VRMethod('CN_CURRENT', 'RemoveRecord', rh) 
    710740    else CALL VRMethod 'CN_CURRENT', 'SetRecordAttr', rh, 'UserData', userdata
    711741
    … …  
    13411371return
    13421372
     1373/*:VRX         Menu_File_Settings_Click
     1374*/
     1375Menu_File_Settings_Click:
     1376    adv_changed = 0
     1377    CALL VRLoadSecondary "SW_SETTINGS", "W"
     1378    IF adv_changed == 1 THEN DO
     1379        advanced.!logfile   = adv_logfile
     1380        advanced.!loglevel  = adv_loglevel
     1381        advanced.!browseauth= adv_browseauth
     1382        advanced.!browseimme= adv_browseimme
     1383        advanced.!debug     = adv_debug
     1384        advanced.!special   = adv_special
     1385        advanced.!bigicons  = adv_bigicons
     1386    END
     1387return
     1388
    13431389/*:VRX         Menu_Help_Extended_Click
    13441390*/
    … …  
    13641410        end
    13651411        else do
    1366             say "Active record, not yet implemented...."
     1412            mountpoint = VRMethod('CN_CONDET', "GetFieldData", selrec.I, cd.mpointfh)
     1413            mpidx = VRMethod('CN_CONDET', "GetFieldData", selrec.I, cd.mpidxfh)
     1414            if mpidx = 1 then do
     1415                dyn ="ok = "fs.!prefix"RxUnmount( mountpoint, mpidx )"
     1416                IF options.!debug == 1 THEN SAY time()' '||dyn
     1417                interpret dyn; drop dyn
     1418                CALL VRMethod 'CN_CONDET', 'RemoveRecord', selrec.I
     1419                CALL Refresh
     1420            end
     1421            else do
     1422                CALL VRMessage 'Main', NLVGetMessage( 71 ) , NLVGetMessage( 89 )||" "||mountpoint , 'E'
     1423            end
    13671424        end
    13681425    end
    … …  
    13731430Menu_Selected_Retry_Click: PROCEDURE EXPOSE settings. options. vfs. fs. advanced. cd.
    13741431
    1375     ok = VRMethod( "CN_CONDET", "GetRecordList", "SourceOrSelected", "selrec." )
    1376     if selrec.0 = 0 then return
    1377 
    1378     selrec = selrec.1
    1379 
    1380     p_mpoint    = VRMethod("CN_CONDET", "GetFieldData", selrec, CD.MpointFH)
    1381 
    1382     p_workgroup = VRMethod("CN_CONDET", "GetFieldData", selrec, CD.WorkgroupFH)
    1383     p_server    = VRMethod("CN_CONDET", "GetFieldData", selrec, CD.ServerFH)
    1384     p_share     = VRMethod("CN_CONDET", "GetFieldData", selrec, CD.ShareFH)
    1385     p_user      = VRMethod("CN_CONDET", "GetFieldData", selrec, CD.UserFH)
    1386     p_password  = x2c(VRMethod("CN_CONDET", "GetFieldData", selrec, CD.SpasswordFH))
     1432    ok = VRMethod( "CN_CONDET", "GetRecordList", "SourceOrSelected", "srcrec." )
     1433    if srcrec.0 = 0 then return
     1434
     1435    srcrec = srcrec.1
     1436
     1437    p_mpoint    = VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.MpointFH)
     1438
     1439    p_workgroup = VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.WorkgroupFH)
     1440    p_server    = VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.ServerFH)
     1441    p_share     = VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.ShareFH)
     1442    p_user      = VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.UserFH)
     1443    p_password  = x2c(VRMethod("CN_CONDET", "GetFieldData", srcrec, CD.SpasswordFH))
    13871444
    13881445    ShareLevel = 1
    … …  
    14091466    CALL PB_MOUNT_Click
    14101467
    1411     ok = VRMethod("CN_CONDET", "RemoveRecord", selrec)
     1468    if VRMethod( 'CN_CONDET', "ValidateRecord", srcRec) = 1 then do
     1469        if VRMethod("CN_CONDET", "GetRecordAttr", srcRec, "Icon") = '#68:PMWP.DLL' then ok = VRMethod( "CN_CONDET", "RemoveRecord", srcRec)
     1470    end
    14121471return
    14131472
    … …  
    17801839    CALL NLVSetText 'Menu_File_SAVE',     'Caption', 30
    17811840    CALL NLVSetText 'Menu_File_LOAD',     'Caption', 31
     1841    CALL NLVSetText 'Menu_File_SETTINGS', 'Caption', 47
    17821842    CALL NLVSetText 'Menu_File_ADVANCED', 'Caption', 24
    17831843
    17841844    CALL NLVSetText 'Menu_Selected_Connect', 'Caption', 28
    1785     CALL NLVSetText 'Menu_Selected_Remove',  'Caption', 89
     1845    CALL NLVSetText 'Menu_Selected_Remove',  'Caption', 12
    17861846    CALL NLVSetText 'Menu_Selected_Retry',   'Caption', 90
    17871847
    … …  
    18701930/*    PARSE VAR resdata . ';WORKGROUP='p_domain';SERVER='p_server';SHARE='p_share';' . */
    18711931
    1872     if left(word(resdata,1),5) <> "SMBFS" then userData = "UNKNOWN"
     1932    if left(word(resdata,1),5) <> "SMBFS" then do
     1933        /* Support for other filesystems would come here! */
     1934        userData = "UNKNOWN"
     1935    end
    18731936    else do
    18741937        cd.lastrh = VRMethod("CN_CONDET","AddRecord")
    1875         PARSE VAR userdata p_mpoint ';' .
     1938        PARSE VAR userdata p_mpoint ';' p_mpidx ';' .
    18761939
    18771940        p_mpoint = strip(p_mpoint,'T','\')||'\'
    … …  
    18921955        PARSE VAR resdata . 'EASUPPORT=' p_easupport ' '
    18931956
    1894 say "p_easupport = '"p_easupport"'"
    1895 say "options.!easupport = '"options.!easupport"'"
    1896 
    18971957        if p_master   = "" then p_master   = "WORKGROUP"
    18981958        if p_mtype    = "" then p_mtype    = "1"
    … …  
    19051965        end
    19061966
    1907         ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.mpointFH, p_mpoint, cd.workgroupfh, p_domain, cd.serverfh, p_server, cd.sharefh, p_share, cd.userfh, p_user)
     1967        ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.mpointFH, p_mpoint, cd.mpidxfh, p_mpidx, cd.workgroupfh, p_domain, cd.serverfh, p_server, cd.sharefh, p_share, cd.userfh, p_user)
    19081968        ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.passwordfh, p_password, cd.spasswordfh, p_spassword, cd.masterfh, p_master, cd.mtypefh, p_mtype)
    19091969        ok = VRMethod("CN_CONDET", "SetFieldData", cd.lastrh, cd.memlenfh, p_memlen, cd.easupportfh, p_easupport, cd.logfilefh, p_logfile, cd.loglevelfh, p_loglevel, cd.rwfh, p_rw)
    … …  
    19121972
    19131973        hashstr = p_mpoint' 'translate(p_domain)' 'translate(p_server)' 'translate(p_share)' 'p_user' 'p_spassword' 'p_easupport' 'p_rw
    1914 say "HashStr='"hashStr"'"
     1974
    19151975        md5 = rexx_md5(hashstr)
    19161976
    … …  
    19422002*/
    19432003PB_ADVANCED_Click:
    1944 
    19452004    adv_changed = 0
    19462005    CALL VRLoadSecondary "SW_ADVANCED", "W"
    … …  
    19492008        advanced.!easupport = adv_eas
    19502009        advanced.!readonly  = adv_readonly
    1951         advanced.!logfile   = adv_logfile
    1952         advanced.!loglevel  = adv_loglevel
    1953         advanced.!browseauth= adv_browseauth
    1954         advanced.!browseimme= adv_browseimme
    1955         advanced.!debug     = adv_debug
    19562010        advanced.!alwaysmp  = adv_alwaysmp
    1957         advanced.!special   = adv_special
    1958         advanced.!bigicons  = adv_bigicons
    1959     END
    1960 
    1961 say 'advanced.!bigicons  = 'advanced.!bigicons
     2011    END
    19622012RETURN
    19632013
    … …  
    19842034    adv_eas        = VRGet( "CB_EAS",        "Set" )
    19852035    adv_readonly   = VRGet( "CB_READONLY",   "Set" )
    1986     adv_loglevel   = VRGet( "SPIN_LOGLEVEL", "Value" )
    1987     adv_logfile    = VRGet( "EF_LOGFILE",    "Value" )
    1988     adv_browseauth = VRGet( "CB_BROWSEAUTH", "Set" )
    1989     adv_browseimme = VRGet( "CB_BROWSEIMME", "Set" )
    1990     adv_debug      = VRGet( "CB_DEBUG",      "Set" )
    19912036    adv_alwaysmp   = VRGet( "CB_ALWAYSMP",   "Set" )
    1992     adv_special    = VRGet( "CB_SPECIAL",    "Set" )
    1993     adv_bigicons   = VRGet( "CB_BIGICONS",   "Set" )
    1994 
    1995     adv_changed  = 1
    1996     if adv_debug == 1 then ok = VRRedirectStdio("ON")
    1997                       else ok = VRRedirectStdio("OFF")
    1998 
    1999     ok = VRset("CN_CURRENT", "MiniIcons", \adv_bigicons)
    2000     ok = VRset("CN_SMBTREE", "MiniIcons", \adv_bigicons)
    2001     ok = VRset("CN_CONDET",  "MiniIcons", \adv_bigicons)
    20022037
    20032038    CALL SW_ADVANCED_Close
    … …  
    25392574RETURN
    25402575
     2576/*:VRX         PB_SETTINGS_CANCEL_Click
     2577*/
     2578PB_SETTINGS_CANCEL_Click:
     2579
     2580    adv_changed = 0
     2581    CALL SW_SETTINGS_Close
     2582
     2583return
     2584
     2585/*:VRX         PB_SETTINGS_HELP_Click
     2586*/
     2587PB_SETTINGS_HELP_Click:
     2588    CALL VRMethod 'SW_SETTINGS', 'InvokeHelp'
     2589return
     2590
     2591/*:VRX         PB_SETTINGS_OK_Click
     2592*/
     2593PB_SETTINGS_OK_Click:
     2594
     2595    adv_loglevel   = VRGet( "SPIN_LOGLEVEL", "Value" )
     2596    adv_logfile    = VRGet( "EF_LOGFILE",    "Value" )
     2597    adv_browseauth = VRGet( "CB_BROWSEAUTH", "Set" )
     2598    adv_browseimme = VRGet( "CB_BROWSEIMME", "Set" )
     2599    adv_debug      = VRGet( "CB_DEBUG",      "Set" )
     2600    adv_special    = VRGet( "CB_SPECIAL",    "Set" )
     2601    adv_bigicons   = VRGet( "CB_BIGICONS",   "Set" )
     2602
     2603    adv_changed  = 1
     2604    if adv_debug == 1 then ok = VRRedirectStdio("ON")
     2605                      else ok = VRRedirectStdio("OFF")
     2606
     2607    ok = VRset("CN_CURRENT", "MiniIcons", \adv_bigicons)
     2608    ok = VRset("CN_SMBTREE", "MiniIcons", \adv_bigicons)
     2609    ok = VRset("CN_CONDET",  "MiniIcons", \adv_bigicons)
     2610
     2611    CALL SW_SETTINGS_Close
     2612
     2613return
     2614
    25412615/*:VRX         PB_UNMOUNT_Click
    25422616*/
    … …  
    27892863   
    27902864    CALL NLVSetText 'SW_ADVANCED',  'Caption', 40
    2791     CALL NLVSetText 'GB_MEM',       'Caption', 41
    2792     CALL NLVSetText 'CB_DEBUG',     'Caption', 42
    27932865    CALL NLVSetText 'GB_MISC',      'Caption', 43
     2866
    27942867    CALL NLVSetText 'CB_EAS',       'Caption', 44
    27952868    CALL NLVSetText 'CB_READONLY',  'Caption', 45
     2869    CALL NLVSetText 'CB_ALWAYSMP',  'Caption', 65
     2870
    27962871    CALL NLVSetText 'PB_ADVOK',     'Caption', 2
    27972872    CALL NLVSetText 'PB_ADVCANCEL', 'Caption', 3
    27982873    CALL NLVSetText 'PB_ADVHELP',   'Caption', 4
    2799     CALL NLVSetText 'CB_LOGGING',   'Caption', 46
    2800     CALL NLVSetText 'GB_GLOBAL',    'Caption', 47
    2801     CALL NLVSetText 'CB_BROWSEIMME','Caption', 48
    2802     CALL NLVSetText 'CB_BROWSEAUTH','Caption', 49
    2803     CALL NLVSetText 'CB_ALWAYSMP',  'Caption', 65
    2804     CALL NLVSetText 'CB_SPECIAL',   'Caption', 66
    2805     CALL NLVSetText 'CB_BIGICONS',  'Caption', 70
    28062874
    28072875    CALL VRSet "SW_ADVANCED", "HelpTag", NLVGetMessage(40)
     2876
     2877    /* Obsolete */
     2878    CALL NLVSetText 'GB_MEM',       'Caption', 41
    28082879
    28092880    IF advanced.!memlen \= '' THEN
    … …  
    28132884    IF advanced.!readonly \= '' THEN
    28142885        CALL VRSet 'CB_READONLY', 'Set', advanced.!readonly
    2815     IF advanced.!logfile \= '' THEN
    2816         CALL VRSet 'EF_LOGFILE', 'Value', advanced.!logfile
    2817     IF advanced.!loglevel \= '0' THEN
    2818         CALL VRSet 'SPIN_LOGLEVEL', 'Value', advanced.!loglevel
    2819 
    2820     CALL VRSet 'CB_LOGGING', 'Set', VRFileExists(SysBootDrive()'\ndpsmb.dbg')
    2821 
    2822     IF advanced.!browseauth \= '' THEN
    2823         CALL VRSet 'CB_BROWSEAUTH', 'Set', advanced.!browseauth
    2824 
    2825     IF advanced.!browseimme \= '' THEN
    2826         CALL VRSet 'CB_BROWSEimme', 'Set', advanced.!browseimme
    2827 
    2828     IF advanced.!debug \= '' THEN
    2829         CALL VRSet 'CB_debug', 'Set', advanced.!debug
    2830 
    28312886    IF advanced.!alwaysmp \= '' THEN
    28322887        CALL VRSet 'CB_alwaysmp', 'Set', advanced.!alwaysmp
    2833 
    2834     IF advanced.!special \= '' THEN
    2835         CALL VRSet 'CB_SPECIAL', 'Set', advanced.!special
    2836 
    2837     IF advanced.!bigicons \= '' THEN
    2838         CALL VRSet 'CB_bigicons', 'Set', advanced.!bigicons
    28392888
    28402889    window = VRInfo( "Object" )
    … …  
    28822931    end
    28832932    drop window
     2933return
     2934
     2935/*:VRX         SW_LOGIN_KeyPress
     2936*/
     2937SW_LOGIN_KeyPress:
     2938    obj = VRInfo( "Object" )
     2939    keystr = VRGet( obj, "KeyString" )
     2940/*  say keystr */
     2941    select
     2942        when keystr = "{Enter}" then ok = VRMethod( "EF_LoginPassword", "SetFocus" )
     2943        when keystr = "{Newline}" then ok = VRMethod( "EF_LoginPassword", "SetFocus" )
     2944        when keystr  = "{Esc}" then call PB_LOGIN_CANCEL_Click
     2945        otherwise nop
     2946    end
    28842947return
    28852948
    … …  
    29062969    ok = VRSet("CB_DRIVES1", "Value", VRGet("CB_Drives","Value"))
    29072970    ok = VRSet("EF_DIRECTORY1", "Value", VRGet("EF_Directory","Value"))
     2971    ok = VRMethod("EF_DIRECTORY1","AddString",p_share)
    29082972    ok = VRSet("CB_ALWAYSMP1","set",advanced.!alwaysmp)
    29092973return
    … …  
    29533017*/
    29543018SW_PROGRESS_Init:
     3019    window = VRInfo( "Object" )
     3020    if( \VRIsChildOf( window, "Notebook" ) ) then do
     3021        call VRMethod window, "CenterWindow"
     3022        call VRSet window, "Visible", 1
     3023        call VRMethod window, "Activate"
     3024    end
     3025    drop window
     3026return
     3027
     3028/*:VRX         SW_SETTINGS_Close
     3029*/
     3030SW_SETTINGS_Close:
     3031    call SW_SETTINGS_Fini
     3032return
     3033
     3034/*:VRX         SW_SETTINGS_Create
     3035*/
     3036SW_SETTINGS_Create:
     3037    call SW_SETTINGS_Init
     3038return
     3039
     3040/*:VRX         SW_SETTINGS_Fini
     3041*/
     3042SW_SETTINGS_Fini:
     3043    window = VRInfo( "Window" )
     3044    call VRDestroy window
     3045    drop window
     3046return
     3047/*:VRX         SW_SETTINGS_Init
     3048*/
     3049SW_SETTINGS_Init:
     3050
     3051    CALL NLVSetText 'SW_SETTINGS',  'Caption', 47
     3052
     3053    CALL NLVSetText 'GB_GLOBAL',    'Caption', 47
     3054    CALL NLVSetText 'CB_DEBUG',     'Caption', 42
     3055    CALL NLVSetText 'CB_LOGGING',   'Caption', 46
     3056    CALL NLVSetText 'CB_BROWSEIMME','Caption', 48
     3057    CALL NLVSetText 'CB_BROWSEAUTH','Caption', 49
     3058    CALL NLVSetText 'CB_SPECIAL',   'Caption', 66
     3059    CALL NLVSetText 'CB_BIGICONS',  'Caption', 70
     3060
     3061    CALL NLVSetText 'PB_SETTINGS_OK',     'Caption', 2
     3062    CALL NLVSetText 'PB_SETTINGS_CANCEL', 'Caption', 3
     3063    CALL NLVSetText 'PB_SETTINGS_HELP',   'Caption', 4
     3064
     3065/*  CALL VRSet "SW_ADVANCED", "HelpTag", NLVGetMessage(40) */
     3066
     3067    IF advanced.!logfile \= '' THEN
     3068        CALL VRSet 'EF_LOGFILE',    'Value', advanced.!logfile
     3069    IF advanced.!loglevel \= '0' THEN
     3070        CALL VRSet 'SPIN_LOGLEVEL', 'Value', advanced.!loglevel
     3071    CALL VRSet 'CB_LOGGING', 'Set', VRFileExists(SysBootDrive()'\ndpsmb.dbg')
     3072    IF advanced.!browseauth \= '' THEN
     3073        CALL VRSet 'CB_BROWSEAUTH', 'Set', advanced.!browseauth
     3074    IF advanced.!browseimme \= '' THEN
     3075        CALL VRSet 'CB_BROWSEimme', 'Set', advanced.!browseimme
     3076    IF advanced.!debug \= '' THEN
     3077        CALL VRSet 'CB_debug',      'Set', advanced.!debug
     3078    IF advanced.!special \= '' THEN
     3079        CALL VRSet 'CB_SPECIAL',    'Set', advanced.!special
     3080    IF advanced.!bigicons \= '' THEN
     3081        CALL VRSet 'CB_bigicons',   'Set', advanced.!bigicons
     3082
     3083
    29553084    window = VRInfo( "Object" )
    29563085    if( \VRIsChildOf( window, "Notebook" ) ) then do

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

    r326 r328  
    5151EVG0045I: Nur-Lesen Verbindung
    5252EVG0046I: Protokollierung
    53 EVG0047I: Globale Optionen
     53EVG0047I: Globale Einstellungen
    5454EVG0048I: Netzwerkumgebung sofort aktualisieren
    5555EVG0049I: Fr Browsing authentifizieren
    … …  
    7676EVG0069I: R/W
    7777EVG0070I: Groáe Symbole
    78 EVG0071?:
     78EVG0071I: Mehrfachverbindung, entfernen nicht m”glich!
    7979EVG0072?:
    8080EVG0073?:

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

    r326 r328  
    7676EVG0069I: R/W
    7777EVG0070I: Large icons
    78 EVG0071?:
     78EVG0071I: Multiple connections, cannot remove!
    7979EVG0072?:
    8080EVG0073?:

  • branches/guitools-2.0/shared/smbtree.vrs

    r327 r328  
    156156    text = translate(arg(1))
    157157    select /* Printer guessing */
    158         when pos('LJ',text)      > 0 then res = '#65:PMWP.DLL'
    159         when pos('LASER',text)   > 0 then res = '#65:PMWP.DLL'
    160         when pos('EPSON',text)   > 0 then res = '#65:PMWP.DLL'
    161         when pos('PRINT',text)   > 0 then res = '#65:PMWP.DLL'
    162         when pos('PRT',text)     > 0 then res = '#65:PMWP.DLL'
    163         when pos('CANON',text)   > 0 then res = '#65:PMWP.DLL'
    164         when pos('MINOLTA',text) > 0 then res = '#65:PMWP.DLL'
    165         when pos('FAX',text)     > 0 then res = '#65:PMWP.DLL'
    166         when pos('LEXMARK',text) > 0 then res = '#65:PMWP.DLL'
    167         when pos('IPC$',text)    > 0 then res = '#59:PMWP.DLL'
    168         when pos('GHOSTPDF',text)> 0 then res = '#65:PMWP.DLL'
    169         when pos('PDF',text)     > 0 & ,
    170              pos('WRI',text)     > 0 then res = '#65:PMWP.DLL'
     158        when pos('PS3',text)        > 0 then res = '#65:PMWP.DLL'
     159        when pos('PCL5',text)       > 0 then res = '#65:PMWP.DLL'
     160        when pos('PCL6',text)       > 0 then res = '#65:PMWP.DLL'
     161        when pos('PSCRIPT',text)    > 0 then res = '#65:PMWP.DLL'
     162        when pos('POSTSCRIPT',text) > 0 then res = '#65:PMWP.DLL'
     163        when pos('LJ',text)         > 0 then res = '#65:PMWP.DLL'
     164        when pos('LASER',text)      > 0 then res = '#65:PMWP.DLL'
     165        when pos('EPSON',text)      > 0 then res = '#65:PMWP.DLL'
     166        when pos('PRINT',text)      > 0 then res = '#65:PMWP.DLL'
     167        when pos('PRT',text)        > 0 then res = '#65:PMWP.DLL'
     168        when pos('CANON',text)      > 0 then res = '#65:PMWP.DLL'
     169        when pos('MINOLTA',text)    > 0 then res = '#65:PMWP.DLL'
     170        when pos('FAX',text)        > 0 then res = '#65:PMWP.DLL'
     171        when pos('LEXMARK',text)    > 0 then res = '#65:PMWP.DLL'
     172        when pos('IPC$',text)       > 0 then res = '#59:PMWP.DLL'
     173        when pos('GHOSTPDF',text)   > 0 then res = '#65:PMWP.DLL'
     174        when pos('PDF',text)        > 0 & ,
     175             pos('WRI',text)        > 0 then res = '#65:PMWP.DLL'
    171176        otherwise res = "#34:PMWP.DLL"
    172177    end
Note: See TracChangeset for help on using the changeset viewer.