Skip to main content

dynamic - Initializing Manipulator value within DialogInput (version 10.1 only)


Bug introduced in 10.1.0 and fixed in 10.2.0


I've confirmed, with WRI, that an issue was introduced in version 10.1 with regard to initializing Manipulator Dynamic values when the Manipulator is wrapped in a DialogInput.



Here, I'm asking for help in creating a work-around. The slightly modified code snippets I've included are from a larger notebook. But, they show the issue.


The following code shows the initialization of the Manipulator when not wrapped within a DialogInput:


DynamicModule[{val = 75.0},
  Print[val]; (* Print for Debug *)
  Column[{Manipulator[Dynamic[val], {50, 100, 0.2},
  Appearance -> {"Open", "Labeled"},

  AppearanceElements -> {"InputField", "StepLeftButton", "StepRightButton"}]}]
]

The above works fine with the Manipulator being initialized to 75., even in version 10.1.


The following is the code that will not propagate the initialization value to the Manipulator inside a DialogInput using version 10.1, but worked in prior versions. Note that the Manipulator is initialized to 50., not 75.:


DynamicModule[{val = 75.0},
  DialogInput[
    Print[val]; (* Print for Debug *)
    Column[{Manipulator[Dynamic[val], {50, 100, 0.2}, 
      Appearance -> {"Open", "Labeled"}, 

      AppearanceElements -> {"InputField", "StepLeftButton", "StepRightButton"}],
       Row[{DefaultButton[DialogReturn[{Today, Round[val, 0.2]}]], CancelButton[]}]}],
  WindowTitle -> "Input Value"]
]

In the actual code, the initialization value for val is from a file, not hard-coded. Can anyone think of a work-around that will allow me to get an initialization value into the Manipulator that works in version 10.1? It may not be possible, but I'm looking for something relatively simple that doesn't require modifying any system files.


To address some questions in the comments:


I should have mentioned that I'm running Win 8.1, 64-bit. Maybe it's specific to that OS version. I did get confirmation from WRI that they were able to reproduce my problem.


The purpose of the code is simply to be able to open a DialogInput with a slider initialized to a piece of data read from a file. If desired, manipulate the slider to a new value and return that value along with the date. If my current approach is not a good one, I'm open to better ideas.




Comments

Post a Comment

Popular posts from this blog

functions - Get leading series expansion term?

Given a function f[x] , I would like to have a function leadingSeries that returns just the leading term in the series around x=0 . For example: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x)] x and leadingSeries[(1/x + 2 + (1 - 1/x^3)/4)/(4 + x)] -(1/(16 x^3)) Is there such a function in Mathematica? Or maybe one can implement it efficiently? EDIT I finally went with the following implementation, based on Carl Woll 's answer: lds[ex_,x_]:=( (ex/.x->(x+O[x]^2))/.SeriesData[U_,Z_,L_List,Mi_,Ma_,De_]:>SeriesData[U,Z,{L[[1]]},Mi,Mi+1,De]//Quiet//Normal) The advantage is, that this one also properly works with functions whose leading term is a constant: lds[Exp[x],x] 1 Answer Update 1 Updated to eliminate SeriesData and to not return additional terms Perhaps you could use: leadingSeries[expr_, x_] := Normal[expr /. x->(x+O[x]^2) /. a_List :> Take[a, 1]] Then for your examples: leadingSeries[(1/x + 2)/(4 + 1/x^2 + x), x] leadingSeries[Exp[x], x] leadingSeries[(1/x + 2 + (1 - 1/x...
Post a Comment
Read more

How to thread a list

I have data in format data = {{a1, a2}, {b1, b2}, {c1, c2}, {d1, d2}} Tableform: I want to thread it to : tdata = {{{a1, b1}, {a2, b2}}, {{a1, c1}, {a2, c2}}, {{a1, d1}, {a2, d2}}} Tableform: And I would like to do better then pseudofunction[n_] := Transpose[{data2[[1]], data2[[n]]}]; SetAttributes[pseudofunction, Listable]; Range[2, 4] // pseudofunction Here is my benchmark data, where data3 is normal sample of real data. data3 = Drop[ExcelWorkBook[[Column1 ;; Column4]], None, 1]; data2 = {a #, b #, c #, d #} & /@ Range[1, 10^5]; data = RandomReal[{0, 1}, {10^6, 4}]; Here is my benchmark code kptnw[list_] := Transpose[{Table[First@#, {Length@# - 1}], Rest@#}, {3, 1, 2}] &@list kptnw2[list_] := Transpose[{ConstantArray[First@#, Length@# - 1], Rest@#}, {3, 1, 2}] &@list OleksandrR[list_] := Flatten[Outer[List, List@First[list], Rest[list], 1], {{2}, {1, 4}}] paradox2[list_] := Partition[Riffle[list[[1]], #], 2] & /@ Drop[list, 1] RM[list_] := FoldList[Transpose[{First@li...
Post a Comment
Read more

front end - keyboard shortcut to invoke Insert new matrix

I frequently need to type in some matrices, and the menu command Insert > Table/Matrix > New... allows matrices with lines drawn between columns and rows, which is very helpful. I would like to make a keyboard shortcut for it, but cannot find the relevant frontend token command (4209405) for it. Since the FullForm[] and InputForm[] of matrices with lines drawn between rows and columns is the same as those without lines, it's hard to do this via 3rd party system-wide text expanders (e.g. autohotkey or atext on mac). How does one assign a keyboard shortcut for the menu item Insert > Table/Matrix > New... , preferably using only mathematica? Thanks! Answer In the MenuSetup.tr (for linux located in the $InstallationDirectory/SystemFiles/FrontEnd/TextResources/X/ directory), I changed the line MenuItem["&New...", "CreateGridBoxDialog"] to read MenuItem["&New...", "CreateGridBoxDialog", MenuKey["m", Modifiers-...
Post a Comment
Read more