Stringscan

Check-in [28f8803fe4]
Login

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

Overview
Comment:Code formatting and cleanup
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256:28f8803fe4042faa31b4c906b14f12958b9989c11cba829d039f8e1803e836d5
User & Date: kevin 2017-09-19 11:43:46
Context
2017-09-20
02:47
UI tweaks check-in: 8af3877f02 user: kevin tags: trunk
2017-09-19
11:43
Code formatting and cleanup check-in: 28f8803fe4 user: kevin tags: trunk
03:13
Update file for 1.1 check-in: d9d50ad502 user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Show Whitespace Changes Patch

Changes to stringscan.rb.

142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
    $root = TkRoot.new {
        title "Stringscan"
    }
        $root.iconphoto_default($icon)
        if $platform == 'aqua'
        Tk.tk_call('fullscreen::fullscreen', $root)
        end
        
     $root.withdraw
        
        #menu
    $menubar = TkMenu.new($root)
    TkOption.add '*tearOff', 0
    if $platform == 'aqua'
        $appmenu = TkSysMenu_Apple.new($menubar)
        $menubar.add :cascade, :menu => $appmenu
        $appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}







<
|
<







142
143
144
145
146
147
148

149

150
151
152
153
154
155
156
    $root = TkRoot.new {
        title "Stringscan"
    }
    $root.iconphoto_default($icon)
    if $platform == 'aqua'
        Tk.tk_call('fullscreen::fullscreen', $root)
    end

        $root.withdraw

        #menu
    $menubar = TkMenu.new($root)
    TkOption.add '*tearOff', 0
    if $platform == 'aqua'
        $appmenu = TkSysMenu_Apple.new($menubar)
        $menubar.add :cascade, :menu => $appmenu
        $appmenu.add :command, :label => 'About Stringscan', :command=> proc{aboutWindow}