search for: borderwidth

...if (left > right || top > bottom) + { + /* no overlap */ + return 0; + } + + return (right - left) * (bottom - top); +} + int outputDeviceForGeometry (CompScreen *s, int x, @@ -3961,26 +3983,64 @@ outputDeviceForGeometry (CompScreen *s, int height, int borderWidth) { - int output = s->currentOutputDev; - int x1, y1, x2, y2; + int *overlapAreas; + int i, highest, seen, highestScore; + BOX geomRect; + + if (s->nOutputDev == 1) + return 0; - width += borderWidth * 2; - height += borderWidth * 2; + overl...

...onfigure the margin layout on tcl/tk GUI objects like tkcanvas, tkframe or tktoplevel. For example, if I want to leave a larger margin on the left side of the GUI container, which one should I configure, the toplevel or tkcanvas or tkframe? top<-tktoplevel() canvas<-tkcanvas(top, relief=, borderwidth=...) I also find the documentation for all the possible arguments that could be passed to tktoplevel, tkframe, tkcanvas, tk.wm, tkconfigure is not good. I wonder if there are good resource for it... at the very least, I know I need to look at what arguments that tck/tk takes... but I don't...

...e this: ------------------- | | | | | C | | A |--------| | | | ---------- D | | | | | B | | ------------------- A is 2x2 C is 1x2 B is 1x2 D is 2x2 but the code bellow dont work : require(tcltk) tt <- tktoplevel(borderwidth=10) A.but <- tkbutton(tt,text="A",command=function()ls()) B.but <- tkbutton(tt,text="B",command=function()ls()) C.but <- tkbutton(tt,text="C",command=function()ls()) D.but <- tkbutton(tt,text="D",command=function()ls()) tkgrid(A.but,row=1,colum...

Hello, i'm trying to translate following tcltk source code, which I found in newsgroup comp.lang.tcl, written by Tom Wilkason, into R Code. proc scrolled_Canvas {base} { frame $base.fm -borderwidth 2 -relief sunken canvas $base.fm.cv -yscrollcommand "$base.fm.cv_vertscrollbar set" scrollbar $base.fm.cv_vertscrollbar -orient vertical \ -command "$base.fm.cv yview" pack $base.fm.cv -side left -fill both -expand true pack $base.fm.cv_vertscrollbar -side right...

...=> ''container'', :zoomType => ''x'', :margin => [330, 30, 30, 80], :events => { :load => addDetailToContainer, Highchart.line({ :chart => { :borderWidth => 0, :backgroundColor => ''#000000'', :renderTo => "details-chart", :height => 330, :margin => [80, 30, 20, 80], :style => { :position => ''absol...

...w. I searched the web for some examples but my results were unsatisfactory. Thank you and have a great day ahead. #my code library(tcltk) rm(list=ls()) top <- tktoplevel(padx=70, pady=70) frameOverall <- tkframe(top) frameUpper <- tkframe(frameOverall,relief="groove",borderwidth=2) back_but <- tkbutton (frameUpper, text = "BACK", width=20, height=1, default="active", overrelief="flat",anchor="w", borderwidth=4 ) tkgrid(frameUpper) tkgrid(frameOverall) tkpack (frameUpper, back_but, side='left', anchor='n') tkgr...

...to load the object (in a fresh R session) fails as below. R> library(SC) R> setwd("/path/to/results/") R> load("sc-results.rda") Loading Tcl/Tk interface ... done Error: .onLoad failed in loadNamespace() for 'SCUI', details: call: optiondb_add("*Notebook.borderWidth", 2, "widgetDefault") error: could not find function "tcl" That call (which adds resource to Tcl resource database) is made inside SCUI. Loading tcltk package removes the problem. R> library(tcltk) R> load("sc-results.rda") R> ls() [1] "results&q...

...eally map these functions automatically - it works fine under Windows. Is there an easy way to map copy&paste functions to a text window under Mac OS X? This is what I'm doing with my text window: tt <- tktoplevel() txt <- tktext(tt, bg = "white", height=30, width=100, borderwidth=2) scr <- tkscrollbar(tt, orient = "vertical", repeatinterval = 1, command = function(...) tkyview(txt, ...)) tkconfigure(txt, yscrollcommand = function(...) tkset(scr, ...)) tkgrid(txt, column=0, row=0, columnspan=2, sticky="nwse") Session Info: R version 2.9.1 (2009-06-2...

...ot;ID_CANCEL" Title.frame <- tkframe(ask.form, relief="groove") tkgrid(tklabel(Title.frame,text="Input File Format", font="Times 15", foreground="dark red")) tkgrid(Title.frame) Choose.frame <- tkframe(ask.form, relief="groove", borderwidth=2) file.format1 <- tkradiobutton(Choose.frame) file.format2 <- tkradiobutton(Choose.frame) tkconfigure(file.format1, variable=file.format, value="1") tkconfigure(file.format2, variable=file.format, value="2") tkgrid(tklabel(Choose.frame, text="Format 1 &quot...

...{ cr<<-colorRampPalette(c(b.color,e.color),space="Lab",interpolate="spline") tkdestroy(tt) ##invisible(cr) } tt <- tktoplevel() tkwm.title(tt,"Color Ramp Tool") frame <- tkframe(tt) bframe <- tkframe(frame,relief="groove",borderwidth=1) if(is.null(b.color)) b.color <- "blue" if(is.null(e.color)) e.color <- "yellow" if(missing(n.col)) n.col <- 100 canvas.b <- tkcanvas(bframe,width="50",height="25",bg=b.color) canvas.e <- tkcanvas(bframe,width="50",heigh...

...instruction, I don't get the tk window. The tcltk program, stored in "smalltst.tcl", which, by the way displays a simple tk window when run from tclsh, is as follows: #! /usr/bin/tclsh package require Tk ttk::frame .c -padding "3 3 12 12" ttk::frame .c.f -borderwidth 5 -relief sunken -width 200 -height 100 ttk::label .c.namelbl -text Name grid .c -column 0 -row 0 -sticky nsew grid .c.f -column 0 -row 0 -columnspan 3 -rowspan 2 -sticky nsew grid .c.namelbl -column 3 -row 0 -columnspan 2 -sticky nw -padx 5 Do you have any comments on this? Thank...

In Windows, Tcl/Tk programs running under the tcltk package can update too frequently: for exmaple, we might go through a long sequence of operations to construct a complex display, and in Windows each addition will be shown separately. To work around this, I've added a function "tclServiceMode" which serves as an R interface to the "Tcl_SetServiceMode" function in the

On May 17, 2008, at 6:54 AM, David Toll wrote: > I tried to submit the following message to the "fxruby-users" > message board (I clicked the link to send it as an email to fxruby-users at rubyforge.org > , but the message did not appear). I conclude I do not know how to > submit questions to this message board. You need to be subscribed to the mailing list before you

Full_Name: Sundar Dorai-Raj Version: 2.8.0 OS: Windows Submission from: (NULL) (76.220.41.126) The following code crashes R: library(tcltk) tt <- tktoplevel() tc <- tkcanvas(tt, yscrollcommand = function(...) tkset(ts, ...)) > sessionInfo() R version 2.8.0 (2008-10-20) i386-pc-mingw32 locale: LC_COLLATE=English_United States.1252;LC_CTYPE=English_United

Dear friends: Forgot to include three more data files: http://www.websher.net/tmp/user.reg http://www.websher.net/tmp/system.reg http://www.websher.net/tmp/userdef.reg Thank you again. Benjamin I've been trying for some time to install my copy of Word97 (which I own, having purchased it directly from Microsoft with my own license number). I have tried the latest Wine 0.9.14. To do

...now how. I searched the web for some examples but my results were unsatisfactory. Thank you and have a great day ahead. #my code library(tcltk) rm(list=ls()) top <- tktoplevel(padx=70, pady=70) frameOverall <- tkframe(top) frameUpper <- tkframe(frameOverall,relief="groove",borderwidth=2) back_but <- tkbutton (frameUpper, text = "BACK", width=20, height=1, default="active", overrelief="flat",anchor="w", borderwidth=4 ) tkgrid(frameUpper) tkgrid(frameOverall) tkpack (frameUpper, back_but, side='left', anchor='n') tkgr...