Stringscan

Check-in [0d4fb93e31]
Login

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

Overview
Comment:Fix for fullscreen after code changes on macOS
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 0d4fb93e317f019ba0b9052e938335b0bef755731426f083ee5245b5a7231660
User & Date: kevin 2017-09-23 01:49:14
Context
2017-09-23
02:56
Update screen shots check-in: 90f7921dc6 user: kevin tags: trunk
01:49
Fix for fullscreen after code changes on macOS check-in: 0d4fb93e31 user: kevin tags: trunk
2017-09-22
03:00
User documentation update for 1.1 check-in: 701f3e2aed user: kevin tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to stringscan.rb.

137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
    $searchterm = TkVariable.new
    #top window and frame
    Tk::TkDND::DND
    $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







|
<
<







137
138
139
140
141
142
143
144


145
146
147
148
149
150
151
    $searchterm = TkVariable.new
    #top window and frame
    Tk::TkDND::DND
    $root = TkRoot.new {
        title "Stringscan"
    }
    $root.iconphoto_default($icon)
   


        $root.withdraw
        #menu
    $menubar = TkMenu.new($root)
    TkOption.add '*tearOff', 0
    if $platform == 'aqua'
        $appmenu = TkSysMenu_Apple.new($menubar)
        $menubar.add :cascade, :menu => $appmenu
281
282
283
284
285
286
287



288
289
290
291
292
293
294
    $root.bind("#{$accelkey}-O", proc{choosedir})
    $root.bind("#{$accelkey}-o", proc{choosedir})
    $root.bind("#{$accelkey}-R", proc{stringgrep})
    $root.bind("#{$accelkey}-r", proc{stringgrep})

    $root.update
    $root.deiconify




end


#select search directory
def choosedir
    $tbox.configure('state'=>'normal')







>
>
>







279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
    $root.bind("#{$accelkey}-O", proc{choosedir})
    $root.bind("#{$accelkey}-o", proc{choosedir})
    $root.bind("#{$accelkey}-R", proc{stringgrep})
    $root.bind("#{$accelkey}-r", proc{stringgrep})

    $root.update
    $root.deiconify
     if $platform == 'aqua'
        Tk.tk_call('fullscreen::fullscreen', $root)
    end

end


#select search directory
def choosedir
    $tbox.configure('state'=>'normal')