Stringscan

Check-in [224e27ac1f]
Login

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

Overview
Comment:More work on Windows
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 224e27ac1ffb6f02364b75d11d6170cefaac5018dedd6136ff08d41573d2b8d8
User & Date: kevin 2020-05-09 19:06:34
Context
2020-05-11
01:44
Tweaks for Windows build check-in: 7da71d67c6 user: kevin tags: trunk
2020-05-09
19:06
More work on Windows check-in: 224e27ac1f user: kevin tags: trunk
18:50
Remove obsolete packages check-in: ee211b714f user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
    $bottomframe.add($bottomleftframe)
    $bottomframe.add($bottomrightframe)   
    $labelframe = Tk::Tile::Frame.new($root).pack('side'=>'bottom', 'fill'=>'both', 'expand' => 'no')
    $bottomlabel = Tk::Tile::Label.new($labelframe) {text "No data displayed"}.pack('side' => 'left','fill' => 'both','expand' => 'no')
    $bottomsep = Tk::Tile::Separator.new($root) { orient 'horizontal' }.pack('side'=> 'bottom', 'fill'=>'both')

    if $platform == 'win32'
            $root.protocol(:WM_DELETE_WINDOW){
      proc{shutdown}
      }
    end
      if $platform == 'aqua'
            $root.protocol(:WM_DELETE_WINDOW){
          $root['state'] = 'withdrawn'
        }
        $root.bind("#{$accelkey}-W", proc{$root['state'] = 'withdrawn'})







|
|







337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
    $bottomframe.add($bottomleftframe)
    $bottomframe.add($bottomrightframe)   
    $labelframe = Tk::Tile::Frame.new($root).pack('side'=>'bottom', 'fill'=>'both', 'expand' => 'no')
    $bottomlabel = Tk::Tile::Label.new($labelframe) {text "No data displayed"}.pack('side' => 'left','fill' => 'both','expand' => 'no')
    $bottomsep = Tk::Tile::Separator.new($root) { orient 'horizontal' }.pack('side'=> 'bottom', 'fill'=>'both')

    if $platform == 'win32'
        $root.protocol(:WM_DELETE_WINDOW){
      shutdown
      }
    end
      if $platform == 'aqua'
            $root.protocol(:WM_DELETE_WINDOW){
          $root['state'] = 'withdrawn'
        }
        $root.bind("#{$accelkey}-W", proc{$root['state'] = 'withdrawn'})