Stringscan

Check-in [c51392b042]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:More tweaks
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:c51392b04248df107e7dff3019bc3c5f41783c3533927a8d368a14fb98760b6c
User & Date: kevin 2017-06-20 03:15:05
Context
2017-06-20
03:20
More tweaks check-in: 19c9e4e75a user: kevin tags: trunk
03:15
More tweaks check-in: c51392b042 user: kevin tags: trunk
03:10
Update stringscan.rb check-in: f0321c7428 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
...
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
...
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
    end

    #image data
    $folderdata = 'R0lGODlhGAAYAIABAAQHB////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7uC8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw=='

    $glassdata = 'R0lGODlhGAAYAIABAAAAAP///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAJHjI8Gy+nJYntQWkBVRDLv9zkTNXKleAYhuaBYpr2m7LWVXdOxfvMd67OATpeJcFa89JK/A1O5PMJUySlyZaVis1oel/o9FAAAOw=='

    $folderimage = tkphotoimage.new(:data => $folderdata)
    $glassimage = tkphotoimage.new(:data => $glassdata)

    $icondata = 'R0lGODlhQABAAOf/AB8jJSktLyUvLyouMCsvMSwwMi0xMy4yNC8zNS80NjI2ODU5Ozc7PT5APjxBQz5CRUJEQUJGSERJS0hKR0ZLTUBPX0tPUk9QTk5SVFBST0dVZlJUUVBVV1RVU0NZaFJXWVVXVVZYVUdab1dZVlVaXFhaV1lbWFpcWVhcX0tedFtdWi1kplxeW09hbF5fXTZlm1xgYzhloUlkeV9hXkhlhWBiX15jZWFjYE9mgT1opWJkYTRsp2NlYmRlY2VmZGZnZWNoaj9to1FsgU9sjGdpZlRsh2VqbGhqZ2lraElvoGpsaVNwkWttamltcF5we1lwjEZzqm1vbFFzmW5wbWxwc1l0iVh0lXByb25ydVR2nHJzcUt5qk14sHB0d2V3gnN1clx4mUh7uFt6lXV3dHN3ell7oWZ5kFh9nVZ9qXd5dnp5cVKAsXl7eFt/slaAuWN/oGx/il+Ap3h9f3t9enx+e2GCqX1/fH+BfmWGrXeGjIKEgWKJtmmJpIOFgoGFiHKImW6Jn4SGg4eGfnaJlWWLuIWHhHyIlWOOs2mNrluPx2yNtXSMqIiKh3eOnomLiHGQq4uMiXyPm3+PlYyOi4+OhnGSuY6QjXmUqpKRiX6VppCSj3eWspKUkXuXun2YrpSWk3Gd0H+bvpGZoXedyoWcrZeZloKdtH6euZqcmXyhwpyem4yjtImlu4ykwaCin4Gn1YyovqSlooqqxpGoxqaopYiu3Jauv6mrqKOstJqtxZWwx6utqp2wyaGww7Cvpoy13a+xrqeywLK0sa63v6i4y7W3tKy4xaG94aK+1bm7uLC8yrS8xJ3C5L2/vLbBz7rCysPFwr7Hz7zI1sjKx8PM1MHN27zQ6cfP2M7Qzc3S1MfT4cvT28nV483W3tLX2cra7tfZ1s/b6dPb5N7Z2Nvd2tLe7c/f89jg6dXh79/h3uLk4dnl8+nj4uTm49/o8N3p9+3o5ufq5uLr8+rs6PHr6uXu9u3v6+nx+u7x7e3y9fHz8Pjz8fb49Pn7+P3//P///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAABAAEAAAAj+AP8JHEiw4EAECBMiOMBQIUKDECNKnCgw4YEBAhZI+GCjCRk5fgr5ucOmCxASFBQEKPCQokuJCQcowGBETylgxXIWE7brVqyftHYBS0Y02S5NXzAQOIDgpdOKCDBo4XTrFq1SkOZM6XEig9evYDOU4KFFz6dbwHbpwTCg6VOKB+zEUlXoy4wMGzqE6HDixg8kSgIjIcJjxgi9IRJvyHCDjqpbpT4QcPsW4gE2kzIgThxCRxQtW1VwPlEDyRctTG5wXp2hhyVakBhQrkzwMqQNnDuwmHJlhAMDTBUeMIAggokrU1hs5rzhBypVFmbT/mcb994bV2YoaBkRoQIVWmr+rB4PyRWKA9MHHkhzO/EMLRuYOl0oVfR4xXZUkZD+dj0j3CNM8YF8/c3AxHKrbUAHKhHw59QBY/zXwRFEEPgWAgxoYd99IWwACSMEpAdhIRuYoMUDDr5UwBSqceheKRikCNcXjMyAhA/opWfAETy4qFggaeRY2QFTBBLFFBTI6NKOPfoYwhSaFDAdAgYQYABL6QnEpJMh1MCJA0pm+dSWTo6gSXRipvmPAUr0wGUHlnAQJm0KVUnAAHgSoOeeBAQwBxPjjSDooB1Msp+aUMmEARBj6AGJJZBOAsmHhQSixx16FDJDCZx26qkJIUByaJpUMtDEJz3FwgkketDBRhr+aYwxxhe0njbFpiZ8asKuJpwwAiQlzDnRQg8wwpMlX7hg3QglDLrrCdCqoMIJJTwLba/QRluCqMJ2h8AdRtEhaK6c7loDEUzQqoYabMxBhx13pCFttidIay8LJjAyKm0HYFBMMn2EYO21N0TxhQ8dTBDBwgxHIIEeUajAwsQSTzyxCyfo221BBGABDS0z0DvttEp8ccICwTmEUAF2fGExCy7ELPMMKjDywcbqUQGNJSHYKy3FBqOoZAF6jOHCDEgnrTQLhdxcWVTNWGJCxRa7wAISaYDpEgGFsKH010i7UEgIOP8zgE8mXCzz0TOwQfZLBDAyxww11G333TME4vT+UwjAUMwRYCfNhB3cTUQAJHbcfcPii+ugQw197O1UAZqowkLgSLPxQ7cEWHLHDY6D7vjoOtygh+QvGQBM4nfjXUiMTg2giSCk82C77T30oIMecvItATBM2M044z5AEsEA/+jhSjLTTNPMLZAEQtAAnwjCQ+7X5567Dz3woEcHGyNAwi2ik+44D0pggoEf0/TDTzzwxBOPPv6ko4r0ZpfCiPY+9O+/Dz/owffCB4NYzGB0t8MdExhRDH/EYxy8qMQa2qCIXHijHf4AByTMpgpIAPAHIAxhCH1wh97NxwauqAH2tIe9NGCDH+ToxArCkIhXvCIRYViBIrxhD31YggH+tygECIlAxCIW8Qd2MOFLEIACV9xge//zwRemoY9s7MANzEBHPeTxjnVYoxaJyEE05ucHX9ihiEdIIxGOgAQ1ljB8GFCFCEXIhFv0Ixs5KIM57nGPLbpjHegoxzFAsYJo5IMcmrhCGtmIhEYCJjBH4F34IoCKKQzxiHbgBzugcAhnyIOPffwjOszxjV+AIgfk8McttBCYVraSCYIZYH9KkYY1LpIIURCGPXKxBmR04xz1CKY8RElKU24hFPNohx1eyYRmOhOWkcOZAewQiDU6EmvkaAcUEBEOcWwDmMMEZDnC8Y1RvOENOUgHP1TxzHY6M2A4E58llPBIeuoBH1b+PAU3wrGNa3zTHehARzi00YslgCEVa1AGPooxhig49KFHmsIUmBCIt/ENAYhTgjORUIp4EGMLsKgGN7wZjWc8YxnKCEYwzMAHWchiD62IxzTSEFGJ2lSiUWiaylwiPkhc4ZmxaEcu0AALaUijGt3wJjVK+gxj2EIXrNhEGULRDmxo5aYSvYJWizSFhVGAAhIQlgHGEIgpOJQJsYgHL9BwCme49RnR8Oc2thGNVZDiEpcQgxRCwQ6r8karWtUCYK/Ahk/EAhjNgMY0ArBEBLChD1+YaCns4QwoPEIZmF2GZocxDFHAoRGZAEQRnpAEXqgDGmm4ghZWu9panYZWbGD+Ax0CoYkQNVYLXSuSPtKRg0eYohfGMMYwcCGKPBgiEo2oggyKYIUYZCMeu5iDdKdLXenS4brX1cMkbPuS4ZCAEYXQAzjiQQg8LAIQgPjDHwYRCUlIwgkeSAEOhiAFLsBjHoyYFCUoMYn++ve//63tWwKAAAW4wA52vEYOPMHgTGRiEF5oQQU0IAIaDKG5zsDHND6Apw57+MMfLpvZEDCAMcSDHq1IghiqIIQUiMADIqjwEJaQhSQoAh766MMAAMDjHgMAURKJQCz6AY9KvOAJTyjCEqQghSVn4QxBaAM7+nGLEQC5MnNIhgNnsYItKAIPdYhDHOqwhRWEAh79UIfyOnahgiu/RQ/N6Mc+vNGJHaxgB3bOgSKugY9+pAMcluhDLELg5qcU4hbx6Ic+6JENt16DHvTDhyug0ZNS6MGAhX7KJJKhDn3wox+g1kc8isGEDZTiFqrYBSoEzQQIZNopdrBELHaxi1gwogYdEAgEILGLU7uiEKqgg6tfnSYIpEEYp44FJDgxiWETW0xEKEYpaEGL/pZiAs9O0wmkHYtbaIIRrshAticSD3vYYx7qgEgGgFGKbt8im9get0HmF+p4kAMiE6CFKmKRjmzOQd5ZggAqmkEOcsSDCQDPUgNKgQ98AKMBCRfTBTIA8Yhb/OKICggAOw=='
    $icon = tkphotoimage.new(:data => $icondata)
 
    #initialize variables for entry
    $dirname = TkVariable.new
    $searchterm = TkVariable.new
    #top window and frame

    Tk::TkDND::DND
