Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Further refinements to Windows build |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
a1be26d00c69c5126746f763c6b48fd2 |
| User & Date: | kevin 2017-07-09 20:37:47 |
Context
|
2017-07-09
| ||
| 20:43 | More Windows tweaks check-in: 00a170d167 user: kevin tags: trunk | |
| 20:37 | Further refinements to Windows build check-in: a1be26d00c user: kevin tags: trunk | |
| 05:02 | More tweaks for Windows check-in: 81def18f46 user: kevin tags: trunk | |
Changes
Changes to stringscan.rb.
1 2 3 4 5 6 7 8 9 10 | #Stringscan: grep-like tool, written in Ruby-Tk. (c) 2017 Kevin Walzer/WordTech Communications LLC. License: MIT license. #encoding: UTF-8 require 'tk' require_relative 'tkballoonhelp' require 'tkextlib/tile' require 'find' require 'tkextlib/tcllib/tablelist_tile' require 'mime/types' | > > < < < < < < > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
#Stringscan: grep-like tool, written in Ruby-Tk. (c) 2017 Kevin Walzer/WordTech Communications LLC. License: MIT license.
#encoding: UTF-8
require 'tk'
#find additional Tcl libraries
Tk::AUTO_PATH.list <<= File.dirname(__FILE__)
require_relative 'tkballoonhelp'
require 'tkextlib/tile'
require 'find'
require 'tkextlib/tcllib/tablelist_tile'
require 'mime/types'
require 'tkextlib/tkDND'
$platform = Tk.windowingsystem
if $platform == 'aqua'
TkPackage.require('windowlist')
TkPackage.require('fullscreen')
require 'tk/tk_mac'
end
TkPackage.require('regproc')
TkPackage.require('machelp')
TkPackage.require('softwareupdate')
TkPackage.require('xplat')
if $platform == 'aqua'
|
| ︙ | ︙ | |||
128 129 130 131 132 133 134 |
#top window and frame
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
| > | > | 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 |
#top window and frame
Tk::TkDND::DND
$root = TkRoot.new {
title "Stringscan"
}
if $platform == 'aqua'
Tk.tk_call('fullscreen::fullscreen', $root)
end
#menu
$menubar = TkMenu.new($root)
TkOption.add '*tearOff', 0
if $platform == 'aqua'
$appmenu = TkSysMenu_Apple.new($menubar)
$menubar.add :cascade, :menu => $appmenu
|
| ︙ | ︙ |