................................................................................

#check version of installed software
def getReg
  tk.tk_call('regproc::getReg')
end

#user help
def showhelp
  tk.tk_call('machelp::showhelp')
end
  
 
  #here we initialize our app class
def initialize

................................................................................
                                   $dirname = filename
                                   $direntry.value = filename
                                 end
                               rescue
                                 raise
                               end
                          })    
          Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setdir} $args}")
          Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{tk.install_cmd(proc{showhelp})}}")
        end        
    drawgui()
  end             
end
 
app = StringscanApp.new()
Tk.mainloop()








|
|


|







 







|







 







|
|








66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
...
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
...
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
    end

    #image data
    $folderdata = 'R0lGODlhGAAYAIABAAQHB////yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAI1hI8Wy70JgZshJurOtFzmHm0ghJXVZVJkKo7uC8cr28z0g944ojP2/aMFWcNU0SRLxk5KSQEAOw=='

    $glassdata = 'R0lGODlhGAAYAIABAAAAAP///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAAEALAAAAAAYABgAAAJHjI8Gy+nJYntQWkBVRDLv9zkTNXKleAYhuaBYpr2m7LWVXdOxfvMd67OATpeJcFa89JK/A1O5PMJUySlyZaVis1oel/o9FAAAOw=='

    $folderimage = TkPhotoImage.new(:data => $folderdata)
    $glassimage = TkPhotoImage.new(:data => $glassdata)

    $icondata = 'R0lGODlhQABAAOf/AB8jJSktLyUvLyouMCsvMSwwMi0xMy4yNC8zNS80NjI2ODU5Ozc7PT5APjxBQz5CRUJEQUJGSERJS0hKR0ZLTUBPX0tPUk9QTk5SVFBST0dVZlJUUVBVV1RVU0NZaFJXWVVXVVZYVUdab1dZVlVaXFhaV1lbWFpcWVhcX0tedFtdWi1kplxeW09hbF5fXTZlm1xgYzhloUlkeV9hXkhlhWBiX15jZWFjYE9mgT1opWJkYTRsp2NlYmRlY2VmZGZnZWNoaj9to1FsgU9sjGdpZlRsh2VqbGhqZ2lraElvoGpsaVNwkWttamltcF5we1lwjEZzqm1vbFFzmW5wbWxwc1l0iVh0lXByb25ydVR2nHJzcUt5qk14sHB0d2V3gnN1clx4mUh7uFt6lXV3dHN3ell7oWZ5kFh9nVZ9qXd5dnp5cVKAsXl7eFt/slaAuWN/oGx/il+Ap3h9f3t9enx+e2GCqX1/fH+BfmWGrXeGjIKEgWKJtmmJpIOFgoGFiHKImW6Jn4SGg4eGfnaJlWWLuIWHhHyIlWOOs2mNrluPx2yNtXSMqIiKh3eOnomLiHGQq4uMiXyPm3+PlYyOi4+OhnGSuY6QjXmUqpKRiX6VppCSj3eWspKUkXuXun2YrpSWk3Gd0H+bvpGZoXedyoWcrZeZloKdtH6euZqcmXyhwpyem4yjtImlu4ykwaCin4Gn1YyovqSlooqqxpGoxqaopYiu3Jauv6mrqKOstJqtxZWwx6utqp2wyaGww7Cvpoy13a+xrqeywLK0sa63v6i4y7W3tKy4xaG94aK+1bm7uLC8yrS8xJ3C5L2/vLbBz7rCysPFwr7Hz7zI1sjKx8PM1MHN27zQ6cfP2M7Qzc3S1MfT4cvT28nV483W3tLX2cra7tfZ1s/b6dPb5N7Z2Nvd2tLe7c/f89jg6dXh79/h3uLk4dnl8+nj4uTm49/o8N3p9+3o5ufq5uLr8+rs6PHr6uXu9u3v6+nx+u7x7e3y9fHz8Pjz8fb49Pn7+P3//P///yH+EUNyZWF0ZWQgd2l0aCBHSU1QACH5BAEKAP8ALAAAAABAAEAAAAj+AP8JHEiw4EAECBMiOMBQIUKDECNKnCgw4YEBAhZI+GCjCRk5fgr5ucOmCxASFBQEKPCQokuJCQcowGBETylgxXIWE7brVqyftHYBS0Y02S5NXzAQOIDgpdOKCDBo4XTrFq1SkOZM6XEig9evYDOU4KFFz6dbwHbpwTCg6VOKB+zEUlXoy4wMGzqE6HDixg8kSgIjIcJjxgi9IRJvyHCDjqpbpT4QcPsW4gE2kzIgThxCRxQtW1VwPlEDyRctTG5wXp2hhyVakBhQrkzwMqQNnDuwmHJlhAMDTBUeMIAggokrU1hs5rzhBypVFmbT/mcb994bV2YoaBkRoQIVWmr+rB4PyRWKA9MHHkhzO/EMLRuYOl0oVfR4xXZUkZD+dj0j3CNM8YF8/c3AxHKrbUAHKhHw59QBY/zXwRFEEPgWAgxoYd99IWwACSMEpAdhIRuYoMUDDr5UwBSqceheKRikCNcXjMyAhA/opWfAETy4qFggaeRY2QFTBBLFFBTI6NKOPfoYwhSaFDAdAgYQYABL6QnEpJMh1MCJA0pm+dSWTo6gSXRipvmPAUr0wGUHlnAQJm0KVUnAAHgSoOeeBAQwBxPjjSDooB1Msp+aUMmEARBj6AGJJZBOAsmHhQSixx16FDJDCZx26qkJIUByaJpUMtDEJz3FwgkketDBRhr+aYwxxhe0njbFpiZ8asKuJpwwAiQlzDnRQg8wwpMlX7hg3QglDLrrCdCqoMIJJTwLba/QRluCqMJ2h8AdRtEhaK6c7loDEUzQqoYabMxBhx13pCFttidIay8LJjAyKm0HYFBMMn2EYO21N0TxhQ8dTBDBwgxHIIEeUajAwsQSTzyxCyfo221BBGABDS0z0DvttEp8ccICwTmEUAF2fGExCy7ELPMMKjDywcbqUQGNJSHYKy3FBqOoZAF6jOHCDEgnrTQLhdxcWVTNWGJCxRa7wAISaYDpEgGFsKH010i7UEgIOP8zgE8mXCzz0TOwQfZLBDAyxww11G333TME4vT+UwjAUMwRYCfNhB3cTUQAJHbcfcPii+ugQw197O1UAZqowkLgSLPxQ7cEWHLHDY6D7vjoOtygh+QvGQBM4nfjXUiMTg2giSCk82C77T30oIMecvItATBM2M044z5AEsEA/+jhSjLTTNPMLZAEQtAAnwjCQ+7X5567Dz3woEcHGyNAwi2ik+44D0pggoEf0/TDTzzwxBOPPv6ko4r0ZpfCiPY+9O+/Dz/owffCB4NYzGB0t8MdExhRDH/EYxy8qMQa2qCIXHijHf4AByTMpgpIAPAHIAxhCH1wh97NxwauqAH2tIe9NGCDH+ToxArCkIhXvCIRYViBIrxhD31YggH+tygECIlAxCIW8Qd2MOFLEIACV9xge//zwRemoY9s7MANzEBHPeTxjnVYoxaJyEE05ucHX9ihiEdIIxGOgAQ1ljB8GFCFCEXIhFv0Ixs5KIM57nGPLbpjHegoxzFAsYJo5IMcmrhCGtmIhEYCJjBH4F34IoCKKQzxiHbgBzugcAhnyIOPffwjOszxjV+AIgfk8McttBCYVraSCYIZYH9KkYY1LpIIURCGPXKxBmR04xz1CKY8RElKU24hFPNohx1eyYRmOhOWkcOZAewQiDU6EmvkaAcUEBEOcWwDmMMEZDnC8Y1RvOENOUgHP1TxzHY6M2A4E58llPBIeuoBH1b+PAU3wrGNa3zTHehARzi00YslgCEVa1AGPooxhig49KFHmsIUmBCIt/ENAYhTgjORUIp4EGMLsKgGN7wZjWc8YxnKCEYwzMAHWchiD62IxzTSEFGJ2lSiUWiaylwiPkhc4ZmxaEcu0AALaUijGt3wJjVK+gxj2EIXrNhEGULRDmxo5aYSvYJWizSFhVGAAhIQlgHGEIgpOJQJsYgHL9BwCme49RnR8Oc2thGNVZDiEpcQgxRCwQ6r8karWtUCYK/Ahk/EAhjNgMY0ArBEBLChD1+YaCns4QwoPEIZmF2GZocxDFHAoRGZAEQRnpAEXqgDGmm4ghZWu9panYZWbGD+Ax0CoYkQNVYLXSuSPtKRg0eYohfGMMYwcCGKPBgiEo2oggyKYIUYZCMeu5iDdKdLXenS4brX1cMkbPuS4ZCAEYXQAzjiQQg8LAIQgPjDHwYRCUlIwgkeSAEOhiAFLsBjHoyYFCUoMYn++ve//63tWwKAAAW4wA52vEYOPMHgTGRiEF5oQQU0IAIaDKG5zsDHND6Apw57+MMfLpvZEDCAMcSDHq1IghiqIIQUiMADIqjwEJaQhSQoAh766MMAAMDjHgMAURKJQCz6AY9KvOAJTyjCEqQghSVn4QxBaAM7+nGLEQC5MnNIhgNnsYItKAIPdYhDHOqwhRWEAh79UIfyOnahgiu/RQ/N6Mc+vNGJHaxgB3bOgSKugY9+pAMcluhDLELg5qcU4hbx6Ic+6JENt16DHvTDhyug0ZNS6MGAhX7KJJKhDn3wox+g1kc8isGEDZTiFqrYBSoEzQQIZNopdrBELHaxi1gwogYdEAgEILGLU7uiEKqgg6tfnSYIpEEYp44FJDgxiWETW0xEKEYpaEGL/pZiAs9O0wmkHYtbaIIRrshAticSD3vYYx7qgEgGgFGKbt8im9get0HmF+p4kAMiE6CFKmKRjmzOQd5ZggAqmkEOcsSDCQDPUgNKgQ98AKMBCRfTBTIA8Yhb/OKICggAOw=='
    $icon = TkPhotoImage.new(:data => $icondata)
 
    #initialize variables for entry
    $dirname = TkVariable.new
    $searchterm = TkVariable.new
    #top window and frame

    Tk::TkDND::DND
................................................................................

#check version of installed software
def getReg
  tk.tk_call('regproc::getReg')
end

#user help
def showHelp
  tk.tk_call('machelp::showhelp')
end
  
 
  #here we initialize our app class
def initialize

................................................................................
                                   $dirname = filename
                                   $direntry.value = filename
                                 end
                               rescue
                                 raise
                               end
                          })    
          Tk.ip_eval("proc ::tk::mac::OpenDocument {args} {#{setDir} $args}")
          Tk.ip_eval("proc ::tk::mac::ShowHelp {} {#{Tk.install_cmd(proc{showHelp})}}")
        end        
    drawgui()
  end             
end
 
app = StringscanApp.new()
Tk.mainloop()